Discussion :

[ted the Ors]

Bonjour à tous,

M'aidant du (très bon) tuto de cette page, j'ai ecrit la petite macro qui suit.

Mon but était, pour chaque ligne, pour les colonnes A à N, coloriser la ligne en gris si la valeur de la cellule F = TOTO ou en bleu si la valeur de la cellule F = TATA

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
Sub Macro1()
'
'
With Range("A:N")
    'Supprime les MFC existantes
    .FormatConditions.Delete
    'Ajoute la condition 1 (Vrai lorsque la cellule Statut = SYB)
    .FormatConditions.Add Type:=xlExpression, Formula1:="=$F2=""TOTO"""
 
    'Ajoute une condition 2 (Vrai lorsque la cellule Statut = TER)
    .FormatConditions.Add Type:=xlExpression, Formula1:="=$F2=""TATA"""
 
    With .FormatConditions(1)
        'Définit la couleur de fond de la cellule lorsque la condition 1 sera vraie.
        .Interior.ColorIndex = 34 'Bleu clair
    End With
 
    With .FormatConditions(2)
        'Définit la couleur de fond de la cellule lorsque la condition 2 sera vraie.
        .Interior.ColorIndex = 15 'Gris
    End With
 
End With
 
End Sub

La macro semble fonctionner mais cela m'étonne, car je pensais que seule la valeur de F2 allait conditionné la mise en forme...
Merci à ceux qui m'éclaireront!

Excellent samedi!

Ted

[Le Pierre]

bonjour

pour que seul le contenu de F2 conditionne le format il faut indiquer les références en absolue.
Par exemple : Formula1:="=$F2=""TOTO"""
deviendra : Formula1:="=$F$2=""TOTO"""
idem pour "TATA"

à plus

[ted the Ors]

Re:

C'est etrange, car j'applique cette mise en forme à 4 feuilles de mon classeur, selon le pseudo code

Selection feuille 1
Mise En Forme
Selection feuille 2
Mise En Forme
Selection feuille 3
Mise En Forme
Selection feuille 4
Mise En Forme

Et pour la derniere feuille, ca bug completement!
Pour la case F1 au lieu d'avoir une condition sur la valeur de F1, j'ai une condition sur la valeur de F65536
Bug ou erreur de code?

[Le Pierre]

bonjour

essaye ce bout de code :

Code :

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

1
2
3
4
5
6
7
Sub test()
    For i = 1 To 4
        Sheets(i).Select
        Call MiseEnForme
        DoEvents
    Next i
End Sub

J'ai toutefois un problème de mise à jour de l'affichage lorsque je change le nom en F2 : il faut que je quitte l'onglet et lorsque j'y reviens, tout est OK au niveau des couleurs.
à plus