Menu déroulant VB Validation des cellules

[Hellowa]

Bonjour à tous, bonjour le forum
Je viens (encore une fois ^^ ) solliciter votre aide. Je m'explique, je suis entrain de créer un fichier qui va placer dans de nombreuses cellule un menu déroulant.
J'ai donc créé une première macro qui séléctionne une a une les cellules, puis qui appelle une sous macro qui est la suivante:

Sub menu_deroul()
'Macro crée par Hellowa pour le forum XlD
'

'
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=[COLOR="Red"][B]FORMULE DU MENU DEROULANT[/B][/COLOR]
        
        
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = False
        .ShowError = False
    End With
End Sub

C'est donc une macro que j'ai enregistrée.
J'avais auparravant créé une liste grâce à l'insertion des données, mais une fois sur 2, elle m'affichait un message d'erreur, et il fallait que je recharge cette liste.

Mon problème est le suivant. Les données qui doivent être présentes dans le menu déroulant sont situées sur la plage "A2:A*" ( Bref, c'est extensible!!)
Peut on entrer directement la formule de la liste plutot qu'appeler un nom déjà créé?
Quelqu'un pourrai me rafraichir la mémoire s'il vous plait!😀
Merci d'avance!

 

[job75]

Re : Menu déroulant VB Validation des cellules

Bonjour Hellowa,

Edit : Je n'avais pas compris, je revois la question...
A+

 

[job75]

Re : Menu déroulant VB Validation des cellules

Re,

1) Définir (menu Insertion-Nom) le nom Liste avec la formule :

=DECALER(Feuil1!$A$2;;;NBVAL(Feuil1!$A:$A)-1) ===> -1 s'il y a quelque chose en A1

2) utiliser le code :

With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=Liste"
 End With

Mais pour travailler sur une plage, définir la cellule courante cel avec une boucle For Each cel In... et remplacer dans le code Selection par cel.

Edition : on peut aussi écrire directement :

.Add Type:=xlValidateList, Formula1:="=OFFSET($A$2,,,COUNTA($A:$A)-1)"

A+

 

[Hellowa]

Re : Menu déroulant VB Validation des cellules

Merci mille fois, en effet c'est la deuxième solution que je cherchais!
Je ne voulais plus utiliser de nom "Liste", celà était sujet à trop de bugs.
Encore merci!

 

[Hellowa]

Re : Menu déroulant VB Validation des cellules

En fait mon problème venait du fait que je mettais des ";" au lieu de ","
Damned, satanés petite différences entre les formules des cellules et celles de VB!!