[excel vba] remplir un combobox Résolu

Question

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 :

Private Sub UserForm_activate()
ComboBox2.AddItem ("caisse")
ComboBox2.AddItem ("banque")
ComboBox2.AddItem ("chèque")
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 
http://www.cijoint.fr/cjlink.php?file=cj201012/cijRqvYelp.xls

lermite222 · Answer

Bonjour, 
Pour remplir le Combo c'est bon sauf qu'y faut pas de parenthèse 
Pour savoir sur quoi ont a cliquer c'est dans l'événement Change ou Clic 
En mode Design tu double clic sur le combo, tu va arriver dans le code de l'UF avec... 
Private Sub ComboBox1_Click() 

End Sub

Le code pour savoir sur quel ligne... 
Private Sub ComboBox1_Click() 
    Select Case ComboBox1.ListIndex 
    Case 0 'caisse 
        Sheets("Feuil2").Range("A1").Select 
    Case 1 'banque 
     
    Case 2 'chèque 
     
    Case 3 'versement 
     
    End Select 
End Sub

A+ 
L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

Iama · Answer

Bonsoirs 

Cela marche et je pense que cela correspond à ta question 

Private Sub ComboBox2_Change()

If ComboBox2.Value = "caisse" Then
ThisWorkbook.Sheets("Feuil2").Select
Range("A1").Select

End If
End Sub


A adapter bien sur

Iama

[excel vba] remplir un combobox

2 réponses

Newsletters