nom de macro concaténer avec une variable

Version imprimable

31/08/2010, 16h26
spookyz

nom de macro concaténer avec une variable

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 :ccool:
31/08/2010, 17h25
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:

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
31/08/2010, 17h34
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 :ccool:

Re,

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

Code:

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...

31/08/2010, 17h53
spookyz

Encore un grand merci je vais tester :ccool:

Bonjour,
Le plus simpliste possible

Code:

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