petit probleme code vba

Bonjour,

J'ai un problème sur du code vba :

Code:

---

1 2	Set Sh = ThisWorkbook.Worksheets("Feuil1") Const i = Sh.Range("C1").Value

---

Ce que je veux faire est d'affecter à la constante i la valeur de la cellule C1 de l'onglet "Feuil1". Mais quand je compile il me sort:
"erreur de compilation : constante requise".

Merçi de m'éclaircir les idées.
Cdt,
SKIP

En VBA (comme dans tous les langages que je connais) une constante ne peu être définit dynamiquement ...

Bonjour,

Une constante qui serait variable 8O8O8O

Utilise une variable dans ce cas

Code:

---

1 2	Dim i as String 'Ou type attendu i = Sh.Range("C1").Value

---

skipeemed, pour une fois qu'il y a quelqu'un qui cherche à définir des constantes, c'est à encourager !

Il vaudrait mieux déplacer l'instruction Const de façon qu'elle soit sous Option Explicit en tout début de module.

Code:

---

1 2	Option Explicit Const i = 12 ' Worksheets("Feuil1").Range("C1").Value

---

Choisir un nom plus parlant qu'une seule lettre i.
Lire la valeur de la cellule C1 et reporter manuellement cette valeur après le "=".

Code:

---

1 2 3 4

Option Explicit Public Const valC1 = 12 ' On suppose que la valeur de la cellule C1 est 12. Public Const nameC1 = "C1" 'Chaîne littérale Public Const ascA = 65 ' Asc("A")

---

On ne peut utiliser comme valeur d'une constante qu'une constante numérique ou optionnellement une expression de constantes numériques entre opérateurs arithmétiques ou une chaîne littérale. On ne peut même pas utiliser la fonction Asc("A") qui pourtant renvoie la même valeur !
___________

Si la discussion est résolue, vous pouvez cliquer sur le bouton :resolu:

En bas de ce message s'il vous a apporté des éléments de réponse pertinents, pensez également à voter en cliquant sur le bouton vert http://www.developpez.net/forums/ima.../vote1left.gif ci-dessous.