Validation Date Application-defined Error

Version imprimable

25/03/2010, 10h03
Bonero

Validation Date Application-defined Error

Salut la communaute,
J ai une petite question pour vous ce matin.
Je veux parametrer la plage A1:A5 pour qu elle ne prenne que dees dates comprises entre 01/04/2010 et 30/04/2010. Jai mis la premiere date dans la cellule B6 et la deuxieme date dans la cellule C7.
L enregistreur de macro me donne: Formula1:
="=B", Formula2:="=C"
au lieu de :
Formula1:="=B6", Formula2:="=C7"
l enregistreur ignore de mettre les reference Lignes de mes cellules.
Le resultat est que quand j essaie d executer ma macro, j ai Aplication-defined error.

Merci de m aider a comprendre ce qui ne va pas.
Cordiallement.
Voici mon code:

Sub ValidationDate()

Range("A1:A5").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=B", Formula2:="=C"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "ValidDate"
.ErrorTitle = "Message d erreur "
.InputMessage = "le mois d avril"
.ErrorMessage = "que les dates d avril svp"
.ShowInput = True
.ShowError = True
End With
End Sub

Salut,
Sauf erreur de ma part, les Formula pour une Validation n'accepte pas une "formule" dans le code, je pense que tu dois passer par des variables qui récupèrent les valeurs contenues dans tes cellules.
Je verrais plutôt un truc du genre:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub ValidationDate()
 
Dim DateDeb As Date, DateFin As Date
 
DateDeb = Sheets("NomDeTaFeuille").Range("B6").Value
DateFin = Sheets("NomDeTaFeuille").Range("B7").Value
 
With Range("A1:A5").Validation
    .Delete
    .Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=DateDeb, Formula2:=DateFin
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = "ValidDate"
    .ErrorTitle = "Message d erreur "
    .InputMessage = "le mois d avril"
    .ErrorMessage = "que les dates d avril svp"
    .ShowInput = True
    .ShowError = True
End With
 
End Sub

A+

Merci pour ta prompte reponse,
je sais que je pouvais proceder de cette(ta) facon.
Mais je veux comprendre pourquoi VBA me retourne une erreur si je veux executer une macro que l enregistreur lui meme a produite.
Je precise que ces codes sont produits par l enregistreur et non par moi. Je precise egalement qu aucune erreur ne se produit a l enregistrement. L erreur survient quand je veux executer(cette fois-ci manuellement bien entendu) la meme macro.
Merci de m aider.
Citation:
Envoyé par Fvandermeulen
Salut,
Sauf erreur de ma part, les Formula pour une Validation n'accepte pas une "formule" dans le code, je pense que tu dois passer par des variables qui récupèrent les valeurs contenues dans tes cellules.
Je verrais plutôt un truc du genre:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub ValidationDate() Dim DateDeb As Date, DateFin As Date DateDeb = Sheets("NomDeTaFeuille").Range("B6").Value DateFin = Sheets("NomDeTaFeuille").Range("B7").Value With Range("A1:A5").Validation .Delete .Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=DateDeb, Formula2:=DateFin .IgnoreBlank = True .InCellDropdown = True .InputTitle = "ValidDate" .ErrorTitle = "Message d erreur " .InputMessage = "le mois d avril" .ErrorMessage = "que les dates d avril svp" .ShowInput = True .ShowError = True End With End Sub
A+

25/03/2010, 12h03
Fvandermeulen

Désolé, sur ce point je n'ai pas la réponse, il y a plusieurs cas comme ça, ou l'enregistreur n'est pas parfait...mais il faut toujours garder à l'esprit, même si le code fourni par l'enregistreur fonctionne après, c'est de l'adapter pour l'optimiser.

A+
25/03/2010, 12h29
Bonero

tu as parfaitement raison.
merci pour ton aide. je veins d en avoir la confirmation et
apparemment il y a le meme bug dans d autres versions d excel egalemt.
donc je ne revais pas . lol

merci.

Citation:

Envoyé par Fvandermeulen

Désolé, sur ce point je n'ai pas la réponse, il y a plusieurs cas comme ça, ou l'enregistreur n'est pas parfait...mais il faut toujours garder à l'esprit, même si le code fourni par l'enregistreur fonctionne après, c'est de l'adapter pour l'optimiser.

A+