Modifier Liste validation VBA

[fileofish]

Bonjour le forum

J'ai besoin de vous car je suis bloqué sur un point.
je souhaite modifier par VBA une liste de validation mais visiblement ca bloque 😕

range("BO26").Select
application.CutCopyMode = False
With selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:= _
"=DECALER($R$1002;EQUIV($G$17;$Q:$Q;0)-2;0;NB.SI($Q:$Q;$G$17);1)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

Quelqu'un aurait-il une solution?
Merci d'avance
Philippe

 

[fileofish]

je viens également d'essayer cela mais ca ne fonctionne pas !


With selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:= _
"=offset($R$1002,Application.Match($G$17,$Q:$Q,0)-2;0,countif($Q:$Q,$G$17),1)"

 

[fileofish]

Comme cela non plus çà ne fonctionne pas !
Je ne comprends pas pourquoi çà bloque 😵😵😵


range("BO26").Select
application.CutCopyMode = False
With selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:= _
"=OFFSET(R2C18,MATCH(R18C7,C17,0)-2,0,COUNTIF(C17,R18C7),1)"

 

[Dranreb]

Bonjour.
Tout essayé, sauf la bonne, quoi !
La dernière mais en notation A1, un peu comme la précédente, et non en R1C1.
Attention: mes souvenir me rappellent que les formules de MeFC sont peut être restées, bizarrement, en A1 local. Donc en français.
Mais dans ce cas, le tout 1er code devrait marcher…
Mais je confond les listes de validation avec les MeFC, n'importe quoi…

 

[fileofish]

Bonjour Dranreb,

Merci pour ta réponse mais je viens d'essayer cela mais ca ne fonctionne pas.


range("BO26").Select
application.CutCopyMode = False
With selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:= _
"=OFFSET($R$2;MATCH($G$18;$Q:$Q;0)-2;0;COUNTIF($Q:$Q;$G$18);1)"


Est ce cela que tu évoquais ?
merci
Philippe

 

[Dranreb]

Ce n'est pas de la notation A1 native ça. C'est un mélange de A1 natif et de A1 local. Ce qui pêche ce sont les ';' au lieu de ','.