OVH Cloud OVH Cloud

Mise en forme .. conditionnelle ?!? [newbee]

2 réponses
Avatar
Fred
Salut à tous !
Ptite question facile, désolé...
mais jai cherché et pas trouvé comment faire ;-/

J'aimerais que, sur ma feuille de calcul, une ligne sur 2 ait le fond
colorés (pour plus de lisibilité).
Seulement, voila, je sais plus comment faire..
car ca ne depend pas du contenu, c'est vraiment une ligne sur 2..
Après j'utlise des filtre automatique sur ces lignes, donc faudrait que la
mise en page soit tjs la même,
car la j ai fait tout "à la main", et forcément lors de mes trucs, ca fait
plus trop une ligne sur 2 qui a la couleur...

Merci !!!
Fred

2 réponses

Avatar
Ricky [MVP]
Bonjour *Fred* (et tous les lecteurs)
| Salut à tous !
| Ptite question facile, désolé...
| mais jai cherché et pas trouvé comment faire ;-/
|
| J'aimerais que, sur ma feuille de calcul, une ligne sur 2 ait le fond
| colorés (pour plus de lisibilité).
| Seulement, voila, je sais plus comment faire..
| car ca ne depend pas du contenu, c'est vraiment une ligne sur 2..
| Après j'utlise des filtre automatique sur ces lignes, donc faudrait
| que la mise en page soit tjs la même,
| car la j ai fait tout "à la main", et forcément lors de mes trucs, ca
| fait plus trop une ligne sur 2 qui a la couleur...
|
| Merci !!!
| Fred

Sélectionner tout
Format / Mise en forme conditionnelle
Condition 1 : la formule est =MOD(LIGNE();2)=0 trame 1
Condition 2 : la formule est =MOD(LIGNE();2)<>0 trame 2

Mais le filtra automatique va afficher des lignes consécutives aux n° paires ou impaires donc de même couleur....

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faq.ms.word.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Avatar
Joel
Bonsoir,

Sub UneLigneSurDeux()
Dim i As Long
Dim j As Long
j = 0
For i = 1 To Range("A1").CurrentRegion.Rows.Count
If Not (Cells(i, 1).EntireRow.Hidden) Then
j = j + 1
If j / 2 = Int(j / 2) Then
Range(Cells(i, 1), Cells(i,
Range("A1").CurrentRegion.Columns.Count)).Interior.ColorIndex = 15
Else
Range(Cells(i, 1), Cells(i,
Range("A1").CurrentRegion.Columns.Count)).Interior.ColorIndex = 0
End If
End If
Next
End Sub


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Fred" a écrit dans le message de
news:40e0392e$
Salut à tous !
Ptite question facile, désolé...
mais jai cherché et pas trouvé comment faire ;-/

J'aimerais que, sur ma feuille de calcul, une ligne sur 2 ait le fond
colorés (pour plus de lisibilité).
Seulement, voila, je sais plus comment faire..
car ca ne depend pas du contenu, c'est vraiment une ligne sur 2..
Après j'utlise des filtre automatique sur ces lignes, donc faudrait que la
mise en page soit tjs la même,
car la j ai fait tout "à la main", et forcément lors de mes trucs, ca fait
plus trop une ligne sur 2 qui a la couleur...

Merci !!!
Fred