Initialisation ComboBox

Question

J'ai un problème sur l'initialisation d'une ComboBox. Cette comboBox est situé dans une feuille Excel.

Voila mon code :

debut:
        cel = q.Range("AC" & a)
        a = a + 1
        If a = i Then GoTo Fin
        If cel = "Nom1" Then GoTo debut
        If cel = "Nom2" Then GoTo debut
        If cel = "" Then GoTo debut
        Windows("Fichier1.xls").Activate
        Sheets("FeuilleFichier1").Select
        ActiveSheet.Shapes("Drop Down 1").Select
        'la, je veux ajouter cel dans la comboBox'
        Windows("Fichier2.xls").Activate
         Sheets("FeuilleFichier2").Select
        GoTo debut
Fin:
    
    Workbooks(fichier).Close (SaveChanges = True)

La comboBox se situe dans le Fichier1, je désire l'initialiser avec du texte contenu dans des celulles du fichier2. Je place ce texte dans la variable cel.
Et je bloque pour l'insertion dans la comboBox.
A noter que j'ai testé avec ComboBox1.Additem cel mais cela ne marche pas. Je pense que c'est réservé pour les comboBox dans des formulaires.

chaibat05 · Answer

Bonsoir,
la variable cel doit être déclarée Public.
Pour preuve, essaies ComboBox1.Additem "Test" , 
tu constateras que "Test" s' ajoutea facilement.

chaibat05 · Answer

pardon , c' est pas ça...
Je pense que tu as omis de spécifier le nom de la feuille
ou se trouve ton combo, comme ceci
Sheets("FeuilleFichier1").Combo1.AddItem cel

cs_MPi · Answer

Je te conseillerais d'utiliser un Combobox de la barre d'outils Visual Basic plutôt que celui-ci.
Si tu tiens à utiliser ce contrôle, tu devras utiliser ses propriétés pour lui affecter un Range

MPi

drikce06 · Answer

Salut, et en plus de préciser la feuille précise le classeur aussi si ce sont différents classeurs!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

Initialisation ComboBox

4 réponses

Votre réponse

Discussions similaires