dmd info sur variable vba

bonjour

je vooudrai pouvoir appeler des variables dans une procedure, qui feraient références a des zones du style : sheets("Donnees").range("TCD1")

J'ai fait plusieurs essais et a chaque fois j'ai des "" au debut et à la fin de la variable ce qui me donne une erreur d'execution (ce qui est normal)

Auriez vous une solution svp

une partie du code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Donnee = "sheets(""DONNEES"").Range(""TCD1"")" Dest = "sheets(""Graphes"").Range(""B3"")" var1 = "PotHA"     ' ********************************************************************************************** ' Creation d'un tableau croisé dynamique CAPdm ' **********************************************************************************************   Set CacheTCD = ActiveWorkbook.PivotCaches.Add _ (SourceType:=xlDatabase, SourceData:=Donnee) ' ' Creation d'un TCD à partir du cache ' For Each feuille In Worksheets If feuille.Name = "Graphes" Then feuille.Activate Set TCD = CacheTCD.CreatePivotTable _ (tabledestination:=Dest, tablename:="TCDCaPdm") End If Next feuille

---

merci d'avance pour votre aide

Bonjour,

Tu parles des plages d'etiquettes, si oui tu peux faire :

Code:

---

Donnee = [TCD1]

---

Pour boucler sur les etiquettes :

Code:

---

1 2 3 4 5

Dim xname As Name ' Boucle sur les names pour vérifier l'existence de... For Each xname In Names debug.print xname.NameLocal Next xname

---

bonjour,

a vrai dire, je voudrais faire une procedure, pour créer plusieurs tableau croisée dynamique en boucle

la procedure fonctionne bien pour un tableau. Au lieu de recopier 20 fois la procedure, je voudrais declarer des variables en public du style
Var1, Var2, Var3,.....
et mettant les zones voulues et
pouvoir lancer en boucle la procédure de création des TCD,

j'espère etre assez clair dans mes explications.

si on peut m'aider, ce sera avec plaisir.