Afficher la derniere ligne plusieurs feuille

bonjour

je voudrais afficher dans un msgbox la dernière ligne de plusieurs feuille du classeur

merci pour votre aide

Salut,

Voici un code vba pour trouver la dernière ligne de la colonne A de chaque feuille

Sub TrouveDernièreLigne()
Dim i%
For i = 1 To Sheets.Count
    Result = Result & vbLf & "Onglet " & Sheets(i).Name & " / Dernière ligne : " & Sheets(i).Range("A1048576").End(xlUp).Row
Next i
MsgBox Result, vbApplicationModal + vbInformation
End Sub

A voir si cela de convient

Jers

Si tu es en Excel 2000, remplace

Sheets(i).Range("A1048576").End(xlUp).Row

par

Sheets(i).Range("A65536").End(xlUp).Row

Jers19 merci de ta réponse

je me suis mal exprimer , c'est la valeur des cellules A jusqu'à F de la dernière ligne de chaque feuille

merci

tu veux que la msgbox affiche par ex

feuil 1

cellule A16 = valeur 1

cellule b26 = valeur 2

etc...

feuil 2

cellule A45 = valeur 3

etc...

C'est ça?

c'est le contenu de la cellule A a F de chaque feuille que je voudrais afficher dans le msgbox

donc c'est équivalent à mon poste précédent?