Bonjour,
J'ai un tableau excel avec de nombreuses feuilles contenant toutes la même structure. Je souhaiterais appliquer une validation de données sur plusieurs feuilles sélectionnées manuellement. Je précise que je souhaite faire une sélection manuelle car j'ai de nombreuses feuilles mais que ma validation de données ne sera pas identique en fonction de mes feuilles.
Pour cela j'ai réalisé ce code :
Mais j'ai un message d'erreur dès que je sélectionne plusieurs onglets:
et la ligne
Qu'est-ce qui ne va pas dans mon code?
Merci d'avance.
J'ai un tableau excel avec de nombreuses feuilles contenant toutes la même structure. Je souhaiterais appliquer une validation de données sur plusieurs feuilles sélectionnées manuellement. Je précise que je souhaite faire une sélection manuelle car j'ai de nombreuses feuilles mais que ma validation de données ne sera pas identique en fonction de mes feuilles.
Pour cela j'ai réalisé ce code :
Code:
Sub ValidDate()
Dim Ws As Worksheet
For Each Ws In ActiveWindow.SelectedSheets
With Ws.Range("A2:A10").Validation
.Delete
.Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="01/01/2013", Formula2:="01/01/2014"
.ErrorMessage = "La date doit être comprise entre le 01/01/2013 et le 31/12/2013"
End With
Next Ws
End Sub
Mais j'ai un message d'erreur dès que je sélectionne plusieurs onglets:
Erreur d'exécution '1004'
Erreur définie par l'application ou par l'objet
et la ligne
est surlignée.Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="01/01/2013", Formula2:="01/01/2014"
Qu'est-ce qui ne va pas dans mon code?
Merci d'avance.