Discussion :

[kidone]

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 :

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

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

[aalex_38]

Bonjour,

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

Code :

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

Donnee = [TCD1]

Pour boucler sur les etiquettes :

Code :

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

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

[kidone]

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.