Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

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

2 réponses
Avatar
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

2 réponses

Avatar
garnote
Bonsoir,

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

Serge

"BntMICHEL" a écrit dans le message de news:

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


Avatar
BntMICHEL
un grand merci cela fonctionne.


Bonsoir,

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

Serge

"BntMICHEL" a écrit dans le message de news:

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