Compter le nombre de lignes

[julien]

Bonjour à tous,

Une petite question qui me parait toute simple mais pour laquelle je n'arrive par à trouver de solutions.

Mon problème : Je veux compter le nombre de lignes d'un tableau. J'ai réussi en utilisant nbval(A1:A10000) mais je ne trouve pas la correspondance de cette fonction en VBA.

Si quelqu'un pouvait m'aider...

A+

Jul'

 

[albert]

bonjour julien,
je ne suis pas très habile dans ce domaine, mais j'ai déjà utilisé
ActiveWorkbook.Worksheets.Count

ça peut, peut-être te rendre service

albert

 

[julien]

Désolé, mais cette ligne de commande ne marche pas...

 

[@+Thierry]

Salut Julien, Albert et le Forum

Albert, si tu veux compter les feuilles d'un classeur ce code suffit de
Sub compte_Feuille()
MsgBox "il y a " & Worksheets.Count & " Feuilles dans " & ActiveWorkbook.Name
End Sub
ActiveWorkBook n'a pas d'utilité vu que même sans cette indication ce sera l'active workbook qui sera "épluché" par le code pour compter les feuilles... Par contre si on veut comptre les feuilles d'un classeur ouvert mais non actif il faut faire comme ceci :
Sub compte_Feuille()
MsgBox Workbooks("MoveShape.xls").Sheets.Count
End Sub

Pour en revenir à ce fil.........
Mais, par contre, je crois avoir compris que Julien veut compter les lignes de son tableau mais pas les feuilles de son classeur...

Donc une méthode (entre autre, avec Area), pour que la macro fonctionne il suffit de sélectionner n'importe quelle cellule DANS le tableau à analyser :

Sub Compte_Ligne_Colonne()
ActiveCell.CurrentRegion.Select
areaCount = Selection.Areas.Count
MsgBox "le tableau contient " & _
vbCrLf & Selection.Columns.Count & " colonnes." & _
vbCrLf & Selection.Rows.Count & " lignes."
End Sub

En prime tu auras aussi le nombre de colonnes Julien...

Bon Après midi
@+Thierry

 

[julien]

Merci beaucoup, ça marche comme sur des roulettes

A+

Jul'

 

[@+Thierry]

Oups

il n'y a pas besoin d'Area !! dans le code ci-dessus (j'étais parti sur un truc dans l'aide puis j'ai changé !!

çà suffit :
Sub Compte_Ligne_Colonne()
ActiveCell.CurrentRegion.Select
MsgBox "le tableau contient " & _
vbCrLf & Selection.Columns.Count & " colonnes." & _
vbCrLf & Selection.Rows.Count & " lignes."
End Sub


par contre Area peut servir à çà (aide)
If Selection.Areas.Count > 1 Then
MsgBox "Cannot do this to a multi-area selection."
End If


allez a plus
@+Thierry