Affecter une recherche (dans la colonne d'un tableau) à la Textbox d'un userform

Bonjour,

J'ai un tableau avec une colonne contenant un nombre de points (de 0 à 100), une le nom et la dernière le prénom de quelqu'un.

J'ai créé un userform avec 3 intitulés (Nom, Prénom et Points) avec en face de chacun d'eux une zone de texte.

J'aimerais affecter à la textbox en face de l'intitulé "Points" un code permettant de rechercher dans la colonne Points du tableau le nombre le plus élevé et qu'il apparaisse dans cette textbox.

Et ensuite, qu'en fonction du nombre de points sélectionné (le plus grand donc), le nom et prénom de la personne à qui ils ont été attribués apparaissent dans les textbox en face des intitulés "Nom" et "Prénom".

Est-ce seulement possible?

Ou alors comment s'y prendre pour réaliser une telle manipulation?


PS: j'ai voulu joindre un fichier excel simplifié pour montrer où j'en étais mais cela ne fonctionne pas, le site ne prend pas les .xlx

Un exemple à comprendre et étudier de près.
En Feuil1:
Colonne A: les noms
Colonne B: les prénoms
Colonne C: les points (entiers entre 0 et 100)
Dans Userform1:
TextBox1: Le nom correspondant aux max points
TextBox2: Le prénom correspondant aux max points
TextBox3: le max points
Dans l'Initialize de l'userform

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub UserForm_Initialize() Dim MaxPt As Byte Dim c As Range   With Sheets("Feuil1") 'le nombre max de la colonne C MaxPt = Application.Max(.Range("C:C")) 'cherche en colonne C ce nombre max, la variable c correspond à La première cellule comportant le max points Set c = .Range("C:C").Find(MaxPt, lookat:=xlWhole) 'récupère le nom à partir de la colonne A à la ligne correspondant au max points dans TextBox1 Me.TextBox1.Value = .Range("A" & c.Row).Value 'récupère le prénom à partir de la colonne B à la ligne correspondant au max points dans TextBox2 Me.TextBox2.Value = .Range("B" & c.Row).Value 'en TextBox3, le max points Me.TextBox3.Value = MaxPt 'libère la variable range c Set c = Nothing End With End Sub

---

Bien sur, c'est possible.

Voilà un exemple... initiation aux joies de la programmation !

bonjour

dans l'exemple de vpovpo tu peu remplacer ca:

Code:

---

1 2	For Each Cell In ThisWorkbook.ActiveSheet.Range("A1:A65530")

---

par ca:

Code:

---

1 2	For Each Cell In ThisWorkbook.ActiveSheet.Range("A1:A" & Range("a65530").End(xlUp).Row)

---

ca evite de le faire pedaler jusque a la fin de la feuille si elle n'est pas remplie jusqu'a la derniere ligne

Merci beaucoup pour ces informations, les codes fonctionnent à merveille.

Vpovpo à même pris le temps d'insérer quelques messages humoristiques :)

J'ai une autre question qui s'inscrit dans la continuité de celle-ci j'ai donc ouvert une autre discussion:
http://www.developpez.net/forums/d10...tion-userform/