Discussion :

[spookyz]

Bonjour,
je cherche la solution pour pouvoir appeler des macros type ,macro1 ,macro2,macro3 etc ainsi que pour des variables tableaux dynamiques

je ne trouve pas

macro& variable contenant 1 ou 2 ou 3 ne fonctionne pas
macro& CStr(variable) contenant 1 ou 2 ou 3 ne fonctionne pas
macro& (variable) contenant 1 ou 2 ou 3 ne fonctionne pas
pareil pour les variables tableaux

variabletableau& variable 1 ou 2 etc etc
alors si quelqu'un a une idée et ben c'est super

[tototiti2008]

Bonjour spookyz,

Pour les macros, tu peux passer par Application.Run qui permet de lancer une macro en passant son nom en tant que texte

exemple

Code :

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

1
2
3
for i = 1 to 3
Application.Run "macro" & i
Next i

Pour les variables, pas trop de solution à part faire des tableaux de tableaux dynamiques peut-être

[spookyz]

Salut merci c'est super pour les macros
si tu a un exemple pour les tableaux parce que je ne vois pas le tableau de tableau
sinon encore merci

[tototiti2008]

Re,

Pour les tableaux un truc comme ça peut-être

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
Sub TabloDeTablo()
Dim TabloDyn1() As Long
Dim TabloDyn2() As Long
Dim TabloDyn3() As Long
Dim TabloDeTablo(), i As Long, j As Long
    ReDim TabloDyn1(1 To 1)
    TabloDyn1(1) = 5
    ReDim TabloDyn2(1 To 2)
    TabloDyn2(1) = 3
    TabloDyn2(2) = 8
    ReDim TabloDyn3(1 To 3)
    TabloDyn3(1) = 1
    TabloDyn3(2) = 2
    TabloDyn3(3) = 6
 
    ReDim TabloDeTablo(1 To 3)
    TabloDeTablo(1) = TabloDyn1
    TabloDeTablo(2) = TabloDyn2
    TabloDeTablo(3) = TabloDyn3
 
    For i = LBound(TabloDeTablo) To UBound(TabloDeTablo)
        For j = LBound(TabloDeTablo(i)) To UBound(TabloDeTablo(i))
            MsgBox TabloDeTablo(i)(j)
        Next j
    Next i
 
End Sub

ou alors créer un type personnalisé (Type) contenant un élément tablo dynamique dont on ferait un tableau...

[spookyz]

Encore un grand merci je vais tester

[ctac_]

Bonjour,
Le plus simpliste possible

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Test()
    Dim A(3)
    A(1) = "bonjour"
    A(2) = 2.325
    A(3) = "jour"
    Application.Run "Essai", A
End Sub
 
Sub Essai(B)
    MsgBox UBound(B) & vbCr & B(1) & vbCr & B(2) & vbCr & B(3)
End Sub

ctac