Formule NBVAL sur prog excel VBA

Résolu
manueHN Messages postés 36 Statut Membre -  
manueHN Messages postés 36 Statut Membre -
Bonjour,

J'ai une programmation toute simple à créer sur Excel VBA mais je bloque, vu que c'est ma première expérience.

J'ai un fichier dont les lignes varient selon les mois. Chaque mois, je voudrais compter le nombre de ligne présent dans le fichier.

Sur VBA, j'ai donc commencer à écrire :

Dim DernierNoLig As Integer
Dim NoLigDuCumul As Integer

DernierNoLig = Range("A1").CurrentRegion.Rows.Count
NoLigDuCumul = DernierNoLig + 1

Do While Not (IsEmpty(NoLigDuCumul))
Cells(NoLigDuCumul, 2).FormulaR1C1 = "=CountA (R[1]C2:R[-1]C2)"
Loop

VBA m'indique une erreur au niveau de la ligne en gras et je n'arrive pas à la déceler.

Quelqu'un pourrait-il m'aider ?
Merci d'avance.

13 réponses

eriiic Messages postés 25847 Statut Contributeur 7 279
 
Bonjour,

enlève les espaces superflus :
Cells(NoLigDuCumul, 2).FormulaR1C1 = "=CountA(R[1]C2:R[-1]C2)"

Mais tu vas rencontrer un autre problème sur :
Do While Not (IsEmpty(NoLigDuCumul))
Ctrl+Pause pour arreter une macro qui boucle indéfiniment...

eric
0