Discussion :

[rihab92]

Salut tout le monde,

J'espère que vous allez bien ,

SVP si quelq'un a une idée sur comment réaliser ce code en VBA , vraiment je suis bloquée

J'ai deux feuilles 1 et 2 en Excel et je désire colorier l'intérieur des cellules de la feuille 2 en se basant sur plusieurs conditions :

La feuille 2 contient une case où il est affiché le mois, ce code doit etre capable d'aller chercher la colonne ou il y a le même mois , de se baser sur les valeurs insérées dans cette colonne ,pour colorier chaque zone ( a, b ,c , d ...) en dans le tableau de la feuille 2 suivant des conditions :

si la valeur entre 0,1 et 0,5 alors colorer en rouge la case correspondante dans feuille 2
si la valeur entre 0,6 et 1 alors colorer en vert la case correspondante dans feuille 2
s'il trouve une case vide alors colorer en blanc la case correspondante dans feuille 2

Ci joint le fichier excel pour bien rapprocher l'idée

P.S : On pourra changer le mois de la feuille 2 et répéter la même action

Je vous remercie d'avance

[gnain]

si la valeur entre 0,1 et 0,5 alors colorer en rouge la case correspondante dans feuille 2
si la valeur entre 0,6 et 1 alors colorer en vert la case correspondante dans feuille 2
s'il trouve une case vide alors colorer en blanc la case correspondante dans feuille 2

Voila

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Sub test()
 
    Dim Nom_Du_Mois As String
    Dim i As Integer
    Dim Trouver_Colonne_Mois As Boolean
 
    Trouver_Colonne_Mois = False
 
    Sheets("Feuil2").Select
    'récupérer nom du mois
    Nom_Du_Mois = Range("C2").Value
 
 
 
    '========================================
    'trouver la bonne colonne selon le mois
    Sheets("Feuil1").Select
    For i = 3 To 14
        If Cells(6, i) = Nom_Du_Mois Then
            Trouver_Colonne_Mois = True
            Exit For
        End If
    Next
    '========================================
 
    If Trouver_Colonne_Mois = True Then
        For j = 7 To 19
 
            If Cells(j, i).Value = "" Then
                For b = 3 To 12
                    For bb = 4 To 17
                        If Worksheets("Feuil2").Cells(bb, b).Value = Cells(j, 2).Value Then Worksheets("Feuil2").Cells(bb, b).Interior.ColorIndex = 2
                    Next
                Next
            ElseIf Cells(j, i).Value <= 0.5 Then
                For r = 3 To 12
                    For rr = 4 To 17
                        If Worksheets("Feuil2").Cells(rr, r).Value = Cells(j, 2).Value Then Worksheets("Feuil2").Cells(rr, r).Interior.ColorIndex = 3
                    Next
                Next
            ElseIf Cells(j, i).Value > 0.5 And Cells(j, i).Value <= 1 Then
                For v = 3 To 12
                    For vv = 4 To 17
                        If Worksheets("Feuil2").Cells(vv, v).Value = Cells(j, 2).Value Then Worksheets("Feuil2").Cells(vv, v).Interior.ColorIndex = 4
                    Next
                Next
            Else
                MsgBox Cells(j, i).Value & " ne rencontre pas les conditions"
            End If
 
        Next
    Else
        MsgBox "Aucun mois à été trouvé."
    End If
 
    MsgBox "Fin"
 
End Sub

[Philippe Tulliez]

Bonjour,
Sauf s'il est impératif d'utiliser du VBA dans ce projet, l'outil Mise en forme conditionnelle fait très bien cela sans y avoir recours.

[rihab92]

Gnaaaaaaaaaaaaaaain ,


je vous remercie énoooormément

Je vous dois beaucoup