Discussion :

[benoue]

Bonjour,

je suis confronté à une limite d'Excel. En efait,je veux faire de la mise en forme conditionnelle et automatique.

C'est à dire que je dispose d'un ensemble de valeur {a,b,c,d,e,f} pouvant être pris par des cellules et je voudrais qu'en fonction des valeurs prises, une autre rangée de cellules prennent un fond de couleur défini...ça permet d'avoir une alerte plus visuelle.

Savez vous comment faire ça ? D'autre part, il faudrait que le changement de couleur se fasse automatiquement, on ne doit pas lancer de macro.

Merci d'avance pour vos illuminations,

Benoue

[SfJ5Rpw8]

tu pourrai t'inspirer de la méthode utilisée dans ce code :
http://www.developpez.net/forums/vie...68617&start=18

[mustang-ffw02]

Pour que ta macro se lance seule, tu peux utiliser l'événement

Code :

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

Workbook_SheetSelectionChange

Le code s'éxécutera à chaque fois que tu cliquera dans une cellule

[Megaxel]

Et moi, je dirais bien qu'une fonction dont le(s) paramètre(s) d'entrée est(sont, et j'arrête ces parenthèses...) un Range "devient" dynamique, et s'actualise lorsque la plage d'entrée est modifiée.
Mais je ne le jurerais pas, c'est à vérifier.

[benoue]

Bonjour,

Je n'ai pas tout saisi de la solution dont je devais m'inspirer, ça me semble correspondre à un cas bien particulier et je peine à voir comment m'en servir simplement.

Benoue

[Megaxel]

Ok, alors regarde ça.
Est-ce que ça correspond à ce que tu veux faire. Dans cet exemple, les cellules A1 à A5 sont "surveillées". Selon la valeur saisie, la cellule située un cran à droite prend une couleur différente.

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_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A5")) Is Nothing Then
        Select Case Target.Value
            Case 1
                Target.Offset(0, 1).Interior.ColorIndex = 10
            Case 2
                Target.Offset(0, 1).Interior.ColorIndex = 4
            Case 3
                Target.Offset(0, 1).Interior.ColorIndex = 6
            Case 4
                Target.Offset(0, 1).Interior.ColorIndex = 8
        End Select
    End If
End Sub

Bien sûr, ça va dans le code de la feuille où se trouvent les cellules à surveiller.

Je viens de voir que c'est à peu près ce qu'il y a dans le code du lien de bbil... J'ai bossé pour rien.

[benoue]

Cool, merci,

Mais ce que je ne comprends pas, c'est que je ne spécifie jamais les valeurs correspondantes de A1:A5 ??

Je veux pas exemple que si la valeur dans les cellules est "Reportée",la cellule passe au gris, si la valeur est "En Retard",ça passe au rouge.

Pour retrouver le code des couleurs,ça ne pose pas de problème, mais c'est l'écriture des conditions qui me gênent.

[Megaxel]

Heummm... Là, tu exagères un peu, quand même...
Regarde l'aide (touche F1) sur "Case", et tu verras que tu n'as qu'à remplacer

Code :

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

1
2
3
4
Case 1 
...
Case 2
...

par

Code :

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

1
2
3
4
Case "En Retard"
...
Case "Reportée"
...

[benoue]

Ok je

Merci de ton aide.

[benoue]

Bonjour,

Je viens d'écrire ça

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
22
23
24
25
26
27
28
29
Private Sub Workbook_SheetSelectionChange(ByVal Target As Range)
 
'Worksheet_Change
 
    If Not Intersect(Target, Range("E8:E100")) Is Nothing Then
        Select Case Target.Value
            Case "Non démarrée"
                Target.Offset(0, 1).Interior
                .ColorIndex = 41
                .Pattern = xlSolid
            Case "En cours"
                Target.Offset(0, 1).Interior
                .ColorIndex = 45
                .Pattern = xlSolid
            Case "Réalisée"
                Target.Offset(0, 1).Interior
                .ColorIndex = 50
                .Pattern = xlSolid
            Case "En retard"
                Target.Offset(0, 1).Interior
                .ColorIndex = 3
                .Pattern = xlSolid
            Case "Reportée"
                Target.Offset(0, 1).Interior
                .ColorIndex = 15
                .Pattern = xlSolid
        End Select
    End If
End Sub

mais les cellules situes en F_i ne changent pas en fonction des valeurs des cellules E_i.
J'ai mis le nom de la fonction << Workbook_SheetSelectionChange >> pour que le changement de couleur se fasse automatiquement, mais rien..

[Megaxel]

Tu veux me rappeler quand est appelé le trigger "Workbook_SheetSelectionChange", s'il te plait...

A ta place, j'aurais laissé celui que je t'ai donné: Il se déclenche à chaque fois qu'une cellule (DE L'ONGLET DANS LE CODE DUQUEL TU AS MIS ce que je t'ai envoyé) change de valeur.
Sauf peut-être si le changement de valeur se fait automatiquement, tu devras vérifier ça...

[benoue]

Euhhh, en fait,j'ai utilisé la remarque ci-dessus

Pour que ta macro se lance seule, tu peux utiliser l'événement Code:

Code :

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

Workbook_SheetSelectionChange

Le code s'éxécutera à chaque fois que tu cliquera dans une cellule

J'ai laissé le nom de la fonction et modifié les

Code :

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

1
2
3
4
     Case "Non démarrée" 
                Target.Offset(0, 1).Interior 
                .ColorIndex = 41 
                .Pattern = xlSolid

en

Code :

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

1
2
3
     Case "Non démarrée" 
               Target.Offset(0, 1).Interior .ColorIndex = 41 
                 Target.Offset(0, 1).Interior .Pattern = xlSolid

et ça marche nickel maintenant.

Dernière chose, y'a t-il moyen de changer le Range("E8:E100") et le passer en paramètres d'entrée de la fonction ?
Je dosi faire cette modif de cellules pour une cinquantaine de feuilles et j'espère faire une fonction générique et l'appeler dans chaque feuille en lui passant le Range et l'offset en paramètres.
Un truc du style

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
 
Call coloriage_cellule (cellules_à_surveiller, première valeur de l'Offset, Seconde valeur de l'offset)
 
End Sub

[Megaxel]

Si ta zone à surveiller dépend de la feuille, et ne change pas, ça ne pose pas de problème.
Je ne sais pas dans quelle version d'Excel tu es, mais en 2003, dans l'événement "Workbook_SheetSelectionChange", tu as 2 paramètres: "Target" et "Sheet". Il te suffit de te faire une fonction qui, selon la feuille, te donne la zone à surveiller.