Condition de validation avec une formule

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:

---

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:

---

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.

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:

---

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.

Bonjour Eric,

Merci infiniment. Ca fonctionne bien avec ce code

Code:

---

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.