Lignes Pyjama ???

[Tybo]

Bonjour,
j'aimerai savoir s'il était possible d'une manière ou d'une autre de créer une feuille pyjama (c'est à dire une alternance de couleur d'une ligne sur l'autre Noir-Blanc-Noir-Blanc...) ???

Merci

 

[wilfried_42]

Re : Lignes Pyjama ???

bonjour tybo

Tu selectionnes toute la feuille

Mise en forme conditionnelle : Formule

=Mod(ligne();2) = 0 ---> N° de ligne pair - > si pair est noir
=Mod(ligne();2) = 1 ---> N° de ligne impair -> si impair est noir

 

[marmotte18]

Re : Lignes Pyjama ???

Bonsoir,

Voilà une exemple de pyjama.

Regarde les formules de mise en forme conditionnelle. Tu peux supprimer ou ajouter une ligne, les rayures resteront alternées.

 

[Spitnolan08]

Re : Lignes Pyjama ???

Bonsoir le fil,🙂

Merci Wilfried et Marmotte pour cette astuce à laquelle je n'avais jamais pensé. Et à Tybo d'avoir posé la question.
Et pourtant, j'utilise de façon courante des fichiers pyjamas... avec les inconvénients d'ajout ou suppression de ligne qui vont être oubliés.

Cordialement

 

[papapaul]

Re : Lignes Pyjama ???

🙂 Bonjour le forum,
Marrant ca le pyjama.😀
Voila une approche par macro :
elle est de notre ami Pierrejean.
Le pyjama est plus moderne 🙄 , gris une fois sur deux pas
ligne par ligne mais par groupe de lignes en fonction des données
de la colonne A.

Sub test()
Dim bascule As Boolean
For n = 2 To Range("A65536").End(xlUp).Row
If Range("A" & n + 1) <> Range("A" & n) Then
If bascule Then
bascule = False
Else
bascule = True
End If
End If
If bascule Then
Rows(n + 1).Interior.ColorIndex = 15
Else
Rows(n + 1).Interior.ColorIndex = 2
End If
Next n
With ActiveSheet.Cells
.Borders.LineStyle = xlContinuous
End With
End Sub

Je trouve ca très pratique😉

@+

 

[kaiser]

Re : Lignes Pyjama ???

Bonjour le fil

Merci a vous tous pour cette astuce qui bien me simplifier la vie!