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