Utiliser un nom de variable automatiquement

**K-limero** · 31/08/2011, 13h38

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 :

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

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** · 31/08/2011, 13h40

Salut.

Code :

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

Msgbox Activecell.value

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

Code :

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

run activecell.value

**K-limero** · 31/08/2011, 13h45

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** · 31/08/2011, 13h50

Ok. J'avais mal compris ta question.

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

**K-limero** · 31/08/2011, 14h00

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** · 31/08/2011, 14h00

bonjour,
dans ton exemple:

Code :

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

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

Maposition = C sans les guillemets

**Pierre Fauconnier** · 31/08/2011, 14h11

Moi, je résoudrais cela par un select case

Code :

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

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

**K-limero** · 31/08/2011, 14h15

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

**galopin01** · 31/08/2011, 13h56

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

Code :

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

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+

Utiliser un nom de variable automatiquement [XL-2003]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager