Compteur

Robert

XLDnaute Barbatruc

Repose en paix

• 12 Avril 2005

• #2

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

G

Gaelle

Guest

• 12 Avril 2005

• #3

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.

 

Vote positif 0 Vote négatif

P

pat1545.

XLDnaute Accro

• 12 Avril 2005

• #4

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

Patrick

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 12 Avril 2005

• #5

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.

 

Vote positif 0 Vote négatif

G

Gaelle

Guest

• 12 Avril 2005

• #6

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

 

Vote positif 0 Vote négatif

P

pat1545.

XLDnaute Accro

• 13 Avril 2005

• #7

pas de quoi !

tout le plaisir est pour moi

Patrick
:lol:

 

Vote positif 0 Vote négatif