Calculer le nb de lignes pb code
bonjour,
je suis débutante en VBA
J'ai un petit souci de code pour calculer le nombre de lignes contenant qqch.
sachant que je commence en A5 j'aimerais que l'ordinateur me calcul le nombre de lignes qu'il y a pour pouvoir m'en servir après.
J'ai mis un exemple pour mieux comprendre
voici mon code (j'ai mis en rouge mon code) :
Sub nbXarticle123()
Sheets("GESSICA_trans").Select
DerniereLigne = Range("A5").End(xlDown).Row 'pour interroger le nb de lignes
Range("H6").FormulaR1C1 = "=IF(RC[-7]<>R[-1]C[-7],1,"""")" 'fonction si(A6<>A5;1;"")
Range("I6").FormulaR1C1 = "=IF(AND(RC[-8]=R[-1]C[-8],RC[-8]<>R[-2]C[-8]),2,"""")" 'fonction si(et(A6=A5;A6<>A4);2;"")
Range("J6").FormulaR1C1 = "=IF(AND(RC[-9]=R[-2]C[-9],RC[-9]<>R[-3]C[-9]),3,"""")"
Range("K6").FormulaR1C1 = "=IF(AND(RC[-10]=R[-3]C[-10],RC[-10]<>R[-4]C[-10]),4,"""")"
Range("L6").FormulaR1C1 = "=IF(AND(RC[-11]=R[-4]C[-11],RC[-11]<>R[-5]C[-11]),5,"""")"
Range("M6").FormulaR1C1 = "=IF(AND(RC[-12]=R[-5]C[-12],RC[-12]<>R[1]C[-12]),6,"""")"
Range("N6").FormulaR1C1 = "=sum(RC[-6]:RC[-1])"
Range("H6:N6").AutoFill Destination:=Range("H6:N" & DerniereLigne) ' copie jusqu'a la derniere ligne
Range("H:N").Copy
Range("H:N").PasteSpecial xlPasteValues
End Sub
Merci d'avance pour votre aide
Bonne journée !
Bonjour
Et quel est le problème ?
et bien, quand je lance la macro, il y a un pb d'execution
j'ai un message d'erreur qui dit :
erreur d'execution '1004':
La methode autofill de la classe range a echoué
sur cette ligne de code
Range("H6:N6").AutoFill Destination:=Range("H6:N" & DerniereLigne) ' copie jusqu'a la derniere ligne
Bonjour
Si je t'ai posé cette question c'est que je n'ai pas de souci avec ta macro
Je l'ai copiée dans un module et ça roule
La méthode AutoFill aurait changé avec 2007 ?
je ne sais pas pourquoi ça ne marche pas :'(
J'utilise excel 2010
est ce que quelqu'un saurait m'expliquer ce que veut dire cette erreur d'execution pour que je puisse resoudre mon pb de macro ...?
erreur d'execution '1004':
La methode autofill de la classe range a echoué
Merciiiiiiiiii de votre aide
Bonjour,
En l'état, ton code fonctionne très bien.
Si la copie incrémentée ne se réalise pas correctement, c'est sûrement que quelque chose dans la structuration de tes cellules provoque une erreur (cellules fusionnées par exemple).
Sans fichier exemple, difficile d'aller plus loin.
A+
j'ai mis en PJ la feuille en question peut etre que ça aidera
Je te confirme que ce code fonctionne très bien (test avec Excel 2007).
A+
ok, merci de ton temps passé
je vais refaire mon fichier de base et reessayer car je ne vois pas d'autres solutions ...
Merci encore
Bonne journée