XL 2016 validation de donnees dans cellule

KTM à dit:

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

Cliquez pour agrandir...

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

Jacky67 à dit:

Bonjour,
Dans ce cas, ceci devrait être suffisant

VB:

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

Cliquez pour agrandir...