[excel vba] remplir un combobox

Résolu/Fermé

iliesss Messages postés 113 Date d'inscription mardi 14 septembre 2010 Statut Membre Dernière intervention 26 octobre 2014 - 27 déc. 2010 à 17:02
iliesss Messages postés 113 Date d'inscription mardi 14 septembre 2010 Statut Membre Dernière intervention 26 octobre 2014 - 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

A voir également:

[excel vba] remplir un combobox
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Remplir et signer pdf - Guide

2 réponses

Réponse 1 / 2

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 27/12/2010 à 17:36

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)

iliesss Messages postés 113 Date d'inscription mardi 14 septembre 2010 Statut Membre Dernière intervention 26 octobre 2014
28 déc. 2010 à 14:53

merci pour votre repense

Réponse 2 / 2

Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 14
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

iliesss Messages postés 113 Date d'inscription mardi 14 septembre 2010 Statut Membre Dernière intervention 26 octobre 2014
28 déc. 2010 à 14:57

merci ça marche bien

Discussions similaires

Remplir une cellule (texte) en fonction d'une autre (texte).

Discussions similaires

Newsletters