Discussion :

[NEC14]

Bonjour,

Dans une feuille de données (Adhé), j'ai une liste d'adhérents (604) actuellement.(ColonneB)
Ils sont numérotés de 1 à 618. Compte-tenu des agents qui sont partis, les numéros se trouvent forcément décalés.

Je souhaiterai dans un TextBox récupérer le dernier numéro existant dans la liste.

Comment puis-je faire ?

Merci par avance

[Fvandermeulen]

Bonjour,
Voici un petit code facile à mettre en oeuvre, c'est pas en textbox mais en messagebox, a adapter si nécessaire...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub testNbAdhe()
 
NbAdhe = Application.Subtotal(3, Range("B:B"))
'Compte le nombre de ligne
 
MyLastAdhe = Cells(NbAdhe, 2)
'Récupère le numéro d'adhérent dans la cellule B...
 
MsgBox ("le dernier N° d'adhérent est " & MyLastAdhe)
 
End Sub

[NEC14]

Bonjour Fvandermeulen,

Tout d'abord merci pour ton aide.
Peux-tu m'expliquer ton code s'il te plait car je ne saisi pas tout ?

Particulièrement la 1ère ligne, j'ai utilisé F1 mais cela ne m'a pas apporté plus d'éclairage.

MyLastAdhe -> est-ce un nom de cellule dans un fichier ?

Merci

[Fvandermeulen]

Bonjour,

C'est vrai que je n'ai pas dimensioner les variables, c'est peut être un peu perturbant...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NbAdhe = Application.Subtotal(3, Range("B:B"))

NbAdhe est la variable qui compte le nombre de ligne => la ligne où se trouve le dernier adhérent (pour autant que ta liste soit en ordre croissant)
J'ai utiliser "Application.subtotal..." pour éviter de le faire dans une cellule de ton fichier (tu aurait pu mettre la formule Soustotal dans la feuille Adhé et faire pointer la variable dessus)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MyLastAdhe = Cells(NbAdhe, 2)

Comme indiqué ci-dessus NbAdhe est la dernière ligne remplie, en utilisant cette variable dans le Cells, je trouve le contenu de la dernière cellulle remplie.
MyLastAdhe étant également une variable.

En espérant avoir été clair...
Il y avait certainement de faire plus court avec un "end.(xlup)" mais ça me semblais plus clair comme ceci.

A bientôt,

[frednts]

Sinon si ta colonne n'est pas triée par numéro, pour récupérer la valeur maxi tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ValMax = Application.WorksheetFunction.Max(Columns(2))

2 étant le numéro de la colonne ou se trouvent les numéros d'adhérents.

[NEC14]

Merci à vous 2 super ça marche.
A+