L
lockyloke
Guest
une question, voilà je cherche a remplir un tableau dynamique et je veux pouvoir modifier le nombre de donnée devant être insérer (vous me suivez?)
Bref voilà le code, je pense que vous comprendrez mieu:
taille = taille + 1
Dim tab_Donnee()
ReDim tab_Donnee(taille)
tab_Donnee(0) = Array(Nom_gene & "R1C1:R1000C47", Nom_gene)
tab_Donnee(1) = Array(Nom_reta & "R1C1:R1000C47", Nom_reta)
Do While i <= (taille)
tab_Donnee(i) = Array(tab_Nom(i - 2) & "R1C1:R1000C47", tab_Nom(i - 2))
i = i + 1
Loop
ActiveSheet.PivotTableWizard SourceType:=xlConsolidation, SourceData:=tab_Donnee, _
TableDestination:="[croisé.xls]Tab_Elem!R1C1:R3C1", TableName _
:="Tableau croisé dynamique2", ColumnGrand:=False
Le petit problème c'est qu'il me sort une erreur de type incompatible... c'est le tab_Donnee qui l'emmerde. Pourtant lors de l'enregistrement, il met dans sourcedata un array d'array, et je pense que c le type de tab_donnee. Non?
Bref voilà le code, je pense que vous comprendrez mieu:
taille = taille + 1
Dim tab_Donnee()
ReDim tab_Donnee(taille)
tab_Donnee(0) = Array(Nom_gene & "R1C1:R1000C47", Nom_gene)
tab_Donnee(1) = Array(Nom_reta & "R1C1:R1000C47", Nom_reta)
Do While i <= (taille)
tab_Donnee(i) = Array(tab_Nom(i - 2) & "R1C1:R1000C47", tab_Nom(i - 2))
i = i + 1
Loop
ActiveSheet.PivotTableWizard SourceType:=xlConsolidation, SourceData:=tab_Donnee, _
TableDestination:="[croisé.xls]Tab_Elem!R1C1:R3C1", TableName _
:="Tableau croisé dynamique2", ColumnGrand:=False
Le petit problème c'est qu'il me sort une erreur de type incompatible... c'est le tab_Donnee qui l'emmerde. Pourtant lors de l'enregistrement, il met dans sourcedata un array d'array, et je pense que c le type de tab_donnee. Non?