Discussion :

[NEC14]

Bonjour,

Dans ma feuille "Fiche", la zone A1:R4 doit être mise en couleur de fond selon 5 conditions, donc 5 couleurs différentes.

1° - Si la cellule S3 = SECT 1-VILLE alors la couleur de la zone est rouge (3)
2° - Si la cellule S3 = SECT 2-VILLE alors la couleur est verte (10)
3° - Si la cellule S3 = SECT 3-VILLE alors la couleur est jaune (27)
4° - Si la cellule S3 = SECT 4-VILLE alors la couleur est bleue (33)
5° - Si la cellule S3 = SECT 5-VILLE alors la couleur est orange (45)

Avec Excel je suis limité à 3 conditions, comment puis-je faire ?
Merci par avance pour votre aide

[EngueEngue]

Code :

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

1
2
3
4
5
6
7
Select case Sheets("Fiche").range("S3")
Case "SECT 1-VILLE"
Sheets("Fiche").range("A1:R4").interior.color=RGB(100,0,0)
Case "SECT 2-VILLE"
Sheets("Fiche").range("A1:R4").interior.color=RGB(0,100,0)
....
End select

[parmi]

Quelle version utilises-tu ?

[EngueEngue]

2003

[parmi]

C'est plutôt à NEC14 que je posais la question...
Il arrive que certains croient qu'ils n'ont que 3 conditions, mais ce n'est pas toujours nécessairement le cas....

[NEC14]

Quelle version utilises-tu ?

Bonjour,

Toutes mes excuses d'avoir tardé à répondre, petit problème de connexion.

J'ai la version 2003

[NEC14]

Bonjour à tous,

Voilà le code mis en place, il fonctionne bien.
Merci à tous pour votre aide
Amicalement
René

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
 
Private Sub Worksheet_Activate()
    Select Case Sheets("Fiche").Range("S4")
        Case "SECT 1-VILLE"
            Sheets("Fiche").Range("A1:R4").Interior.Color = RGB(255, 0, 0)
        Case "SECT 2-VILLE"
            Sheets("Fiche").Range("A1:R4").Interior.Color = RGB(64, 160, 0)
        Case "SECT 3-VILLE"
            Sheets("Fiche").Range("A1:R4").Interior.Color = RGB(255, 255, 0)
        Case "SECT 4-VILLE"
            Sheets("Fiche").Range("A1:R4").Interior.Color = RGB(96, 224, 255)
        Case "SECT 5-VILLE"
            Sheets("Fiche").Range("A1:R4").Interior.Color = RGB(224, 128, 0)
     End Select
 
End Sub

[NEC14]

Je reviens vers vous car cela ne fonctionne pas si bien.

En effet, si je mets 3 conditions pas de soucis, mais au-delà j'ai un message d'erreur sur la ligne 11. Erreur d'éxécution "1004" - Impossible de définir la propriété Color de la classe Interior

Je ne comprends pas !!!!

Pouvez-vous m'apporter votre aide

Merci par avance

[EngueEngue]

Excel 2003 gère moins de couleurs que 2010, essaie de changer ta couleur avec des couleurs plus standard

(96, 224, 255) -> (0 255 255)

[NEC14]

J'ai essayé en changeant de code couleur, mais le résultat reste le même.

J'ai donc modifié le code comme suit, mais idem, message d'erreur

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
 
Private Sub Worksheet_Activate()
    Select Case Sheets("Fiche").Range("S4")
        Case "SECT 1-VILLE"
            Sheets("Fiche").Range("A1:R4").Interior.ColorIndex = 3
            Sheets("Fiche").Range("A9").Interior.ColorIndex = 3
        Case "SECT 2-VILLE"
            Sheets("Fiche").Range("A1:R4").Interior.ColorIndex = 10
            Sheets("Fiche").Range("A9").Interior.ColorIndex = 10
        Case "SECT 3-VILLE"
            Sheets("Fiche").Range("A1:R4").Interior.ColorIndex = 27
            Sheets("Fiche").Range("A9").Interior.ColorIndex = 27
        Case "SECT 4-VILLE"
            Sheets("Fiche").Range("A1:R4").Interior.ColorIndex = 33
            Sheets("Fiche").Range("A9").Interior.ColorIndex = 33
        Case "SECT 5-VILLE"
            Sheets("Fiche").Range("A1:R4").Interior.ColorIndex = 45
            Sheets("Fiche").Range("A9").Interior.ColorIndex = 45
     End Select
 
End Sub

[EngueEngue]

Cette macro doit être dans le module de la feuille Fiche...
Vérifie que tu n'as pas d'autres macros qui vont jouer avec A1:R4 sur l'évènement Activate ou sur un évènement préalable.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Activate()
    Select Case Sheets("Fiche").Range("S4")
        Case "SECT 1-VILLE"
            Sheets("Fiche").Range("A1:R4").Interior.Color = RGB(255, 0, 0)
        Case "SECT 2-VILLE"
            Sheets("Fiche").Range("A1:R4").Interior.Color = RGB(64, 160, 0)
        Case "SECT 3-VILLE"
            Sheets("Fiche").Range("A1:R4").Interior.Color = RGB(255, 255, 0)
        Case "SECT 4-VILLE"
            Sheets("Fiche").Range("A1:R4").Interior.Color = RGB(96, 224, 255)
        Case "SECT 5-VILLE"
            Sheets("Fiche").Range("A1:R4").Interior.Color = RGB(224, 128, 0)
     End Select
End Sub

T'as pas un truc chelou sur ce range ? Une shape, un activeX ?

[NEC14]

Non rien de tout ça.

J'ai mis ton code en place, mais toujours le même résultat avec le même message d'erreur.

[NEC14]

J'ai remplacé :

Code :

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

1
2
3
 
Private Sub Worksheet_Activate()
    End Sub

par

Code :

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

1
2
3
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

et je n'ai plus de message d'erreur. C'est incompréhensible.

[EngueEngue]

Ayant tout juste commencé le VBA je ne peux t'apporter de réponse précise, j'en suis moi même très surpris.

[NEC14]

Bon eh bien j'ai beau chercher je ne trouve pas la raison du message d'erreur.

Mon autre solution fonctionne et c'est bien.

Merci pour l'aide apportée

Amicalement

René