Discussion :

[tinmarbusir]

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 :

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

1
2
3
4
const coul1= 14 
const coul2= 16
const coul3= 42
...

Je voudrai pouvoir écrire un truc du style

Code :

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

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

Mais impossible de trouver la syntaxe exacte!

[SilkyRoad]

bonjour

tu peux aussi tester l'instruction Enum

Code :

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

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

[tinmarbusir]

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 :

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

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 :

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

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 :

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

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

ou plutot

Code :

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

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

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

[SilkyRoad]

rebonjour

dans ce cas tu pourrais utiliser

Code :

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

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

[tinmarbusir]

merci encore pour ta réponse, je pense qu'elle marche...
Mais tu ne connais pas la syntaxe exacte?

[SilkyRoad]

bonjour

Code :

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

Mais tu ne connais pas la syntaxe exacte?

la synthaxe exacte de quoi ?


bonne journée
michel

[tinmarbusir]

La syntaxe exacte de çà!

Code :

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

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

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