Simplifier une macro

Version imprimable

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:

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

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

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 ?

22/08/2017, 00h28
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 ;)
22/08/2017, 00h30
eriiic

Bonjour,

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

Citation:

'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
22/08/2017, 09h50
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.
22/08/2017, 13h01
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
22/08/2017, 13h09
riaolle

1 pièce(s) jointe(s)

Bonjour,
Ceci devrait pouvoir vous aider :
Pièce jointe 305150
22/08/2017, 13h46
Menhir

Citation:

Envoyé par 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

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
22/08/2017, 14h04
INFINITY100

Merci à vous tous

Problème résolu ;);)
22/08/2017, 14h18
eriiic

Au passage le lien fourni ici t'expliquait tout : https://www.developpez.net/forums/d1...o/#post9551303
Il faut peut-être faire un peu d'effort pour exploiter les réponses...
eric