Copier une liste déroulante sur plusieurs onglets

Bonsoir à tous,

Je désespères un peu je voudrai ajouter une liste déroulante sur l'ensemble de mes onglets du Worksbook (environs 500 onglets)

j'arrive bien sur à insérer ma liste de donnée sur un onglet mais si je dois répéter l'opération 500 fois je suis pas couché !

La liste se trouvera toujours dans la meme cellule sur tous les onglets du classeur. je penses qu'une bonne macro pourrais me faire ça, mais je tourne en rond pour trouver un bout de code qui pourrait me faire ca,

si vous avez des idées je suis preneur.

Pour info la liste de donnée =Sce_Enceinte et se trouvera sur La cellule D16

Bonjour,

Tu as cassé l'enregistreur de macro ?

Bah j ai bien essayé mais rien de franchement utilisable

Bah j ai bien essayé mais rien de franchement utilisable

Tu as implanté UserInterfaceOnly = True ?

ça devrait te faire quelquechose comme ça :

Sub galopin()
For i = x To Y '(régler x et Y en fonction de tes feuilles...
Worksheets(x).Protect Password:=[PWD], UserInterfaceOnly:=True
'ou Unprotect selon ce que tu as fait...
With Range("D16").Validation
   .Delete
   .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
   xlBetween, Formula1:="=Sce_Enceinte"
   .IgnoreBlank = True
   .InCellDropdown = True
   .ShowInput = True
   .ShowError = True
    End With
Next
End Sub

A+

Merci galopin de suivre toujours le dossier

j'en suis encore au unprotect....

mais je suis toujours sur l'ancienne version je vais basculer vers ma V3 en juillet....

je teste cela rapidement je vais l'adapter avec le DefBool ( je ne jure plus que par ca !! )

A bientôt !

Parfait merci !

DSL