Discussion :

[Faradeorn]

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

[mercatog]

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 :

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

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

[vpovpo]

Bien sur, c'est possible.

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

[patricktoulon]

bonjour

dans l'exemple de vpovpo tu peu remplacer ca:

Code :

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

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

par ca:

Code :

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

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

[Faradeorn]

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/