Discussion :

[vanessa B]

Bonjour à tous et à toutes ;-)

Voila, j'ai un petit problème VBA...

Je dois pouvoir charger une liste de données dans une seule variable (une sorte de multi variable) pour pouvoir réutiliser ces données comme filtres sur une autre feuille excel...
ex:
cell F3: 101010:jean
cell F4: 101011:paul
cell F5: 101012:max
Le nombre de ligne est variable.

puis pouvoir filtrer:

Code :

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

1
2
ActiveSheet.Range("$A$1:$T$10000").AutoFilter Field:=11, Criteria1:= _
        "<>101010:jean", Operator:=xlOr, Criteria2:="<>101011:paul"", Operator:=xlOr, Criteria3:="<>101012:max"

J'ai l'habitude de travailler sous SAS : il s'agirait de construire une macrovariable du style "call symput" dans une boucle.

Je ne sais vraiment pas comment faire en VB si l'un de vous peut m'aider c'est super!!!

Merci d'avance et bonne soirée

[Theze]

Bonsoir,

Un tableau de tableaux peut être ? Un petit exemple :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Sub Tablo()
 
    Dim TBLPrincipal()
    Dim TBL_1()
    Dim TBL_2()
    Dim TBL_3()
 
    'dimensionne les tableaux
    'peuvent être redimesionnés avec Preserve
    'si ils contiennent déjà des valeurs
    ReDim TBLPrincipal(1 To 3)
    ReDim TBL_1(1 To 3)
    ReDim TBL_2(1 To 3)
    ReDim TBL_3(1 To 3)
 
    'alimente les tableaux
    TBL_1(1) = "TBL_1 valeur 1"
    TBL_1(2) = "TBL_1 valeur 2"
    TBL_1(3) = "TBL_1 valeur 3"
 
    TBL_2(1) = "TBL_2 valeur 1"
    TBL_2(2) = "TBL_2 valeur 2"
    TBL_2(3) = "TBL_2 valeur 3"
 
    TBL_3(1) = "TBL_3 valeur 1"
    TBL_3(2) = "TBL_3 valeur 2"
    TBL_3(3) = "TBL_3 valeur 3"
 
    'les stockent dans le tableau principal
    TBLPrincipal(1) = TBL_1()
    TBLPrincipal(2) = TBL_2()
    TBLPrincipal(3) = TBL_3()
 
    'retourne certaines valeurs
    Debug.Print TBLPrincipal(1)(3)
    Debug.Print TBLPrincipal(2)(2)
    Debug.Print TBLPrincipal(3)(1)
 
End Sub

Hervé.

[vanessa B]

Un grand merci Hervé, très bonne piste!
ABonne continuation