pb sur la validation de caractère decimal dans une celulle en ma cr
2 réponses
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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
Bonsoir,
Comme ceci, ça devrait aller.
Operator:=xlBetween, Formula1:="0.00", Formula2:="99.90"
Serge
"BntMICHEL" <BntMICHEL@discussions.microsoft.com> a écrit dans le message de news:
9F8AADE8-6111-427C-A2CD-991AE8A4B468@microsoft.com...
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
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
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
un grand merci cela fonctionne.
Bonsoir,
Comme ceci, ça devrait aller.
Operator:=xlBetween, Formula1:="0.00", Formula2:="99.90"
Serge
"BntMICHEL" <BntMICHEL@discussions.microsoft.com> a écrit dans le message de news:
9F8AADE8-6111-427C-A2CD-991AE8A4B468@microsoft.com...
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
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