Inserer une formule EXCEl "=DECALER" dans une case en vba
Bonjour,
Je construis dynamiquement une feuille de saisie en fonction de type d'opération.
Dans les champs à fournir , je désire proposer une liste déroulante avec la possibilité de sélection en fonction de la première lettre.
Cette liste est positionnée dans des cases différentes selon les opérations.
J'ai essayé cet formulation mais elle me retourne une erreur :
Code:
1
2
3
4
5
6
7
8
9
10
| case = active.cell
laliste=feuilledata.range("a1:a999")
laformule= "=Decaler(laliste;equiv(case;laliste;0);;)"
Feuillexxx.range(case).select
with selection.validation
.delete
.add Type:=xlvalidatelist, Alertstyle:=xlvalidalertstop, operator:=xlbetween, _
Formula1:=laformule
.showerror = false
end with |
Une idée ???? Merci d'avance
