Discussion :

[MarcClap]

Bonjour,

J'ai besoin d'ajouter une condition de validation par macro. J'ai donc lancé l'enregistreur de macro pendant que je faisais la manip manuellement pour obtenir la syntaxe de l'instruction.

Le généré est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
        Formula1:="=DECALER(RIBs;EQUIV(A2;Vendeurs;0)-1;0;NB.SI(Vendeurs;A2))"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Quand je cherche à rejouer la macro enregistrée qui bloque sur l'instruction ci dessous avec le code "Erreur d'exécution '1004' : Erreur définie par l'application ou par l'objet"

Code :

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

1
2
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
        Formula1:="=DECALER(RIBs;EQUIV(A2;Vendeurs;0)-1;0;NB.SI(Vendeurs;A2))"

J'ai essayé d'angliciser la formule en utilisant les fonctions OFFSET, MATCH et COUNTIF mais ça ne marche pas plus.

Quelqu'un pourrait me dire comment faire ?

Je précise au cas où, que la condition de validation placée pendant l'enregistrement de la macro fonctionne correctement

D'avance merci.

[EricDgn]

Bonjour,
Non testé: mettre la formule en anglais, et remplacer les ; par des ,
Sinon, voir aussi cette page qui propose 2 fonctions de conversion:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'--- Convert localized formula to English formula:
Public Function TranslateFormula_LocalToGeneric(ByVal iFormula As String) As String
    Names.Add "temporaryFormula", RefersToLocal:=iFormula
    TranslateFormula_LocalToGeneric = Names("temporaryFormula").RefersTo
    Names("temporaryFormula").Delete
End Function
 
'--- Convert English formula to localized formula:
Public Function TranslateFormula_GenericToLocal(ByVal iFormula As String) As String
    Names.Add "temporaryFormula", RefersTo:=iFormula
    TranslateFormula_GenericToLocal = Names("temporaryFormula").RefersToLocal
    Names("temporaryFormula").Delete
End Function

Cordialement.

[MarcClap]

Bonjour Eric,

Merci infiniment. Ca fonctionne bien avec ce code

Code :

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

1
2
3
4
 
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:= _
        "=OFFSET(RIBs,MATCH(A2,Vendeurs,0)-1,0,COUNTIF(Vendeurs,A2))"

Je clos le sujet.