Range("A1") CurrentRegion.Rows Count

bonjour
je débute sur les macros d'excel et le VBA..
je vous demande une question à propos de la fonction :

Code:

---

m=Range("A1").CurrentRegion.Rows.Count

---

sachant que A1 est la première cellule de mon tableau, je veux que m me rend le nombre de lignes de ce tableau.
le problème c'est que j'ai essayé avec un tableau de 5000 lignes mais ça ne me renvoie que 2000 lignes.
Merci d'avance.

le décompte s'arrête à la première ligne complètement vide

merci c'est clair, sauf que pour éliminer ces ligne vide, je dois parcourir le tableau de bas en haut, pour ce là j'ai besoin de savoir le nombre de ligne total.
avez vous une idée svp
Merci

est ce que ceci vire les lignes vides?

Code:

---

1 2 3 4

with Activesheet.UsedRange .Sort key:=.Range("A1"), header:=xlGuess end with

---

à adapter bien sûr si on ne travaille pas sur la feuille active
mais attention ça va trier toutes le données de la feuille. Used range est la zone de la feuille utilisée

Non pas encore;
j'ai l'erreur d'exécution 1004
:s

pardon c'était ça

Code:

---

1 2 3

with Activesheet.UsedRange .Sort key1:=.Range("A1"), header:=xlGuess end with

---

Code:

---

Cells(Rows.Count, 1).End(xlUp).Row

---

dernière cellule remplie de la colonne 1
sinon pour suprimer les lignes correspondant aux cellules vides de la colonne A

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim LastLig As Long   Application.ScreenUpdating = False With Sheets("Feuil1") .AutoFilterMode = False LastLig = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Range("A1:A" & LastLig).AutoFilter field:=1, Criteria1:="=" .Range("A2:A" & LastLig).SpecialCells(xlCellTypeVisible).EntireRow.Delete .AutoFilterMode = False End With

---

Citation:

---

Envoyé par Benjîle

pardon c'était ça

Code:

---

1 2 3

with Activesheet.UsedRange .Sort key1:=.Range("A1"), header:=xlGuess end with

---

---

ça ne supprime que la première ligne vide rncontrée du tableau.
des lignes qui viennent après ne sont pas supprimées

pourrais tu nous déposer une capture d'écran, s'il te plaît?
c la technique que j'utilise pour virer les lignes vides

Bonsoir,

Il me semble que la question initiale était de connaitre le nombre de lignes du tableau

Citation:

---

sachant que A1 est la première cellule de mon tableau, je veux que m me rend le nombre de lignes de ce tableau

---

Il faut faire la différence entre CurrentRegion et UsedrRange

Code:

---

1 2 3 4 5 6 7

Sub SC1() MsgBox Range("A1").CurrentRegion.Rows.cout End Sub   Sub sc2() MsgBox ActiveSheet.UsedRange.Rows.Count End Sub

---

Si des lignes vides existent dans le tableau on n'aura pas le même résultat.

Ce serait bien que Sanach précise son souhait

oui effectivement, je veux avoir le nombre de ligne d'un tableau, pour pouvoir le parcourir et en extraire des données, le problème c'est que mon tableau n'est pas bien mis en forme, on rencontre parfois des lignes vides, de telle sorte que le parcours s'arrête à la rencontre de la première ligne vide, parce que le nombre de ligne renvoyé au début et que j'utilise comme paramètre de fin de compteur lors du parcours n'est pas le nombre total, c'est le nombre jusqu'à la première ligne vide qu'il rencontre.
donc comme solution, je dois avant toute opération, virer les lignes vides de mon tableau.
j'espère que c'est mieux expliqué maintenant.
Merci pour vos messages :)

Merci c'est bon avec

Code:

---

ActiveSheet.UsedRange.Rows.Count

---

Merci beaucoup