Récupérer un numéro dans une liste

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

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

Code:

---

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

---

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

Bonjour,

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

Code:

---

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:

---

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,

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

Code:

---

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.

Merci à vous 2 super ça marche.
A+