Numero de la ligne dans un label?

[Evelynetfrancois]

Bonjour à tout le Forum

D’un USF dans lequel je saisis des infos dans différents textebox ou autre …..
je viens insérer des lignes (plafonnés a 400 maximum )les unes en dessous des autres en colonnes A.B.C.D.E
Ma Question :
Est-il possible dans un label (sur ce même USF) d’indiquer la dernière ligne remplie, style (56 sur 400) pour la 56eme ligne saisie , (57 sur 400) pour la 57eme etc.… ?
Merci d avance pour votre aide..
Bonne soirée
E et F

 

[Banzai64]

Re : Numero de la ligne dans un label?

Bonjour

Un essai

Private Sub UserForm_Initialize()
Label1.Caption = "Ligne " & Range("A65536").End(xlUp).Row & " / 400"
End Sub

 

[ChTi160]

Re : Numero de la ligne dans un label?

Salut Evelyne
Bonsoir le Forum

tu dois dois savoir Lol que tout est possible avec excel Vba
mais il faut un minimun d'infos Lol

on eput si ta base,liste etc commence en ligne 1 et que la colonne A et la colonne ou va s'effectuer la recherche

en partant du bas et en remontant on va trouver la derniere lige non vide

soit un exemple si j'ai bien compris Lol

Sub testDerniereligne() 
Dim DerLigne as Integer
Const NombredeLignedeRef As Integer =400
With WorkSheets("Feuil1")

DerLigne=.Range("A600").EndXlUp).row
   If Derligne<=NombredeLignederef Then
     MsgBox "la Ligne trouvée et la ligne  :" & Derligne & " Sur " & NombredeLignedeRef

   End if
End Whith
End Sub

Procèdure Non testée
Bonne fin de journée

 

[Evelynetfrancois]

Re : Numero de la ligne dans un label?

bonsoir banzai et Chti merciiiiiiii
merci pour vos reponses rapides

la solution ( Label) de banzai me convient parfaitement

je vous remercie vraiment beaucoup pour toute votre simpathie et votre savoir.......
trés bonne soirée à vous
E et F