Posez votre question Signaler

[excel vba] remplir un combobox [Résolu]

iliesss 44Messages postés 14 septembre 2010Date d'inscription 18 janvier 2012Dernière intervention - Dernière réponse le 28 déc. 2010 à 14:57

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

[excel vba] remplir un combobox »

Suggestions

[excel vba] remplir un combobox
[VBA] Combobox comment le remplir » Forum
Excel/VBA - Remplir ComboBox avec valeurs (Résolu) » Forum
[comment crée un fichier excel en VB] (Résolu) » Forum
Excel remplir une cellule en 1 clic avec VBA (Résolu) » Forum
Excel/VBA - Créer un "UserForm" dynamique (Résolu) » Forum

Plus

Réponse

lermite222 7380Messages postés 8 avril 2007Date d'inscription 25 mai 2012Dernière intervention 27 déc. 2010 à 17:34

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)

Ajouter un commentaire

iliesss- 28 déc. 2010 à 14:53

merci pour votre repense

Réponse

Iama 51Messages postés 13 janvier 2010Date d'inscription 6 janvier 2012Dernière intervention 27 déc. 2010 à 17:48

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

Ajouter un commentaire

iliesss- 28 déc. 2010 à 14:57

merci ça marche bien

Répondre au sujet

Posez votre question

Dossier à la une

Passage au tout numérique : quel coût pour les particuliers ?

Passage au tout numérique : quel coût pour les particuliers ?

Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.

[excel vba] remplir un combobox [Résolu]

[excel vba] remplir un combobox »

Passage au tout numérique : quel coût pour les particuliers ?