Discussion :

[auredura]

Bonjour,

Dans une cellule excel, j'ai d'inscrit le nom d'une variable (var1 par exemple).
Parallèlement, dans VB une valeur (le nom d'un objet excel) est associée à une variable var1 (var1 = "Freeform 92").

Je voudrais utiliser l'information récupérée dans une cellule d'excel pour sélectionner l'objet avec une ligne de codes du genre : ActiveSheet.Shapes(Sheets("Données").Range("A" & i).Value).Select
mais ça ne fonctionne pas en sachant que :
- Sheets("Données").Range("A" & i).Value renvoie "var1" et pas var1 sans les guillemets (le pb vient peut-être de là)
- que ActiveSheet.Shapes(var1).Select sélectionne bien l'objet comme je le souhaite

Avez-vous déjà rencontré ce cas de figure ? Avez-vous une solution ?

Merci d'avance.

[cafeine]

Hello, pour appeler une feuille par une variable, il ne faut pas rajouter les "".

en mode exécution :

Code :

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

1
2
3
Toto = "Stat"
?Sheets(Toto).Name
Stat

[Gorfael]

Salut auredura et le forum
À ma connaissance, tu ne peux récupérer le nom d'une variable (mais mes connaissances sont peut-être lacunaires).
Mais pourquoi ne pas définir une variable qui irai chercher la valeur ? Pourquoi chercher le nom d'une variable et non son contenu ?
Explique ton problème (données, but), plutôt que la méthode (manière) que tu penses avoir trouvé pour le résoudre.
A+

[auredura]

En effet et quand je récupère du texte dans excel avec Sheets("Données").Range("A" & i).Value, il attribue automatiquement des " !!!

Du coup le problème vient de là car au lieu d'exécuter
ActiveSheet.Shapes(var1).Select, c'est
ActiveSheet.Shapes("var1").Select qui est exécuté malheureusement.

Mais auriez-vous une solution pour éviter ce problème ?

Hello, pour appeler une feuille par une variable, il ne faut pas rajouter les "".

en mode exécution :

Code :

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

1
2
3
Toto = "Stat"
?Sheets(Toto).Name
Stat