XL 2016 validation de donnees dans cellule

KTM

XLDnaute Impliqué
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

XLDnaute Barbatruc
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
VB:
With Sheets("Feuil1").[C2].Validation 'Adapter le nom de la feuille
.Delete
.Add Type:=xlValidateList, Formula1:="=Protocoles"
End With
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 847
dernier inscrit
Djigbenou