Discussion :

[james17]

Bonjour, voila je viens de créer un USF.
Mais je rencontre un souci avec mais code

j'ai rempli toutes mais ComboBox comme suite:

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub UserForm_Initialize()
ComboBox1.RowSource = ("Atelier")  'ComboBox1.RowSource = ("Atelier")
Me.ComboBox1.Font = "Arial"
Me.ComboBox1.Font.Size = 14
ComboBox2.RowSource = ("Admin")  'ComboBox1.RowSource = ("Admin")
Me.ComboBox2.Font = "Arial"
Me.ComboBox2.Font.Size = 14
End sub

Mais j'arrive pas a remplir mais textBox.
ex: dans texBox1 je choisis JAMES dans ma texBox 06.00.00.00.00

mais impossible d'y arrivé

merci Beaucoups

[unparia]

Bonjour
Comment veux-tu que l'on te réponde sans tenter de deviner, sur la base de telles explications ?
Que veux-tu faire ?
- remplir une textbox lors du clic sur un article de ta combobox ?
- de quelle combobox ? On en voit deux dans ton code ...
- combien de colonnes contient ta combobox ?
- à quelles plages de cellules correspondent "Atelier" et "Admin" ?
- dans quelle colonne de quelle combobox se trouve (ton "exemple) "JAMES" et dans quelle colonne de quelle combobox se trouve "06.00.00.00.00" ?
Te rends-tu au moins compte du caractère à la fois flou et incomplet de ta question ?

[Jean-Philippe André]

Salut,

pour Textbox la syntaxe est:

Code :

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

Me.Textbox.value= "plop"

[james17]

Bonjour,
remplir une textbox lors du clic sur un article de ma combobox....
Dans ma combo j'ai les NOMS, j’aimerais quand je choisi le nom en question cela mette le numéro dans ma Txtbox
Les NOMS ce trouve dans la 1ere colonne et le Numéro dans la 3eme

cordialement

[unparia]

Ah !
Au clic sur ma combobox :

Code :

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

Combobox1.list(combobolx.listindex)

te retourne le contenu de la 1ère colonne de l'élément cliqué

Code :

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

Combobox1.list(combobox1.listindex,2)

te retourne le contenu de la 3ème colonne de l'élément cliqué
Où ai-je donc trouvé tout cela ? -->> ben -->> dans l'aide VBA ! (qu'est-ce que je suis "fort", hein ... de lire mon aide VBA !)

[james17]

Salut et merci de ta réponse
J'ai mis les codes après:

Code :

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

ComboBox2.RowSource = ("Admin")  'ComboBox1.RowSource = ("Admin")

mais ca me met des erreurs

peut être qu'il faut que je change mon code

cordialement

[james17]

Re-bonjour,
j'ai trouvé un code pour une mais comment mettre pour plusieurs

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
Private Sub Admin_Change()
With Sheets("Admin")
        TextBox1 = .Cells(Admin.ListIndex + 2, 2)
        Me.TextBox1.Font = "Arial"
        Me.TextBox1.Font.Size = 18
End With
End Sub
 
Private Sub UserForm_Initialize() 'Permet d'initialiser les valeurs dans les zones souhaitées
Dim H As Integer
With Sheets("Admin")
For H = 2 To .Range("a65536").End(xlUp).Row
Admin.AddItem .Range("a" & H).Value
Me.Admin.Font = "Arial"
Me.Admin.Font.Size = 14
Next H
End With
End Sub

merci de l'aide que vous m'apportez..