Discussion :

[canard338]

Bonjour,

Je rencontre l'erreur 1004 sur la 3° ligne de ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=DECALER(Classe;1;0;5;1)"
        .IgnoreBlank = False
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = "Erreur"
        .InputMessage = ""
        .ErrorMessage = "Veuillez saisir une valeur dans la liste"
        .ShowInput = True
        .ShowError = True
    End With

Hors cette validation marche très bien quand je la saisis dans la boîte de dialogue. C'est même le code qui a été généré par l'enregistreur de macro.
Si je ne mets que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Formula1:="=Classe"

ça marche mais ce n'est pas ce que je veux.

Je ne comprends pas bien pourquoi.
Un peu d'aide sera la bienvenue.

Cdt, NC

[casefayere]

Bonjour,

testes comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.......:="=DECALER(" & Classe & ";1;0;5;1)"

[eriiic]

Bonjour,

en vba il faut écrire les formules en anglais et avec la , en séparateur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Decaler(;;;;) = Offset(,,,,)

eric

[casefayere]

Bonjour eriiic ,

en vba il faut écrire les formules en anglais et avec la , en séparateur.

Pas fait gaffe, merci pour lui

[canard338]

Oui c'était bien un coup des anglais !

Merci ça marche désormais.

Cdt, NC