colorer une ligne en conditionnel

[rinspeed]

bonjour les pros,

voila mon problème.
j'ai un tableau qui fait 9 colonnes et x lignes
je voudrais mettre en couleur automatiquement les lignes dont la valeurs de la cellule de la 9ème colonne est égal à 'soldés'

que pouvez-vous me proposer en vba ?

 

[CBernardT]

Bonsoir Rinspeed,

Tu sélectionnes la plage à configurer en mise en forme conditionnelle, ici la plage sélectionée commence à la cellule A2

Tu places la condition suivante :

La formule est =SI($I2='soldés';VRAI;FAUX)

Pour le format tu choisis le motif à ta convenance.

Cordialement

Bernard

 

[JeanMarie]

Bonsoir

Tu as une possibilité de passer sans VBA, c'est la Mise en forme Conditionnelle (MFC).

1) Sélectionne ton tableau en commençant par la cellule en haut à gauche (exemple la plage C3:K30)
2) Clique sur le menu Format/Mise en forme conditionnelle...
3) dans la boîte de dialogue
- clique sur le choix 'La valeur de la cellule est ' pour le remplacer par 'La formule est'
- dans le champ à côté tu tapes la formule =$K3='soldés'
4) tu changes le format des cellules
et tu valides

Bonne soirée, si mes explications te semble confuses, tu places un fichier

@+Jean-Marie

 

[JeanMarie]

Re...

Excuse Bernard, je n'avais pas rafraîchi.

Une modification d'un format d'une MFC est appliquée qui si le résultat du comparateur est VRAI, tu n'as pas besoin d'utiliser la fonction SI.

@+Jean-Marie

 

[CBernardT]

Bonsoir JeanMarie,


Avec Excel 2003, je n'arrive pas à lui faire 'prendre' la formule tel que tu la définis ?

Salut

Bernard

 

[Startus]

Bonsoir,

J'utilise Excel 2003, et chez moi ça fonctionne...

Vérifie bien que tu enntres dans la MFC le fomat suivant :

$K3 et non $K$3 ou K3

Startus

 

[CBernardT]

Re,

Autant pour moi 🙁

ça fonctionne


Salut

Bernard

 

[Hellboy]

Bonsoir Startus,CBernardT, JeanMarie

Pour la partie VBA ce code devrait répondre a tes exigences.

Public Sub asdfa()
Dim Cell As Range
For Each Cell In Range(Cells(1, 9), Cells(Cells(65536, 1).End(xlUp).Row, 9))
    With Cell
    If .Value = 'soldés' Then
       Range(Cells(.Row, 1), Cells(.Row, 9)).Interior.ColorIndex = 4
    End If
    End With
Next Cell
End Sub

En passant les Boys, la colonne K, c'est pas la 11ième colonne ça ?
B)

 

[rinspeed]

Merci à vous tous pour votre aide et surtout à Jean-marie,
c'est ta solution que j'ai retenu et elle fonctionne parfaitement sous Excel 2003.
Encore merci.