Utiliser un nom de variable automatiquement

Version imprimable

31/08/2011, 13h38
K-limero

Utiliser un nom de variable automatiquement

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 !
31/08/2011, 13h40
Pierre Fauconnier

Salut.

Code:

Msgbox Activecell.value

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

Code:

run activecell.value
31/08/2011, 13h45
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
31/08/2011, 13h50
Pierre Fauconnier

Ok. J'avais mal compris ta question.

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

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+

31/08/2011, 14h00
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 !
31/08/2011, 14h00
rvtoulon
bonjour,
dans ton exemple:
Code:

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

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

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 !

31/08/2011, 14h26
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
31/08/2011, 14h33
K-limero

Voilà une idée qu'elle est trés bonne :ccool::ccool:
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..

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