Compteur avec label

[JBARBE]

Bonjour à tous,

Sur mon UserForm (boite de dialogue) je voudrais obtenir dans mon compteur label la numérotation de ma colonne A (soit le N° de la dernière ligne occupée)!


Merci à l'avance et bonne journée

 

[CBernardT]

Re : Compteur avec label

Bonjour JBARBE et le Forum,

A tester si cela correspond à ton souhait.

 

[xhudi69]

Re : Compteur avec label

Bonjour JBARBE, le Forum,
Bonjour CBernardT 🙂

C'est bien un Label que tu veux ?
Voir PJ.

@+ 😎

 

[JBARBE]

Re : Compteur avec label

Merci xhudi69 & CBernardT

Oui c'est bien un label que je veux mais cela ne fonctionne pas avec vos deux propositions ( aprés chaque enregistrement des noms, le même nombre reste figé !!!)

Bonne journée !

 

[xhudi69]

Re : Compteur avec label

Bonjour JBARBE, le Forum

En PJ ton fichier remanié avec en: Private Sub UserForm_Initialize()

Private Sub UserForm_Initialize()
Dim Drl As Integer, f As Worksheet
Set f = Sheets("Inscription")

Drl = f.Range("A65500").End(xlUp).Value
Me.Label10.Caption = Drl

End Sub

Et en pied de procédure de: Private Sub CommandButton1_Click()

Drl = f.Range("A65500").End(xlUp).Value
Me.Label10.Caption = Drl

@+ 😎

 

[xhudi69]

Re : Compteur avec label

Bonjour JBARBE, le Forum

En PJ ton code légèrement modifié.

@+ 😎

 

[JBARBE]

Re : Compteur avec label

Merci xhudi69 !

Cela fonctionne !

Est-ce possible de faire en sorte que le label n'affiche rien s'il n'y a rien au départ ligne 2 !

bonne journée !

 

[xhudi69]

Re : Compteur avec label

Bonjour JBARBE, le Forum,

Il suffit de rajouter:

Private Sub UserForm_Initialize()
Dim Drl As Integer, f As Worksheet
Set f = Sheets("Inscription")

If f.Range("A2").value="" Then
Me.Label10.Caption = ""
Exit Sub
End If

Drl = f.Range("A65500").End(xlUp).Value
Me.Label10.Caption = Drl

End Sub

@+ 😎

 

[JBARBE]

Re : Compteur avec label

Impeccable !

Merci beaucoup et bonne journée !

 

[mutzik]

Re : Compteur avec label

bonjour,

et si en H1 on mettait = max(A:A)
et qu'on affiche cette valeur dans ce label, ce ne serait pas plus simple ? ...

 

[xhudi69]

Re : Compteur avec label

Bonjour mutzik, le Forum,

Wouii, tu as raison; mais de cette manière, on utilise un entête qui peut-être sera utile par la suite, ou alors mettre ça en "VDX1" par exemple 🙂

@+ 😎

 

[JBARBE]

Re : Compteur avec label

Bonjour à tous,

Une autre solution donnée par (Willyplaisir (Forum 01net) désolé d'avoir contacté ce forum):

Private Sub CommandButton1_Click()
Label8.Caption = derlig

Private Sub UserForm_Initialize()
'pratique pour initialiser
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
Label8.Caption = Sheets("Inscription").Range("B" & Rows.Count).End(xlUp).Row
End Sub

bonne journée et merci encore à vous tous !