Autoriser que les valeurs numerique dans une cellule

Tibo à dit:

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

@+

Cliquez pour agrandir...

barry white à dit:

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é

Code:

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

Cliquez pour agrandir...