Encore une erreur 1004 au niveau range
Résolu
zypainkiller
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
zypainkiller Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
zypainkiller Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
Bonjour le forum, je dois créer un code via VBA sur excel qui doit pouvoir sélectionner une zone de plage changeante. Je me suis baladé de forum en forum pour créer quelque chose mais lorsque je veux le déclencher il me met erreur 1004 la méthode range de l'objet global a échoué. Voici le code en question:
Sheets("Feuil4").Select
Range("I4").Select
ActiveCell.FormulaR1C1 = "=SUMPRODUCT((R[-3]C[-8]:R[246]C[-8]<>"""")*1)"
Dim Ligne As Long
Range("Feuil4!I4").Value = Ligne
Range("Feuil4!A1:A" & Ligne).Select
Le problème survient au niveau de la dernière ligne.
Pour vous expliquer rapidement sur la cellule I4 je demande à la macro de me donner le nombre de ligne non vide en quelque sorte et ensuite, elle doit sélectionner les lignes à partir de la cellule A1 jusqu'à la cellule A + le résultat trouvé dans la cellule I4. Et c'est là que ça coince. Je sais qu'il y a déjà eu beaucoup de post sur le sujet et j'ai essayé certaines solutions sans succès.
Je sais pas si j'ai été très clair.
Merci d'avance
Sheets("Feuil4").Select
Range("I4").Select
ActiveCell.FormulaR1C1 = "=SUMPRODUCT((R[-3]C[-8]:R[246]C[-8]<>"""")*1)"
Dim Ligne As Long
Range("Feuil4!I4").Value = Ligne
Range("Feuil4!A1:A" & Ligne).Select
Le problème survient au niveau de la dernière ligne.
Pour vous expliquer rapidement sur la cellule I4 je demande à la macro de me donner le nombre de ligne non vide en quelque sorte et ensuite, elle doit sélectionner les lignes à partir de la cellule A1 jusqu'à la cellule A + le résultat trouvé dans la cellule I4. Et c'est là que ça coince. Je sais qu'il y a déjà eu beaucoup de post sur le sujet et j'ai essayé certaines solutions sans succès.
Je sais pas si j'ai été très clair.
Merci d'avance
