Compteur

[gaelle]

Bonsoir à tout le monde

Je souhaite placer dans un label de mon userform le nombre de ligne enregistrées dans ma feuille bdd. Qui peux me communiquer la macro adéquate ?
Merci à tous.

 

[Robert]

Bonsoir Gaelle, bonsoir le forum,

Le code ci-dessous devrait te convenir avec certainement une petite adaptation à ton cas :

Private Sub UserForm_Initialize()
Dim nl As Long 'déclare la variable nl (Nombre de Ligne)
'définit la variable nl
'dernière ligne éditée de la colonne A de la feuille 'bdd'
nl = Sheets('bdd').Range('A65536').End(xlUp).Row
Label1.Caption = nl 'attribut la variable nl à la propriété 'Caption' du label1
End Sub

 

[Gaelle]

Bonsoir Robert,
Merci pour ton aide, ta macro fonctionne. Il y a juste un petit ennui, le nombre d'enregistrement présenté dans le label est de +1 par rapport au nombre d'enregistrements réels !!!
Bonne soirée.

 

[pat1545.]

nl = Sheets('bdd').Range('A65536').End(xlUp).Row - 1 !!!

Patrick

 

[Robert]

Re Gaelle, bonsoir Pat,

Pat juste deux mots : Mer Ci... N'aurais-tu pas été professeur de Déduction à Lena (le bar, pas l'école) ???

Ça m'a rappelé un BD de Carali où la jeune mariée était trop grande et ne passait pas la porte. Deux clans se formèrent, les partisans pour 'lui couper les pieds' et ceux pour lui 'couper la tête'. Arriva le héros (Pat1545) qui dans une lucidité hors du commun la fit se pencher en avant sous les vivats de la foule en liesse... Lol.

 

[Gaelle]

Bonsoir Pat, rebonsoir Robert,
Je vous remercie encore pour votre grande (et très rapide) aide. Pat, le '-1' fonctionne parfaitement.
Bonne soirée.

 

[pat1545.]

pas de quoi !

tout le plaisir est pour moi

Patrick
:lol: