Autoriser que les valeurs numerique dans une cellule

[barry white]

Bonjour,

je chercher la solution mais je ne le atrouve pas. c'est pour ca que je suis ici 😀

Je voudrais dans un cellule, autoriser l'utilisateur de saisire 0% ou 100%, ou si ce n'est pas possible, c'est de t'autoriser que les valeurs numerique.

comment on fait? merci d'avance.

 

[Tibo]

Re : Autoriser que les valeurs numerique dans une cellule

Bonjour,

Essaye avec :

Données - Validation - Autoriser : Personnalisé - Formule : =OU(A1=0;A1=1)

Valable pour les versions avant 2007. Sur 2007, je ne sais pas exactement où se trouve le menu Validation.

Je te laisse essayer

@+

 

[barry white]

Re : Autoriser que les valeurs numerique dans une cellule

nikel merci, mais quand je fais un enregistrement de macro avec la manip que tu m as donnée, et que je fais un exceution de cette macro il me dit "( Erreur d'execution 1004) Erreur définie par l'application ou par l'objet". en rouge l'erreur apparament détecté

Sub test_cellule()
    
    With Selection.Validation
        .Delete
       [SIZE="2"][COLOR="Red"]Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=ou(G2=0;G2=1)"[/COLOR][/SIZE].
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    ActiveCell.SpecialCells(xlCellTypeSameValidation).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=OU(G2=0;G2=1)"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

 

[barry white]

Re : Autoriser que les valeurs numerique dans une cellule

Personnes aurai une idée?😕

 

[James007]

Re : Autoriser que les valeurs numerique dans une cellule

Bonjour,

As-tu essayé la Validation :
Données - Validation - Autoriser : Personnalisé - Formule :
=ESTNUM(A1)

A +

 

[barry white]

Re : Autoriser que les valeurs numerique dans une cellule

ca donne pas ce que je veux. Effectivement on peu saisir de lettre mais on peux metre par exemple 45%. Moi je veux laisser le choix que de saisir 0% ou 100%. la formule donner plus haut fonctionne, mais pas sous une macro. enfin j ai du mal ecrire aussi.

 

[barry white]

Re : Autoriser que les valeurs numerique dans une cellule

Bonjour,

Essaye avec :

Données - Validation - Autoriser : Personnalisé - Formule : =OU(A1=0;A1=1)

Valable pour les versions avant 2007. Sur 2007, je ne sais pas exactement où se trouve le menu Validation.

Je te laisse essayer

@+

sa serai quoi la valeur a saisir pour une plage?

 

[barry white]

Re : Autoriser que les valeurs numerique dans une cellule

nikel merci, mais quand je fais un enregistrement de macro avec la manip que tu m as donnée, et que je fais un exceution de cette macro il me dit "( Erreur d'execution 1004) Erreur définie par l'application ou par l'objet". en rouge l'erreur apparament détecté

Sub test_cellule()
    
    With Selection.Validation
        .Delete
       [SIZE="2"][COLOR="Red"]Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=ou(G2=0;G2=1)"[/COLOR][/SIZE].
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    ActiveCell.SpecialCells(xlCellTypeSameValidation).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=OU(G2=0;G2=1)"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

bon je pense savoir quels est mon erreur, c'est que j ai saisie l'operateur "OU". Mais je remplace cette valeur par OR ou XLOR et sa ne fonctionne pas non plus. Help Les amis excliens... ;-)

 

[barry white]

Re : Autoriser que les valeurs numerique dans une cellule

personnes a deja rencontré ce genre de pb?

 

[BOISGONTIER]

Re : Autoriser que les valeurs numerique dans une cellule

Bonsoir,

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, _
            Operator:=xlBetween, Formula1[B]:="=or(G2=0,G2=1)"[/B]
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

JB
Formation Excel VBA JB