Discussion :

[INFINITY100]

Bonjour à tous

Voila en ci-dessous j'ai une macro qui fonctionne bien mais à mon avis elle pourrai être simplifier afin d'avoir moins de lignes dans mon code donc ma question existe t-il un moyen de résumer le code ci-dessous

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
Private Sub Par_Mois_ComboBox_Click()
 
'Colorer les totaux positifs en couleur rouge de la colonne 14
  With Sheets("Récap-Codes-Divers")
'Boucle sur les lignes
  For i = 4 To 13
    'Boucle sur les colonnes
    For j = 14 To 14
        'Test de la cellule
        Cells(i, j).Select
        If Cells(i, j).Value > 0 Then
            'Affectation de la couleur rouge
            Selection.Interior.Color = RGB(234, 241, 221)
            Selection.Font.ColorIndex = 3
        Else
            'Affectation de la couleur noir
            Selection.Interior.Color = RGB(234, 241, 221)
            Selection.Font.ColorIndex = 1
        'End If
        End If
      Next
    Next
'Et colorer les totaux positifs en couleur rouge de la colonne 19
'Boucle sur les lignes
  For i = 4 To 13
    'Boucle sur les colonnes
    For j = 20 To 20
        'Test de la cellule
        Cells(i, j).Select
        If Cells(i, j).Value > 0 Then
            'Affectation de la couleur rouge
            Selection.Interior.Color = RGB(234, 241, 221)
            Selection.Font.ColorIndex = 3
        Else
            'Affectation de la couleur noir
            Selection.Interior.Color = RGB(234, 241, 221)
            Selection.Font.ColorIndex = 1
        'End If
        End If
      Next
    Next
  End With
End Sub

Merci à vous tous

Cordialement

[patricktoulon]

bonsoir
déjà il y a pas quelque chose qui te gene dans ceci:

Code :

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

1
2
3
4
5
For i = 4 To 13
    'Boucle sur les colonnes
    For j = 14 To 14
        'Test de la cellule
        Cells(i, j).Select

ta boucle for j elle sert a quoi ?

[INFINITY100]

Bonsoir

au faite je veux que la couleur ne touche que la colonne N4 à N13 et T4 à T13 c'est pour ça je l'est ai séparé les deux codes en For j =14 to 14 et For j =20 to 20 sachant bien que (14 c'est le num de colonne N et 20 c'est le num de colonne T)

Voila à quoi elle sert

[eriiic]

Bonjour,

oui, elle peut être réduite à ... 0 lignes.

'Colorer les totaux positifs en couleur rouge de la colonne 14

Pourquoi pas avec le format de cellule tout simplement (?). Le rouge disponible ne te plait pas ? Tu as les MFC...
Au pire si tu tiens vraiment à ne pas le mettre directement sur la feuille, pour l'ajouter en vba ça ferait 1 ligne
https://support.office.com/fr-fr/art...3-80f18b4eae68
eric

[Menhir]

D'accord avec eriiic, cette macro est inutile.
Une mise en forme conditionnelle sera bien plus simple, rapide, dynamique et adaptable qu'une macro pour faire ce genre de chose.

[INFINITY100]

Ok alors quelle formule utiliser en conditionnelle de sorte que à avoir ceci : Si une cellule entre N4 et N14 contient une valeur positive alors c'est rouge sinon c'est noir

[riaolle]

Bonjour,
Ceci devrait pouvoir vous aider :

[Menhir]

Ok alors quelle formule utiliser en conditionnelle de sorte que à avoir ceci : Si une cellule entre N4 et N14 contient une valeur positive alors c'est rouge sinon c'est noir

Si ce n'est pas plus compliqué que ça, il y a une méthode encore plus simple.

Sélectionne N4:N14 > Clic droit > Format de cellule > Onglet Nombre > Catégorie : Personnalisée > Dans le champ Type, taper [Rouge]Standard;[Noir]-Standard