Discussion :

[ishaq74]

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 :

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

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.

[Pierre Fauconnier]

Salut.

Je n'ai rien compris ^^

[78chris]

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 :

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

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""; """")"

[ishaq74]

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.

[Pierre Fauconnier]

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 :

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

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 :

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

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

Voir ma contribution pour l'explication

[ishaq74]

Code :

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

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 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.

[Pierre Fauconnier]

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

Code excel :

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

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