Discussion :

[Harry Covair]

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

[casefayere]

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 :

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

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

[Harry Covair]

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

[Philippe Tulliez]

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

[Harry Covair]

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 :

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

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

comme paramètre.
Excellente journée à tous

Harry