Coloration de lignes

Re : Coloration de lignes

Bonjour quezaco,

est-ce nécessaire de multiplier les posts avec une question identique

https://www.excel-downloads.com/thr...pour-moi-pour-une-meilleur-lisibilite.159653/

Patience, la réponse finira par venir


à+
Philipppe

Re : Coloration de lignes

Bonjour quezaco,

Tu peux utiliser cette mise en forme conditionnelle sur la plage "A3:I205", en sélectionnant "La formule est :"

A+

Bonjour quezaco, phlaurent55
Bonjour le forum,

Une solution dans ce fil :
https://www.excel-downloads.com/threads/macro-evenementielle-pour-alterner-couleur-ligne.133828/

Klin89

Re : Re: Coloration de lignes

Bonjour à tous en ce pluvieux dimanche.

Vous me faites peur avec vos solutions par macro (pourtant j'aime la macro et aussi le maquereau quand il est bien grillé).
J'ai l'impression d'avoir fait un peu simpliste avec ma solution MFC. Mais peut-être est-ce suffisant pour quezaco ?

Nous verrons bien.

A+

Re : Coloration de lignes

Re,

ton fichier en retour
il suffit de faire un clic-droit dans la cellule A1
voici le code:
Pour mettre une autre couleur,modifier le 4 de la ligne ci-dessous
couleur = IIf(couleur = 0, 4, 0)

à+
Philippe

Re : Coloration de lignes

Bonjour a tous,
Merci pour les différentes solutions apportées qui complèteront ma précédente demande. La macro de Gorfael couplée à une MFC feront parfaitement l'affaire.
Si toutefois quelqu'un pouvait adapter la macro de Gorfael à excel 2007, ce serait parfait.

Code :
Sub Macro1()
Dim Cel As Range, Plage As Range, Coul As Long, x
Set Plage = Range([A2], Cells(Cells(Rows.Count, "A").End(xlUp).Row, _
Cells(1, Columns.Count).End(xlToLeft).Column))

Plage.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False _
, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Plage.Interior.ColorIndex = xlNone
For Each Cel In Plage.Columns(1).Cells
If Cel <> Cel.Offset(-1, 0) Then
If Cel.Offset(-1, 0).Interior.ColorIndex = xlNone Then
Coul = 36
Else
Coul = xlNone
End If
Else
Coul = Cel.Interior.ColorIndex
End If
Range(Cel, Cells(Cel.Row, Plage.Columns.Count)).Interior.ColorIndex = Coul
Next Cel
End Sub



Encore une fois mille merci à tous pour votre aide et pourvu que ça dure...

Re : Re: Coloration de lignes

Bonjour Phlaurent55,
Nos messages se sont croisés et je n'avais pas vu votre solution qui fonctionne aussi à merveille.
Encore merci à vous et au temps que vous consacrez à nous trouver des solutions, pourvu que ça dure...

Re : Coloration de lignes

Bonsoir,

Animal pour animal, que fait un caméléon sur un kilt écossais ?
Une autre proposition, il n’y a pas de lézard (stressé) !

Re : Coloration de lignes

Bonjour Fo_rum, bonjour à tous,
Lapienichehautloienichebasounichelhibounihautnibas, mais que fait le furet ???😛
Merci pour votre proposition, mais le résultat parait incomplet...
Encore merci pour vos solutions, pourvu que ça dure...
A bientôt