Excel - Liste déroulante en VBA

Question

Bonjour,  


Je dois actuellement développer un outil comportant (en autre), une liste déroulante s'affichant sous conditions. 
Pour ça, pas de problème quand je passe par l'outil de création des listes déroulantes, à l'aide d'une fonction IF et de plages de cellules. 

Cependant, j'aimerai créer ces listes déroulantes en passant par une macro. Et là, j'ai un rapport de bug s'affichant au niveau de la formule .Add et ce jusqu'à la fin du IF. 

Voici le code (les données ont été changées par soucis de confidentialité et de lisibilité, je ne travaille pas sur des fruits :p) 



    Columns("K:K").Select 
    ActiveWindow.SmallScroll Down:=-24 
    With Selection.Validation 
        .Delete 
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 
        xlBetween, Formula1:= _ 
        "=IF(E2=""Poire"";Poire;IF(E2=""Pomme"";Pomme;IF(E2=""Abricot"";Abricot;IF(E2=""Melon"";Melon;IF(E2=""Orange"";Orange;IF(E2=Kiwi;Kiwi;IF(E2=""Litchi"";Litchi;IF(E2=""Raisin"";Raisin;IF(E2=""Banane"";Banane;"""")))))))))" 
        .IgnoreBlank = True 
        .InCellDropdown = True 
        .ShowInput = True 
        .ShowError = True 
    End With 
    Range("K5").Select 




Merci d'avance pour votre précieuse aide! 


Configuration: Windows 7 / Chrome 23.0.1271.91

michel_m · Answer

Bonjour 

tu choisiS Operator:= _ xlBetween   

et tu écris une formule.... 
 formule d'ailleurs bizarre 

"=IF(E2=""Poire"";Poire...

Poire sans guillemets est une variable ?
 Michel

Garbure64 · Answer

Bonjour Michel,

Je ne me suis pas fatigué, vu que je ne maîtrise pas je suis passé par l'enregistreur de macros! Je voulais bricoler à partir de ça, mais vu que rien que la base ne fonctionne pas je suis bien embêté.

Excel - Liste déroulante en VBA

2 réponses

Discussions similaires

Newsletters