Discussion :

[schoret11]

Bonjour,

J'essaie via l'enregistreur de macro d'excel de faire une liste de validation de données
j'obtiens une erreur 1004

ma formule =decaler(NOM;;;nb.si(NOM;"><")) fonctionne pourtant bien avec excel ...

voici la modeste macro
----------------------------------

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub menu_auto()
 
With Range("O13").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=DECALER(NOM;;;NB.SI(NOM;""><""))"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

-----------------------------------
J'ai également essayer de traduire ma formule en anglais qui donne

Code :

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

=offset(NOM;;;countif(NOM;"><"))

et sa fonctionne pas non plus.

merci de votre aide.

[joe.levrai]

Bonjour,

la propriété Formula1 attend bien une chaine de caractère matérialisant la formule Excel... à écrire en anglais.

Mais tu l'as mal rédigée, les ; (points virgules) doivent être remplacés par des , (virgules)

[schoret11]

Merci de votre aide.

j'ai changé les points-virgules pour des virgules comme vous le proposé
et encore le même message d'erreur ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub menu_auto()
    With Range("O13").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:= _
        "=offset(nom,,,countif(nom,""><""))"      
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

[schoret11]

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=OFFSET(NOM,,,COUNTIF(NOM,""><""))"



Merci beaucoups