Microsoft 365 Dernière valeur colonne A dans Label Userform

[Scorpio]

Bonjour à tous,
Je plante sur 2 lignes de code, bon, je suis pas un as du code, mais ,
si un membre pourrais me dépanner sur ce code.
En fait, dans le Form il y a 3 Label dans lequel Feuil1, Feuil2, Feuil3
Et, dans ces 3 Label, je trouve la dernière valeur de la colonne "A"
Voilà.
Mer ci à tous

Scorpio

 

[sylvanu]

Bonjour Scorpio,
Les trois feuilles n'ont pas la dernière cellule occupée identique, essayez :

Private Sub UserForm_Activate()
derlig = Range("a" & Rows.Count).End(xlUp).Row
Label1.Caption = Sheets("Feuil1").Range("a" & Sheets("Feuil1").Range("a" & Rows.Count).End(xlUp).Row) 'Feuil1
Label4.Caption = Sheets("Feuil2").Range("a" & Sheets("Feuil2").Range("a" & Rows.Count).End(xlUp).Row) 'Feuil2
Label5.Caption = Sheets("Feuil3").Range("a" & Sheets("Feuil3").Range("a" & Rows.Count).End(xlUp).Row) 'Feuil3
End Sub

 

[Scorpio]

Bonjour sylvanu,
A oui, c'est du bon travail, comme d'ab. Pas comme moi
Merci beaucoup, super.
Scorpio