XL 2016 validation de donnees dans cellule

[KTM]

Bonjour tres cher forum
Grace a l'editeur VBA jai fais ce code de validation de donnees type Liste
Jaimerai avoir de l"aide pour le rendre plus beau et simple
Merci


Range("C2").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Protocoles"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

 

[Jacky67]

Bonjour tres cher forum
Grace a l'editeur VBA jai fais ce code de validation de donnees type Liste
Jaimerai avoir de l"aide pour le rendre plus beau et simple
Merci


Range("C2").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Protocoles"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

Bonjour,
Dans ce cas, ceci devrait être suffisant

With Sheets("Feuil1").[C2].Validation 'Adapter le nom de la feuille
.Delete
.Add Type:=xlValidateList, Formula1:="=Protocoles"
End With

 

[KTM]

Bonjour,
Dans ce cas, ceci devrait être suffisant

With Sheets("Feuil1").[C2].Validation 'Adapter le nom de la feuille
.Delete
.Add Type:=xlValidateList, Formula1:="=Protocoles"
End With

MERCI