Discussion :

[dodo28]

bonjour,
je cherche depuis plusieurs jours une macro qui appliquerait une mise en forme conditionnelle à toutes les feuilles d un classeurs.
Dans chaque feuille, j ai quatre colonne (A,B,C,D), je voudrais que le fond de la cellule D1 se colore en vert si elle est superieur à A1, en rouge si inferieur à A1 et en orange si egal A1 pareil pour la D2 avec A2, la D3 avec A3, etc. Je ne peux pas utiliser la MFC car ces feuilles sont générées par une macro.
merci pour votre aide

[Djohn]

Bonjour,
Voici ce que je peux te proposer (à tester)
sinon c'est quoi des MFC ?

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
 
Sub coloriage()
 
x = Sheets.Count
n = 1
 
For i = 1 To x
    Sheets(i).Activate
    While Cells(n, 1) <> ""
        If Cells(n, 4) > Cells(n, 1) Then
        Cells(n, 4).Interior.ColorIndex = 43
        ElseIf Cells(n, 4) < Cells(n, 1) Then
        Cells(n, 4).Interior.ColorIndex = 3
        ElseIf Cells(n, 4) = Cells(n, 1) Then
        Cells(n, 4).Interior.ColorIndex = 44 ' ou 45
        End If
        n = n + 1
    Wend
    n = 1
Next i
 
End Sub

[dodo28]

merci pour la macro je vais l essayer tout a l heure. MFC = mise en forme conditionnelle

[jncoffy]

Bonjour

J'ai testé la réponse de Djohn. Elle fonctionne parfaitement, mais uniquement pour la colonne D. Je me suis amusé à la modifier légèrement pour qu'elle marche pour les colonnes B à D.

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
Sub coloriage()
 
x = Sheets.Count
n = 1
 
For i = 1 To x
    Sheets(i).Activate
    While Cells(n, 1) <> ""
        For z = 2 To 4
        If Cells(n, z) > Cells(n, 1) Then
        Cells(n, z).Interior.ColorIndex = 43
        ElseIf Cells(n, z) < Cells(n, 1) Then
        Cells(n, z).Interior.ColorIndex = 3
        ElseIf Cells(n, z) = Cells(n, 1) Then
        Cells(n, z).Interior.ColorIndex = 44
        End If
        Next z
        n = n + 1
    Wend
    n = 1
Next i
Sheets(1).Activate
End Sub

Jean Noël

[dodo28]

bonjour et merci
J utilise la premiere macro.
trés bien ca marche pour tout le classeur, mais il faudrait que la macro me fasse cette operation en comparant la colone a partir de AI18 et la colonne a partir de AF18 (en sachant toujours que je ne connais pas la longueur de la colonne).
Deuxiemement est il possible de remettre a jour les couleurs de cellules a chaque modification de données de la cellule concernées.?
encore merci

[Djohn]

Je pars du principe que la colonne AI est la colonne qui change de couleur.

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
Sub coloriage()
 
x = Sheets.Count
n = 18
 
 
 
 
For i = 1 To x
    Sheets(i).Activate
    'retire les couleurs de TOUTE la colonne AI
     Columns("AI:AI").Interior.ColorIndex = xlNone
    While Cells(n, 32) <> ""
        If Cells(n, 35) > Cells(n, 32) Then
        Cells(n, 35).Interior.ColorIndex = 43
        ElseIf Cells(n, 35) < Cells(n, 32) Then
        Cells(n, 35).Interior.ColorIndex = 3
        ElseIf Cells(n, 35) = Cells(n, 32) Then
        Cells(n, 35).Interior.ColorIndex = 44 ' ou 45
        End If
        n = n + 1
    Wend
    n = 18
Next i
 
End Sub

Pour ton 2ement, j'ai rajouté une ligne qui te permet de décolorier les cellules, mais il te faudra relancer la macro à chaque mise a jour de tes cellules.

[dodo28]

Merci beaucoup

elle marche trés bien je classe l affaire resolu
et merci encore