Liste de validation

S'il y a SUR dans la feuille dans la plage des celllues avec une validation
A adapter :

Sub zzz()
With [A2:D50].SpecialCells(xlCellTypeAllValidation).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=
_
xlBetween, Formula1:="=maListe"
End With
End Sub

AV

Bonsoir le Forum,

merci AV,

j'en était pratiquement arrivé là, avec l'enregistreur, puis je me suis
perdu
dans les listes entre le classeur source et la feuille "Modèle".

Je relancerais ce post.

Bonne nuit.
Jipé


"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
%23q5FPd0KGHA.3936@TK2MSFTNGP12.phx.gbl...

S'il y a SUR dans la feuille dans la plage des celllues avec une
validation
A adapter :

Sub zzz()
With [A2:D50].SpecialCells(xlCellTypeAllValidation).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator: > _
xlBetween, Formula1:="=maListe"
End With
End Sub

AV