Discussion :

[npopravka]

Bonjour.
J'ai besoin d'avoir un array à partir d'une plage d'un tableau croisé dynamique (pour ensuite l'utiliser dans un filtre ailleurs), et je m'en sors pas... et surtout je comprend pas.
Voilà comment je tente d'alimenter mon array :

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
22
23
Sub tab_experts(entite)
Dim tab_abo As Variant
Dim plage As Object
Dim tableau() As Variant
Dim nb_rsx As Integer
Dim i As Byte
Dim toto As Variant
 
 
    tcd_abos.PivotFields("nom_entite").CurrentPage = entite
        With tcd_abos.PivotFields("Abonné")
        .PivotItems("Abonné").visible = True
        .PivotItems("Utilisateur").visible = False
        .PivotItems("(blank)").visible = False
End With
    Set plage = tcd_abos.PivotFields("nom_rsx").DataRange
    nb_rsx = plage.Rows.Count
    For i = 1 To nb_rsx
    toto = plage.Cells(i, 1).Value
    tableau(i) = plage.Cells(i, 1).value
    Next i
 
End Sub

Je m'attend au bout du compte à retrouver dans tableau quelque chose genre ("valeur1","valeur2","valeur3"). Un array, quoi.
la variable de test toto contient bien, au fur et à mesure de la boucle, les valeurs que j'attend (donc valeur1, valeur2...) en revanche la macro bloque sur la ligne :

Code :

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

tableau(i) = plage.Cells(i, 1).value

avec une erreur d'exécution 9 : l'indice n'appartient pas à la sélection.
mais pourquoi, pourquoi, pourquoi ?????
L'interrogation du tcd en elle même fonctionne très bien et renvoie ce que j'attend, je l'utilise à plusieurs autres endroits.

Je vais me tirer une balle... Y a visiblement un truc que j'ai pas capté dans les arrays en VBA...
Merci !

PS : j'ai bien un Option base 1 au début.

[casefayere]

Bonjour,
et comme ça, pour un array

Code :

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

1
2
3
4
5
6
7
8
9
10
11
......
Dim tableau
........
 For i = 1 To nb_rsx
    toto = plage.Cells(i, 1).Value
    If tableau = "" then
      tableau = toto
    Else
      tableau  = array(tableau & "," & toto)
    end if
 Next i

ou

Code :

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

1
2
3
4
 For i = 1 To nb_rsx
    toto = plage.Cells(i, 1).Value
    tableau  = plage.range("A1:A" & nb_rsx)
 Next i

[npopravka]

Bonjour,
et comme ça, pour un array

Ah oui, effectivement, y avait un malentendu :-)
Bon, c'est pas encore complètement ça, puisque dans la 1ère verson les quotes se mettent pas comme il faut, et dans la 2ème, il vide le tableau au 2ème passage dans la boucle, mais je suis déjà mieux barrée pour m'en sortir :-)

Merci !!!!!!!!!

[AlainTech]

Bonjour,

Ton tableau n'est probablement pas dimensionné.
Essaye ceci:

Code :

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

1
2
3
4
5
6
7
    Set plage = tcd_abos.PivotFields("nom_rsx").DataRange
    nb_rsx = plage.Rows.Count
    Redim tableau(nb_rsx)
    For i = 1 To nb_rsx
    toto = plage.Cells(i, 1).Value
    tableau(i) = plage.Cells(i, 1).value
    Next i

[Didier Gonard]

Bonjour,

Je vais me tirer une balle... Y a visiblement un truc que j'ai pas capté dans les arrays en VBA...

un peu de lecture

Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel

cordialement,

Didier

[npopravka]

Bonjour,

un peu de lecture

Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel

Didier

Je suis une conne...
J'avais bien entendu trouvé et lu cet excellent document.
Enfin le début pour voir la syntaxe de ce qu'il fallait raconter à Excel.
J'aurais du pousser jusqu'au chapitre VIII-C, où il est dit

Pour simplifier, on peut considérer qu'il n'existe que des feuilles à 2 dimensions, Excel utilise donc toujours des coordonnées (ligne, colonne) ou (colonne, ligne) pour désigner une cellule.

Bon, j'y retourne...