[VBA-E] un tableau de constantes

Version imprimable

04/07/2006, 10h22
tinmarbusir

[VBA-E] un tableau de constantes
Bonjour
je sais qu'il est possible de déclarer plusieurs constantes en ne seule fois...mais je ne sais pas comment faire

En fait au lieu de déclarer
Code:

1 2 3 4 const coul1= 14 const coul2= 16 const coul3= 42 ...
Je voudrai pouvoir écrire un truc du style

Code:

const coul=[14,16,42...]

Mais impossible de trouver la syntaxe exacte!
:merci:

bonjour

tu peux aussi tester l'instruction Enum

Code:

1
2
3
4
5
6
7
8
9
        Public Enum Coeff 
        Coeff_2 = 2 
        Coeff_3 = 3 
        Coeff_4 = 4 
        End Enum 
 
        Sub Test() 
        MsgBox 500 * Coeff.Coeff_2 'résultat = 1000 
        End Sub

bonne journée
michel

Merci pour ta réponse mais en fait ta solution ne s'applique pas à mon problème

Suivant le numero de la region, je souhaite appliquer une couleur à la case (Cell.interior.colorindex)
Code:

1 2 3 4 5 6 7 8 9 10 11 With Feuille.Cells(i,j) .Value = Fvilles.Cells(Ligne, 3)'Feuille et Fvilles sont des Worksheet Select Case noRegion Case 1: .Interior.ColorIndex = 38 Case 2: .Interior.ColorIndex = 40 Case 3: .Interior.ColorIndex = 36 Case 4: .Interior.ColorIndex = 35 Case 5: .Interior.ColorIndex = 34 Case Else: .Interior.ColorIndex = xlNone End Select End With
Je voudrai faire un truc du style:
Code:

1 2 3 4 With Feuille.Cells(i,j) .Value = Fvilles.Cells(Ligne, 3) .Interior.ColorIndex=Coul(noRegion) End With
çà m'évite de refaire un select case à chaque fois, et si je veux modifier une couleur, je ne suis pas obligé de le faire dans tous les select case!

avec coul constante comme suit

Code:

const coul=[38,40,36,35,34]

ou plutot

Code:

Const coul = ["38","40","36","35","34"]

Mais dans ces deux cas, j'ai l'erreur: Constante requise!

rebonjour

dans ce cas tu pourrais utiliser

Code:

1
2
3
4
5
6
7
8
9
Dim Coul As Variant
Coul = Array(38, 40, 36, 35, 34)
 
noRegion = 1
 
With Feuille.Cells(i, j)
        .Value = Fvilles.Cells(ligne, 3)
        .Interior.ColorIndex = Coul(noRegion)
 End With

bon apres midi
michel

05/07/2006, 10h44
tinmarbusir

merci encore pour ta réponse, je pense qu'elle marche...
Mais tu ne connais pas la syntaxe exacte?:fou: :ouin: :scarymov:
05/07/2006, 12h33
SilkyRoad

bonjour

Code:

Mais tu ne connais pas la syntaxe exacte?

la synthaxe exacte de quoi ?

bonne journée
michel
05/07/2006, 15h24
tinmarbusir

La syntaxe exacte de çà!:aie:

Code:

Const coul = [38,40,36,35,34]

En fait je veux pas me galérer à redéclarer et reinitialiser à chaque foiii.