Macro mise en forme

[mcj1997]

Bonjour,

Dans un tableau par ex dans colonne D comment avec une macro mettre automatiquement une couleur rouge pour toutes les lignes qui comportent 34261 dans la colonne D, couleur jaune pour toutes les lignes qui ont la valeur 34251 dans la colonne D et ainsi de suite mais je pourrai continuer en ayant la marche a suivre.

Merci d' avance

 

[solquagerius]

Re : Macro mise en forme

Bonjour,

il faudrait faire un truc du style :

sub coloriage()
dim i as integer
for i = 1 to cells(65535,4).end(xlup).row
select case (cells(i,4))
case 34261:cells(i,4).interior.color=RGB(255,0,0)
case xxx : cells(i,4).interior.color=RGB(R,V,B)
...
end select
next i
end sub

Solqua

 

[DoubleZero]

Re : Macro mise en forme

Bonjour mcj1997, le Forum,

Peut-être comme ceci (cf. PJ).

Bonne journée.

 

[Dull]

Re : Macro mise en forme

Salut mcj1997, le Forum

Peut être comme cela dans le Module de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [D:D]) Is Nothing Then
If Target.Count > 1 Then Exit Sub
    If Target.Value = "34261" Then Target.EntireRow.Interior.ColorIndex = 3
    If Target.Value = "34251" Then Target.EntireRow.Interior.ColorIndex = 6
    'Etc...
End If
End Sub

EDITION: Salut solquagerius, 00🙂 toujoursàlabourremoi...
Bonne Journée

 

[DoubleZero]

Re : Macro mise en forme

Re-bonjour,

Les méthodes de Solqua et Dull sont nettement plus "propres" que la mienne 😱 !..

Bonne journée.

 

[ROGER2327]

Re : Macro mise en forme

Bonjour à tous

Deux autres propositions dans le classeur joint.​

ROGER2327
#4921

Mardi 3 Gueules 138 (Saint Anthropoïde, policier, SQ)
9 Pluviôse An CCXIX
2011-W04-5T11:11:59Z

 

[DoubleZero]

Re : Macro mise en forme

Re-bonjour,

EDITION: Salut solquagerius, 00🙂 toujoursàlabourremoi...
Bonne Journée

Pas d'accordmoi..., Dull a mieux travaillé...🙂 tout comme solquagerius 🙂et Roger2327 🙂 !

A bientôt...