Mise en forme conditionnelle sous vba

[cidark]

Bonjour à tous,

j'ai un tableau où suivant la valeur dans la colonne M (B,O,R,V) j'applique une couleur à toute sa ligne.

ex: si dans la ligne 5 colonne M j'ai 'B' je veux que la ligne soit Bleu.

Mon Problème

Pour une facilité de lecture je voudrais l'appliquer seulement au tableau concerné (la colonne M est la dernière de mon tableau où je veux appliquer la mise en forme.)

Voici mon code vba utilisé:

Sub macro10()
For Each a In Range("M5:M2000")
If a.Value = "R" Then
a.EntireRow.Select
With Selection.Interior
.Color = 255
End With
End If
Next a

For Each b In Range("M5:M2000")
If b.Value = "B" Then
b.EntireRow.Select
With Selection.Interior
.Color = 15773696
End With
End If
Next b

etc....
End Sub


Je sais que mon problème vient de Entirerow mais je ne trouve pas le code dont j'ai besoin.
J'ai essayé d'utiliser "Activesheet.range("e12").currentregion.select" mais sa ne fonctionne pas non plus.

merci de votre aide.
Phil

 

[Pierrot93]

Re : Mise en forme conditionnelle sous vba

Bonjour,

regarde ce qui suit, si cela peut t'aider :

For Each a In Range("M5:M2000")
    If a.Value = "R" Then
        Range("A" & a.Row).Resize(, 13).Interior.Color = 255
    End If
Next a

bon après midi
@+

 

[néné06]

Re : Mise en forme conditionnelle sous vba

Bonsoir Cidark,Pierrot

Regardes l'exemple , si cela peut te donner des idées?

A+

 

[néné06]

Re : Mise en forme conditionnelle sous vba

Une version allégée.

A+

 

[néné06]

Re : Mise en forme conditionnelle sous vba

Et la même version sous Excel 2003, pour notre ami Pierrot,qui, je crois n'ouvre pas les fichiers XLSM.

A+

 

[cidark]

Re : Mise en forme conditionnelle sous vba

waouh...

Je ne sais pas quoi dire à part un grand merci à vous tous....
comme d'habitude une sacré efficacité....
juste pour ma culture néné06 puisque je débute en vba, pourrais tu m'expliquer les lignes 2 et 3 stp.
num_der_lig = Cells.Find("*", , , , , xlPrevious).Row
For i = 1 To num_der_lig
a+
phil

 

[néné06]

Re : Mise en forme conditionnelle sous vba

La ligne 2 num-der-lig donne le num de la ligne de la dernière cellule écrite de toutes les colonnes
La ligne 3 prend chaque ligne de 1 a la dernière ligne écrite
Je suis sur mon téléphone et c,est dur pour écrire

A+