[XL-2007] combobox1 sur feuil1 vers combobox1 sur userform [Résolu]

[timtof2011]

bonjour à tout le monde...

voilà mon nouveau problème :

J'ai ds une feuille"Liste" contenant 3 colonnes "nom", "prenom" et "adresse"
avec 10 clients. J'ai sur cette feuille aussi un combobox qui me permet de faire le choix de la personne et ainsi d'afficher le contenu de cette personne sur une autre feuille. tout ça est ok

Je souhaiterai faire ce choix par le biai d'un combobox mais sur un userform...et qui s'afficherai tj sur ce userform dans des textbox "nom", "prenom" et "adresse"

voilà, je me demande vraiment si vous arriverez à me comprendre.?!?!

Merci d'avance et surtout un trés bon week end à tous.

Tim

[Daniel.C]

Bonjour,

Mes données sont sur Feuil10 en colonne A:C et j'ai une ligne d'entêtes en ligne 1.
1. Mets sur une feuille un bouton pour afficher le userform
2. Crée le userform avec un combobox et 3 textboxes.
3. mets le code suivant dans le module du userform :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ComboBox1_Click()
    With Sheets("Feuil10") 'à modifier
        Me.TextBox1 = .[A2].Offset(Me.ComboBox1.ListIndex)
        Me.TextBox2 = .[B2].Offset(Me.ComboBox1.ListIndex)
        Me.TextBox3 = .[C2].Offset(Me.ComboBox1.ListIndex)
    End With
End Sub
 
Private Sub UserForm_Activate()
    With Sheets("Feuil10") 'à modifier
        Me.ComboBox1.Clear
        Me.TextBox1.Value = ""
        Me.TextBox2.Value = ""
        Me.TextBox3.Value = ""
        For Each c In .Range(.[A2], .Cells(.Cells.Rows.Count, 1).End(xlUp))
            Me.ComboBox1.AddItem c.Value
        Next c
    End With
End Sub

[timtof2011]

Merci bcp Daniel...ça marche nikel...et bonne soirée.

Tim