Contenu d'une cellule comme nom de variable

Bonjour le Forum,

Est-il possible d’affecter le contenu d’une cellule comme nom de variable ? Par exemple Dim Cells(1, 1).Value As String mais cette syntaxe n’est pas acceptée par le compilateur.
En me référant à l’image ci-jointe, je voudrais une variable France, une autre Espagne, …..
http://cjoint.com/?CImhJvDQ3zY
D’avance, soyez remerciés pour vos réponses

Harry

Bonjour,
je ne pense pas que ce soit possible mais tu peux, peut-être déclarer tes variabes directement et faire un repère pour ne plus chercher leur numéro de colonne, du style :

Code:

---

1 2 3 4 5 6 7

Dim France As Integer, Allemagne As Integer 'etc... With Sheets("Feuil1") 'remplacer par ton nom de feuille nbcol = .Cells(1, .Columns.Count).End(xlToLeft).Column '********************************************************** France = .Rows(1).Find("France", .Cells(1, nbcol)).Column Allemagne = .Rows(1).Find("Allemagne", .Cells(1, nbcol)).Column 'etc...

---

Re,

Merci pour la réponse.
"je ne pense pas que ce soit possible" est ce que je craignais.
Le problème est que je ne connais pas les pays à l'avance.
Le but final est de modifier le code d'un Select Case d'une autre procédure en fonction du contenu de la feuille.
Je continue de chercher.

Excellente journée

Harry

Bonjour,
Tu peux nommer tes cellules ou tes plages de données.

J'ai un début de solution à mon problème. Je n'ai pas besoin de transformer le contenu d'une cellule en variable, VBA le fait pour moi.
J'ai découvert que l'instruction "Case" acceptait

Code:

---

Case Worksheets("Pays").Range("A1")

---

comme paramètre.
Excellente journée à tous

Harry