Discussion :

[shipuden64]

Bonjour à tous,
J'ai un problème concernant la déclaration de mes constantes. En effet dans l’exécution de mon code j’ai le message d’erreur suivant avec le premier ‘cells’ surligné : « erreur compilation : constante requise ».
Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Const FileName1 = Sheets("Parametres").Cells(30, 6)
Const FileName2 = Sheets("Parametres").Cells(27, 6)
Const FileName3 = Sheets("Parametres").Cells(29, 6)
 
 
Sub ok()
 
 
Range("G" & m + 7, "BF" & m + 20).FormulaLocal = "=Somme('" & FileName1 & "'!F64)"
 
 
End Sub

merci à vous tous.

[Invité]

Salut,

Il n'est pas possible de déclarer une cellule en constante car le contenu de la cellule peut changer.

Une autre manière de voir les choses:

Code :

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

1
2
3
4
5
Public Const cstA As String = "$A$1"
 
Private Sub Test()
  Debug.Print (Range(cstA).Value)
End Sub

[Menhir]

A ma connaissance, on ne peut pas mettre dans une déclaration de constante une référence variable (comme le contenu d'une cellule). C'est, par nature, antithétique.

[shipuden64]

Merci pour votre rapidité.
En fait les valeurs que j'ai dans mes cellules sont des noms de feuilles qui peuvent être amené à changer. Mais le numéro de cellule lui est toujours le même.
En utilisant ton code SmallFlower je dois utiliser un Call ?

Je ne suis pas encore experte en vb mais en cherchant sur le net j'ai mis ce code en place mais je ne sais pas s'il est correct et s'il n'y a aucun risque que ça bug dans le temps :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public FileName1 As Variant
Public FileName2 As Variant
Public FileName3 As Variant
 
 
 
 
Sub declaration_variables_globales()
 FileName1 = Sheets("Parametres").Cells(30, 6)
 FileName2 = Sheets("Parametres").Cells(27, 6)
 FileName3 = Sheets("Parametres").Cells(29, 6)
End Sub
 
Sub ok()
Call declaration_variables_globales
 
 
Range("G" & m + 7, "BF" & m + 20).FormulaLocal = "=Somme('" & FileName1 & "'!F64)"
 
 
End Sub

[Invité]

en revanche tu peux donner l'adresse de la cellule!

Code :

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

1
2
3
4
Public Const FileName1 = "Parametres!F30"
Sub test()
Mvar = Range(FileName1).Value
End Sub

Code :

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

1
2
3
4
Public Const FileName1 = "[Classeur2]Parametres!F30"
Sub test2()
Mvar = Range(FileName1).Value
End Su

b