Colorier lignes

[yves03]

Bonsoir à tous,

J'ai cette macro qui me permet de colorier une ligne selon des criteres.
Mais je ne voudrais pas colorier toute la ligne , je voudrais colorier de la colonne A à la colonne AG
Merci d'avance de votre aide.

Sub Accredite()
' Colorier en bleu ligne Ind, cofrac, accredite
Application.ScreenUpdating = False
Sheets("MP").Select
Range("O2:O5000").Select
For Each o In Selection
If o.Value = "ind" Or o.Value = "IND" Or o.Value = "IND COFRAC" Or o.Value = "ACCREDITE" Or o.Value = "cofrac" Then
    
o.EntireRow.Interior.ColorIndex = 8
End If
Tri.CommandButton1.SetFocus
Range("A2").Select
Sheets("Accueil").Select
Next
Application.ScreenUpdating = True
End Sub

 

[Excel-lent]

Re : Colorier lignes

Bonsoir yves03,

Pour cela, il te suffit de remplacer :

o.EntireRow.Interior.ColorIndex = 8

par :

Range(cells(o.Row, 1),cells(o.Row, 33)).Interior.ColorIndex = 8

et le tour est joué.

Bonne fin de soirée

 

[yves03]

Re : Colorier lignes

Bonsoir yves03,

Pour cela, il te suffit de remplacer :

o.EntireRow.Interior.ColorIndex = 8

par :

[CODE]Range(cells(o.Row, 1),cells(o.Row, 33)).Interior.ColorIndex = 8

[/code]

et le tour est joué.

Bonne fin de soirée

Bonjour,
J'ai bien remplacé la ligne

o.EntireRow.Interior.ColorIndex = 8

par

Range(cells(o.Row, 1),cells(o.Row, 33)).Interior.ColorIndex = 8

Mais ça ne fonctionne pas, il n'y a plus rien qui passe en couleur.
Si quelqu'un a une idée.
Merci d'avance

 

[ninbihan]

Re : Colorier lignes

Bonjour Yves, Excellent
Bonjour le forum

Peut être en remplaçant la même ligne par:

Range("A" & o.row & ":AG" & o.Row).Interior.ColorIndex = 8

Bonne journée,

Ninbihan

 

[yves03]

Re : Colorier lignes

Merci à tous cela fonctionne, en fait la couleur ne se mettait pas sur la bonne feuille. J'ai simplement rajouté : Sheets("MP").select.
Merci encore.

 

[Excel-lent]

Re : Colorier lignes

Bonjour Yves03,

ça ne fonctionne pas, il n'y a plus rien qui passe en couleur.
Si quelqu'un a une idée.
Merci d'avance

Mon code fonctionne, ton probléme vient des lignes :

Range("A2").Select
Sheets("Accueil").Select

Regarde le fichier ci-joint, j'y ai mis ta macro, modifié et commenté.

Elle fonctionne à 100%. N'hésites pas, si tu veux plus de précision.

A+

 

[Excel-lent]

Précision

Re-lut

J'ai simplement rajouté : Sheets("MP").select.

C'était pas nécessaire, tu l'avais déjà dans ta macro. Il te suffit juste d'enlever, ou déplacer à l'extérieur de ta boucle "For Each/next", les lignes :

Range("A2").Select
Sheets("Accueil").Select

Car à part faire colorier la mauvaise page, elles ne servent à rien! Cf fichier joint dans mon précédent post.

 

[yves03]

Re : Colorier lignes

Merci Excel-Lent pour toutes tes explications, j'ai modifie mes macros selon tes conseils et tout fonctionne bien et en plus beaucoup plus rapidement.
Merci encore
😉