renaud97434
Messages postés31Date d'inscriptionlundi 26 novembre 2007StatutMembreDernière intervention26 août 2008
-
26 nov. 2007 à 10:24
pneau
Messages postés258Date d'inscriptionmercredi 21 avril 2004StatutMembreDernière intervention27 octobre 2010
-
26 nov. 2007 à 11:02
bonjour,
mon mail fait suite à un précédent intitulé compter.
voici le code:
Sub nblignesdansextract2()
Dim i As Integer
'nombre d'enregistrements de la feuille extract
i = 2
Do Until Sheets("extract").Cells(i, 4) <> ""
i = i + 1
Loop
Sheets("recap").Cells(15, 11).Value = i
End Sub
le problème est que ca afiche 2 soit la valeur de la variable initialisée.
rappel: je veux obtenir le nombre d'enregistrements dans la feuille, sachant que la première ligne est l'intitulé de la colonne que je ne dois pas compter.
pneau
Messages postés258Date d'inscriptionmercredi 21 avril 2004StatutMembreDernière intervention27 octobre 20105 26 nov. 2007 à 11:02
salut
ton code n'est pas bon
car il faut que tu sortes de la boucle quand ta cellule est vide hors, la il sort quand la cellule contient quelque chose...
change ton code Do Until Sheets("extract").Cells(i, 4) <> ""
par Do Until Sheets("extract").Cells(i, 4) = ""
de plus, passe ta variable "i" en long au lieu de integer car si un jour tu a + de 32000 lignes et des broutettes, cela plantera (débordement de capacité)