Microsoft 365 Dernière valeur colonne A dans Label Userform

Scorpio · 4 Mars 2022

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 · 4 Mars 2022

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

VB:

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 · 4 Mars 2022

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

Merci beaucoup, super.
Scorpio

Microsoft 365 Dernière valeur colonne A dans Label Userform

Scorpio

XLDnaute Impliqué

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Scorpio

XLDnaute Impliqué

Discussions similaires