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.