ComboBox Excel (VBA)

Question

Bonjour,   

Je souhaites insérer (en VBA) une liste déroulante avec choix dans un cellule sur une feuille excel.  

Et j'insiste bien : sur la feuille, et non par un formulaire.  

Sans passer par le code, dans la version 2007, on peut faire comme ceci :  
onglet données > validations des données autoriser liste > dans source taper les différents choix et ok. C'est exactement ce que je veux faire mais en passant par le code.

Pour un projet, je dois respecter ceci : 

"Dans la colonne qualification, permettez pour chacune des cellules, le choix entre : ADS (Agent de Sécurité), MC (Maitre chien) et SSIAP (Sécurité), on veut aussi pouvoir ajouter d'autre qualifications".  

Ce que j'ai codé:

Private Sub Workbook_Open()   
    Qualif        ' Met en place les listes pour la qualification   
End Sub  

Sub Qualif()  
    Dim ListQualif As Object ' La variable ListQualif est une liste  
    Set ListQualif = ComboBox  

    'Initialisation de la liste  
    With ListQualif  
        .AddItem "ADS"         ' Ajoute l'élément ADS à la liste : Agent de Sécurité  
        .AddItem "MC"          ' Ajoute l'élément MC à la liste  : Maître chien  
        .AddItem "SSIAP"       ' Ajoute l'élément SSSIAP à la liste  : Sécurtié  
    End With  
      
    Range("D11:D12") = ListQualif ' Les cellules de la colonne D (de la 11 à la 16ème ligne) recoivent la liste.  
      
End Sub  


Ce que j'obtient comme erreur:
Ceci est souligné "Set ListQualif = ComboBox  " et je lis: Objet requis  
 

Merci de votre aide !!  
Configuration: Ubuntu 11.04 / Firefox 4.0.1

Clemzd · Answer

S'il vous plaît, quelqu'un pourrait t'il m'aider ?

michel_m · Answer

Bonjour   

 instructions pour créer un combo à l'emplacement d'une cellule(ici D10) et de taille égale à sa hauteur et largeur   

<Erreur: il s"agissait d'un combo formulaire... Excuses moi

Clemzd · Answer

En quoi ce message peut-il m'être utile ? 
Merci de votre aide !

michel_m · Answer

Je me suis trompé! c'est tout 
Effectivement ce message ne peut pas t-' être utile... 
Excuses moi de t' avoir dérangé en essayant de t'aider; rassures toi ca ne se reproduira plus
Merci de ton dédain 
Adieu

Bidouilleu_R · Answer

Sans passer par le code, dans la version 2007, on peut faire comme ceci :  
onglet données > validations des données autoriser liste > dans source taper les différents choix et ok. C'est exactement ce que je veux faire mais en passant par le code.  

pour avoir une liste déroulante.... tu peux : 

utiliser un Combobox sur un formulaire ( je sais tu n'en veux pas) 
un combobox sur une feuille ( c'est ce que tu crois vouloir mais c'est quand même pas ça) 

ou 
une liste de validation de données ( c'est ça que tu souhaites avoir)
mais là ça va être dur!!!

ce que tu as programmé est faux. 
je t'encourage, selon tes contraintes à revoir la rubrique "validation" dans l'aide. 

bonne journée.

ComboBox Excel (VBA)

5 réponses

Newsletters