Discussion :

[marc_proxi]

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 :

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

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 :

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.

[Philippe Tulliez]

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

Code :

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

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