[Excel Liste déroulante VBA Résolu/Fermé

Question

Bonjour, 

J'aimerai savoir comment faire pour créer une liste déroulante à partir de valeurs présentes dans une même feuille en VBA.
Je sais la créer à partir de "données> validation> liste" mais j'aimerai pouvoir la créer directement à l'aide d'une macro.

En fait dans mon programme, l'utilisateur est invité a saisir des données concernant des produits et après une vérification le programme indique quels sont les champs erronés (ils sont comparés avec une base de données située sur la même feuille).
Et ce que je souhaite c'est qu'après cette vérification, les cellules des champs erronés dispose d'une liste déroulante proposant à l'utilisateur de choisir parmi les choix de la base de donnée.

Ex : Je demande tout d'abord la marque du téléphone de l'utilisateur. Son choix est libre dans un premier temps. Si il rentre "dsijf" cette marque n'étant pas répertoriée, le champ correspondant est affiché en rouge et j'aimerai pouvoir mettre une liste déroulante dans ce champ afin qu'il est le choix entre les marques répertoriée plus bas dans la feuille.


J'espère ne pas avoir été trop confus :P

Merci d'avance.

ps: je suis sous Excel 2003


Configuration: Windows 7 / Safari 536.5

Christof422 · Accepted Answer

'Sélection de la case qui doit contenir la liste
Cells(1, 5).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$A$1:$A$8"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "Sélection"
        .ErrorTitle = ""
        .InputMessage = "Choisissez une valeur"
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Christof422 · Answer

ActiveSheet.DropDowns.Add(246, 28.5, 57, 15.75).Select
    With Selection
        .ListFillRange = "$A$1:$A$8"
        .LinkedCell = "$A$9"
        .DropDownLines = 8
        .Display3DShading = False
    End With

Entre les parenthèse se trouve la taille et la position de la liste
listfillrange se trouve la plage de cellule qui vont remplir la liste
.linkedcell se trouve la cellule qui va prendre la valeur sélectionner dans la liste
dropdownline= nombre de ligne
display3dsading= image ombré en 3d (visuel)

Triton circus · Answer

Merci bien, sur le principe c'est ce que je cherche. Mais est-il possible d'avoir une liste "incrustée" dans la cellule et non une "image" au premier plan.
C'est assez délicat de gérer la position avec ses coordonnées.

eriiic · Answer

Bonsoir,

Le mieux est de faire ta validation avec =liste1
liste1 étant un nom que tu auras défini sur une autre feuille 'Listes', sur A1:A3 par exemple.

En vba tu inscris ta liste validée dans Listes!A1:A15 (si tu as 15 éléments) et tu redéfinis la plage de la liste :
ActiveWorkbook.Names.Item("liste1").RefersTo = [Listes!A1:A15]

eric

Triton circus · Answer

Merci beaucoup Christof422 c'est exactement ce que je cherchais !!

Merci pour la rapidité et l'efficacité ;) je marque le sujet "résolu"

A+

[Excel Liste déroulante VBA

5 réponses

Discussions similaires