Discussion :

[skipeemed]

Bonjour,

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

Code :

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

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

[SfJ5Rpw8]

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

[jfontaine]

Bonjour,

Une constante qui serait variable

Utilise une variable dans ce cas

Code :

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

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

[MattChess]

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 :

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

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 :

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

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

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