Formule VBA avec variable à l'ensemble d'une colonne en fonction de la ligne

Bonjour,

Je souhaite créer une colonne avec en-tete et format OK
Appliquer une formule et l'étendre sur toute la colonne OK

La ou je bloque, c'est comment faire de "BF3" une variable en fonction de la ligne.


(BX= VOIE POSTAL et BF= la valeur à modifier) 3 avec 3, 4 avec 4 etc.. et non pas qu'elle recopie simplement la formule qui contient "BF3" a l'ensemble de colonne.

Mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub ajouter_colonne()   Dim ws As Worksheet Set ws = ActiveSheet Dim tbl As ListObject Set tbl = ws.ListObjects("Tableau1")   tbl.ListColumns.Add.Name = "VOIE POSTAL" 'créer une colonne et lui donne un nom en tete tbl.DataBodyRange.NumberFormat = "General" 'decide du format des cellules de la colonne   Range("Tableau1[VOIE POSTAL]").Formula = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(ws.Range("BF3").Value, "1", ""), "2", ""), "3", ""), "4", ""), "5", ""), "6", ""), "7", ""), "8", ""), "9", ""), "0", "")   End Sub

---

Merci pour votre temps et vos éclairages.

Salut.

Je n'ai rien compris ^^

Bonjour à tous

Pas bien compris non plus mais quelques remarques

Le texte d'une formule doit être entre "" sinon c'est le résultat et non la formule qui est inscrit

Si une variable doit être introduite, le texte de la formule doit être découpé afin de concaténer la variable

Ce qui donnerait par exemple

Code:

---

1 2

Range("Tableau1[VOIE POSTAL]").FormulaLocal = "=SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(" _ & ws.Range("BF3").Address & "; ""1""; """"); ""2""; """"); ""3""; """"); ""4""; """"); ""5""; """"); ""6""; """"); ""7""; """"); ""8""; """"); ""9""; """"); ""0""; """")"

---

Arf, merci quand même. Je vais tacher d’être plus clair.

Mon code fonctionne, il ne faut surtout pas mettre de guillemet justement, je veux le résultat de la formule.

Et cela marche parfaitement pour la ligne 3. Cependant, la formule s’étend sur toute la colonne. Alors je souhaite qu’à la ligne 4, ma formule «*devine*» qu’il faut qu’elle modifie dans ma formule «*BF3*» en «*BF4*» tout simplement.

Ton idee de concaténation ne me semble pas résoudre ce problème, puisque tu indiques quand même «*BF3*», tu ne transformes pas cette partie en variable.

Le code de Chris fonctionne presque puisque l'on passe la formule. Elle va donc s'appliquer à toute la colonne (un peu comme si tu saisissais la formule dans Excel


Par contre, Range("BF3").Address inclut l'adresse Absolue ($BF$3) dans la formule. Pour que BF3 s'incrémente automatiquement, il faudrait utiliser Range("BF3").Address(False, False). Perso, j'aurais saisi directement BF3 dans le texte. De plus, il n'est pas nécessaire d'encadrer les chiffres:

Code:

---

Range("tableau1[voie postal]").Formula = "=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(BF3,1,""""),2,""""),3,""""),4,""""),5,""""),6,""""),7,""""),8,""""),9,""""),0,"""")"

---

Tu ne spécifies pas ta version. Pour la 365, tu pourrais utiliser REDUCE et LAMBDA...

Code:

---

Range("tableau1[voie postal]").Formula = "=REDUCE(BF3,{1;2;3;4;5;6;7;8;9;0},LAMBDA(a,b,SUBSTITUTE(a,b,"""")))"

---

Pièce jointe 615768


Voir ma contribution pour l'explication

Citation:

---

Envoyé par Pierre Fauconnier

Code:

---

Range("tableau1[voie postal]").Formula = "=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(BF3,1,""""),2,""""),3,""""),4,""""),5,""""),6,""""),7,""""),8,""""),9,""""),0,"""")"

---

---

Merci, j'ai pas 365 :aie: la formule fonctionne parfaitement cependant lorsque je veux faire avec une lettre, comment dois-je gérer mes quotes ? parce que si je mets "A" la formule ne fonctionne plus.

J'ai testé le rangebf3.address(false, false) cela ne fonctionne pas.

Tu dois doubler les quotes qui entourent le texte, comme Chris l'avait fait dans sa formule.

Code:

---

...FormulaLocal = "substitue(substitue(bf3,""a"","""");""b"",""""))

---