Discussion :

[iliesss]

Bonjour
J’ai un userform1 qui contient un combobox
Mon combobox contient les valeurs suivantes : (caisse, banque, chèque, versement)
J’ai utilisée ce code pour remplir mon combobox

Code :

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

1
2
3
4
5
6
Private Sub UserForm_activate()
ComboBox2.AddItem ("caisse")
ComboBox2.AddItem ("banque")
ComboBox2.AddItem ("cheque")
ComboBox2.AddItem ("versement")
End Sub

Question :
S.V.P est ce que c’est le bon code pour remplir mon combobox
S.V.P quel est le code lorsque je clic sur :
*caisse----------->feuil2 range ("a1").sélect
*banque---------->feuil2 range ("d1").sélect
*chèque---------->feuil2 range ("h1").sélect
*versement------->feuil2 range ("w1").sélect
Merci beaucoup

[Philippe Tulliez]

Le code est bon mais tu peux aussi le placer comme cela

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub UserForm_activate()
  With ComboBox2
  .AddItem ("caisse")
  .AddItem ("banque")
  .AddItem ("cheque")
  .AddItem ("versement")
  End With
End Sub

Je te conseille la lecture de http://silkyroad.developpez.com/VBA/ControlesUserForm/ car il y a d'autres possibilités.

[patricktoulon]

bonjour

pour le clic de ta combobox

Code :

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

1
2
3
4
5
6
 
Private Sub ComboBox1_Click()
Sheets("feuil2").Select
Sheets("feuil2").Range("a" & ComboBox1.ListIndex + 1).Select
 
End Sub

si les items ne changent pas bien sur


au plaisir

[OrDonc]

Bonjour

avec ce que j'ai compris pour le choix :

Code :

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

1
2
3
4
 
Private Sub ComboBox2_Change()
  Application.Goto (Sheets("Feuil2").Cells(1, Array("A", "D", "H", "W")(ComboBox2.ListIndex)))
End Sub

Attention : Feuil2 n'est pas toujours Sheets("Feuil2") !

[iliesss]

merci mon ami pour ta réponse

bonjour mon ami ordonc
merci beaucoup tu ma bien compris
ta réponse est la meilleure elle fonctionne très bien.