pb sur la validation de caractère decimal dans une celulle en ma cr

Le
BntMICHEL
Bonjour,

Je souhaiterais executer en macro une validation de nombre decimale compris
entre 0,00 et 99,99 sur la colonne K8 jusqu a K8000 et j ai uen erreur
suivante
"erreur définie par l application ou par l objet"

voici le code que je fait

Sub test ()
Range("K8:K8000").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateDecimal, AlertStyle:=xlValidAlertStop,
Operator:=xlBetween, Formula1:="0,00", Formula2:="99,90"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Erreur de caractère"
.InputMessage = ""
.ErrorMessage = "Merci de saisir une virgule"
.ShowInput = True
.ShowError = True
End With

End Sud

merci pour votre aide

Cordialement
BntMICHEL
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
garnote
Le #4678181
Bonsoir,

Comme ceci, ça devrait aller.
Operator:=xlBetween, Formula1:="0.00", Formula2:="99.90"

Serge

"BntMICHEL"
Bonjour,

Je souhaiterais executer en macro une validation de nombre decimale compris
entre 0,00 et 99,99 sur la colonne K8 jusqu a K8000 et j ai uen erreur
suivante
"erreur définie par l application ou par l objet"

voici le code que je fait

Sub test ()
Range("K8:K8000").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateDecimal, AlertStyle:=xlValidAlertStop,
Operator:=xlBetween, Formula1:="0,00", Formula2:="99,90"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Erreur de caractère"
.InputMessage = ""
.ErrorMessage = "Merci de saisir une virgule"
.ShowInput = True
.ShowError = True
End With

End Sud

merci pour votre aide

Cordialement
BntMICHEL


BntMICHEL
Le #4678081
un grand merci cela fonctionne.


Bonsoir,

Comme ceci, ça devrait aller.
Operator:=xlBetween, Formula1:="0.00", Formula2:="99.90"

Serge

"BntMICHEL"
Bonjour,

Je souhaiterais executer en macro une validation de nombre decimale compris
entre 0,00 et 99,99 sur la colonne K8 jusqu a K8000 et j ai uen erreur
suivante
"erreur définie par l application ou par l objet"

voici le code que je fait

Sub test ()
Range("K8:K8000").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateDecimal, AlertStyle:=xlValidAlertStop,
Operator:=xlBetween, Formula1:="0,00", Formula2:="99,90"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Erreur de caractère"
.InputMessage = ""
.ErrorMessage = "Merci de saisir une virgule"
.ShowInput = True
.ShowError = True
End With

End Sud

merci pour votre aide

Cordialement
BntMICHEL







Publicité
Poster une réponse
Anonyme