copie données celulles en VBA

Bonjour,

J'ai un tableau avec plusieurs colonnes.
Les colonnes C : Projet_mig et I : GENERAL_Mass_Market sont vides.

Je désire y copier des formules avec le code suivant :

Code:

---

1 2 3 4 5

Range("C2").Select Range("Table_ot_lead[projet_mig]").FormulaR1C1 = "= RIGHT(Table_ot_lead[@[Wo Name]],9)"   Range("I2").Select Range("Table_ot_lead[GENERAL_Mass_Market]").FormulaR1C1 = "= RIGHT(MID([@[Wo Description]];FIND(""GENERAL"";[@[Wo Description]];1);23);2)"

---

Pour la copie dans la colonne C pas de problème/
Pour la copie dans la colonne I je reçois un message d'erreur :

Citation:

---

1004 Method'Range' of object'_global' failed

---

Si je place un espace entre " et = pour la colonne I , je n'ai plus d'erreur mais le texte est bien collé dans la colonne sans être calculé.

Quelqu'un a-t-il une idée?

Merci.

Bonjour,
Pour écrire une formule dans un tableau structuré, il y plusieurs méthodes.
En voici une

Code:

---

1 2 3 4 5 6 7 8

Sub T() Dim oSheet As Worksheet Dim oList As ListObject Set oSheet = ThisWorkbook.Worksheets("Feuil1") ' Feuille où se trouve le tableau structuré nommé Table_ot_lead Set oList = oSheet.ListObjects("Table_ot_lead") oList.ListColumns("projet_mig").DataBodyRange.Formula = "=RIGHT([@[Wo Name]],9)" Set oSheet = Nothing: Set oList = Nothing End Sub

---

En VBA, il est inutile d'utiliser la méthode Select