[XL-2003] Utiliser un nom de variable automatiquement [Résolu]

[K-limero]

Bonjour,
J'ai besoin d'utiliser un nom de variable automatiquement dans une sub, ex.:

Je créé des variables :
A = "toto"
B = "tata"
C = "titi"
etc..

Je suis positionné sur une cellule, dont je sais récupérer le nom de colonne (A,B,C,etc...) et le mettre dans une variable nommée MaPosition
MaPosition = "C"

Code :

msgbox([MaPosition) 'C'est la le HIC!

Je voudrais en réalité utiliser le contenu de la variable "C" en l’occurrence "titi", et non "C".
Encore un re-direction
Avez vous une idée?
Merci !

[Pierre Fauconnier]

Salut.

Code :

Msgbox Activecell.value

=> (si c'est dans la lignée du lancement de macro avec variable)

Code :

run activecell.value

[K-limero]

Désolé, mais cela ne va pas je dis travailler SANS utiliser les valeurs des cellules.
Il s'agit d'une redirection de variable sans rapport avec des cellules.
J'ai :
Var1 = "toto"
Var2 = "Var1"

et je veux lorsque je lance (?) Var2 avoir le contenu de Var1 et non ce nom "Var1" comme le fait indirect() dans excel...
Merc i

[Pierre Fauconnier]

Ok. J'avais mal compris ta question.

Que cherches-tu à faire? J'ai l'impression que tu te compliques la vie.

[galopin01]

Bonjour,
Quelque chose comme ça peut-être :

Code :

1
2
3
4
5
6
7
8
9
Sub test()
MaPosition = "C"
Select Case MaPosition
Case "A": MaPosition = "toto"
Case "B": MaPosition = "titi"
Case "C": MaPosition = "tutu"
End Select
Run MaPosition
End Sub

A+

[K-limero]

Pour faire simple:
J'ai un tableau avec un certain nombre de colonne
a chaque colonne correspond un format et des actions de mise en forme
les colonnes peuvent être deplacées selon les besoins utilisateurs...
J'ai donc créé des sub pour chaque type de format et mise en forme, nommées P.E. FTMajuscules, FTTéléphone, etc...
J'au ensuite créé autant de variables que de colonnes dans lesquelles j'ai mis le nom des sub
A= "FTMajuscules"
B = "FTTéléphone"
C = ....

J'ai récupéré dans une variable nommé MaPosition le nom de la colonne selectionnée.
MaPosition ="B"

Je veux pouvoir lancer la routine FTTéléphone depuis MaPosition...
Application.run MaPosition ??? C'est là le HIC !
Et merci encore !

[rvtoulon]

bonjour,
dans ton exemple:

Code :

1
2
3
C = "titi"
Maposition = C ' et non pas "C"
msgbox Maposition

Maposition = C sans les guillemets

[Pierre Fauconnier]

Moi, je résoudrais cela par un select case

Code :

1
2
3
4
5
6
7
8
Select Case MaVariable
    Case "A"
        FTMajuscules
    Case "B"
        FTTéléphone
    Case ...
        ...
    End Select

[K-limero]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub FormatageDonnées()

'Déclaration du type de format par colonne
cA = "FT_Matricule"
cB = "FT_Majuscule"
cC = "FT_Majuscule"
cD = "FT_Téléphone"
cE = "FT_Mail"
cF = "FT_Mail"
cG = "FT_SitePrincipal"
cH = "FT_Téléphone"
cI = "FT_Téléphone"
cJ = "FT_Téléphone"
cK = "FT_Majuscule"

Selection.End(xlUp).Select
 vFT = Selection.Address(RowAbsolute:=False, ColumnAbsolute:=False)
 vFTa = "c" & Left(vFT, Len(vFT) - 1)
 
 Application.Run vFTa

l'exemple > vFTa = cH

Voilà c'est la que je ne sais pas lancer la sub routine FT_Téléphone
Merci !

[Pierre Fauconnier]

En voyant ton code, je te propose une autre solution

Place les noms de tes procédures sur la ligne 1, dans les bonnes colonnes, d'une feuille cachée.

Tu pourras alors utiliser le nom facilement

Code :

Run Worksheets("Macros").Cells(1, ActiveCell.Column).Value

[K-limero]

Voilà une idée qu'elle est trés bonne
Merci je vais le faire.
Mais bon j'avais déjà il y a quelques temps eu besoin de ce type de redirection et j'aimerais peut être savoir si cela est possible comme sous Excel...
Je ferme la question, mais si un jour tu as une idée n'hésites pas à me la faire parvenir..

[rvtoulon]

La solution du Select case donnée plus haut fonctionne bien. En l'adaptant cela donnerai ceci :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test ()
Selection.End(xlUp).Select
vFT = Selection.Address(rowabsolute:=False, columnabsolute:=False)
vFTa = "c" & Left(pos1, Len(pos1) - 1)
 
Select Case vFTa
   Case "cA"
      Run "FT_Matricule"
   Case "cB"
      Run "FT_Majuscule"
'etc....
End Select
End Sub