Discussion :

[rihab92]

Bonjour chers développeurs,

SVP , ça fait une semaine que j'essaie de réaliser le code correctement et je me bloque à chaque fois ,

si quelqu'un pourra détecter l'erreur dans ce code vba

j'ai une feuill 1 qui contient un tableau des valeurs en pourcentage




j'aimerai bien colorier des cellules dans la feuil2 en choisissant un mois donné dans feuil2.range("B2")

si les cellules du tableau1 sont entre 0 et 20% alors colorier en rouge

Code vba :

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
 
Sub Colorier()
 
    Dim Nom_Du_Mois As String
 
    Dim Trouver_Colonne_Mois As Boolean
 
    Trouver_Colonne_Mois = False
 
    'récupérer nom du mois
    Nom_Du_Mois = Sheets("Feuil2").Range("B2").Value
 
    '========================================
    'trouver la bonne colonne selon le mois
 
    For Each I In Range("Tblmois").Cells
            If Range("Tblmois").Cells.Value = Nom_Du_Mois Then
            Trouver_Colonne_Mois = True
            Exit For
            End If
    Next
    '========================================
 
    If Trouver_Colonne_Mois = True Then
        For Each J In Range("Tblzones").Cells ' la colonne de la feuille 1
 
 
                               If Cells(J, I).Value <= 0.2 Then
                                 For Each v In Range("Table").Cells
 
                                     If v.Value = Range("Tblzones").Cells.Value Then Range("Table").Cells.Interior.ColorIndex = 3
                                Next
 
 
                         Else
                         MsgBox Cells(J, I).Value & " ne rencontre pas les conditions"
                         End If
 
         Next
    Else
        MsgBox "Aucun mois n'a été trouvé !"
    End If
    Sheets("Feuil2").Select
    MsgBox "Mise à jour réussie !"
 
End Sub

merci beaucoup