Liste de validation dynamique par macro

[cheyenne63]

Bonjour

Dans le doc joint, dans l’onglet Param, une zone nommée dynamique (nommée DYNA)
Je souhaiterai qu’en feuille 2, PAR MACRO, quand je me place sur une cellule et par le raccourci clavier ctrl+m, une liste de validation (alimentée par DYNA) soit créée dans la dite cellule, celle-ci alimentée, vous vous en doutez par ladite zone nommée DYNA …
Donc le tout par macro, au cas par cas, juste en cas de besoin, sur la cellule préalablement sélectionnée

Merci d'avance et bonne journée

 

[phlaurent55]

Re : Liste de validation dynamique par macro

Bonjour Cheyenne,

voir fichier joint

à+
Philippe

 

[vgendron]

Re : Liste de validation dynamique par macro

Bonjour
hello Philippe... plus rapide que moi ;-)

Avec l'enregistreur de macro tu obtiens ce code à placer dans un module standard

Sub Macro1()
'
' Macro1 Macro
'

'
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=DYNA"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    
End Sub

pour affecter le raccourci:
Alt+F8
Option: Ctrl m

et voila...

 

[cheyenne63]

Re : Liste de validation dynamique par macro

Quelle nulle, j'avais écrit Formula1:="DYNA" en oubliant le 2° "=" c'est pour ça que ça voulait pas
Y a des fois ... je te jure ...
Merci beaucoup en tout cas et bonne soirée