Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Colorier une ligne sur 2

Colorier une ligne sur 2

11 réponses
Avatar
Dan
Bonjour,

je cherche à mettre les lignes en couleur(1 ligne bleu et 1 ligne bleu
clair)
dans une plage après un tri ou un filtre.
le problème c'est que le nb de ligne la plage varie...

j'ai essayé avec dim mais y'a t-il un autre moyen plus rapide...

Merci


Daniel
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Willy Gruner
Salut Dan
Tu sélectionnes à partir de la cellule A1 la plage désirée :
1) Format/Mise en forme conditionnelle.
2) Condition1/La formule est/ tu colles cette ligne : =MOD(LIGNE();2)=0
3) Format tu choisis la couleur grise.
4 ) ok, ok

Et voili
A+
Willy
Avatar
AV
Pour que le formatage des lignes "résiste" au filtre
Exemple sur la plage A2:Ax (A1=étiquette colonne)
Sélection A2:Ax > Format > Mise en forme conditionnelle >
Condition1 > la formule est :
=MOD(SOMME(SOUS.TOTAL(3;DECALER($A$2;LIGNE($A$2:$A2)-LIGNE($A$2);;)));2)=0
Motif > Bleu
Condition2 > la formule est :

=MOD(SOMME(SOUS.TOTAL(3;DECALER($A$2;LIGNE($A$2:$A2)-LIGNE($A$2);;)));2)
Motif > Bleu clair


AV

"Dan" a écrit dans le message news:

Bonjour,

je cherche à mettre les lignes en couleur(1 ligne bleu et 1 ligne bleu
clair)
dans une plage après un tri ou un filtre.
le problème c'est que le nb de ligne la plage varie...

j'ai essayé avec dim mais y'a t-il un autre moyen plus rapide...

Merci


Daniel




Avatar
Bernard MAZAS
Salut AV

Dans le même esprit, il me semble qu'il y a plus simple :

=MOD(SOUS.TOTAL(3;$A$2:$A2);2)=0

Me goure je ?

Bernard

"AV" a écrit dans le message news:

Pour que le formatage des lignes "résiste" au filtre
Exemple sur la plage A2:Ax (A1=étiquette colonne)
Sélection A2:Ax > Format > Mise en forme conditionnelle >
Condition1 > la formule est :
=MOD(SOMME(SOUS.TOTAL(3;DECALER($A$2;LIGNE($A$2:$A2)-LIGNE($A$2);;)));2)=0
Motif > Bleu
Condition2 > la formule est :

=MOD(SOMME(SOUS.TOTAL(3;DECALER($A$2;LIGNE($A$2:$A2)-LIGNE($A$2);;)));2)
Motif > Bleu clair


AV

"Dan" a écrit dans le message news:

Bonjour,

je cherche à mettre les lignes en couleur(1 ligne bleu et 1 ligne bleu
clair)
dans une plage après un tri ou un filtre.
le problème c'est que le nb de ligne la plage varie...

j'ai essayé avec dim mais y'a t-il un autre moyen plus rapide...

Merci


Daniel








Avatar
Dan
Merci pour votre réponse
je vous donne ce que j'utilise en ce moment mais il y aura bientôt 3000
lignes et c'est assez lent...
Sub Coulore_1_sur_2()
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Dim i As Long
Dim NbLignes As Long
NbLignes = Selection.Rows.Count
For i = 2 To NbLignes Step 2
Rows(i).Select
With Selection.Interior
.ColorIndex = 48
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Next i
For i = 3 To NbLignes Step 2
Rows(i).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Next i
y aurait-il un autre moyen encore, autre que le format conditionnel et
autre que celui-ci...

Merci AV tu es vraiment un dieu dans le domaine....

Daniel
End Sub
"AV" a écrit dans le message de
news:
Pour que le formatage des lignes "résiste" au filtre
Exemple sur la plage A2:Ax (A1=étiquette colonne)
Sélection A2:Ax > Format > Mise en forme conditionnelle >
Condition1 > la formule est :
=MOD(SOMME(SOUS.TOTAL(3;DECALER($A$2;LIGNE($A$2:$A2)-LIGNE($A$2);;)));2)=0
Motif > Bleu
Condition2 > la formule est :

=MOD(SOMME(SOUS.TOTAL(3;DECALER($A$2;LIGNE($A$2:$A2)-LIGNE($A$2);;)));2)
Motif > Bleu clair


AV

"Dan" a écrit dans le message news:

Bonjour,

je cherche à mettre les lignes en couleur(1 ligne bleu et 1 ligne bleu
clair)
dans une plage après un tri ou un filtre.
le problème c'est que le nb de ligne la plage varie...

j'ai essayé avec dim mais y'a t-il un autre moyen plus rapide...

Merci


Daniel








Avatar
Ellimac
Bonjour,

A partir de la mise en forme conditionnelle et sur les
colonnes entières :
Cond1 La formule est --> =et($A1<>"";mod(ligne();2)=0)
Cond2 La formule est --> =et($A1<>"";mod(ligne();2)<>0)

Camille

-----Message d'origine-----
Merci pour votre réponse
je vous donne ce que j'utilise en ce moment mais il y
aura bientôt 3000

lignes et c'est assez lent...
Sub Coulore_1_sur_2()
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Dim i As Long
Dim NbLignes As Long
NbLignes = Selection.Rows.Count
For i = 2 To NbLignes Step 2
Rows(i).Select
With Selection.Interior
.ColorIndex = 48
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Next i
For i = 3 To NbLignes Step 2
Rows(i).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Next i
y aurait-il un autre moyen encore, autre que le format
conditionnel et

autre que celui-ci...

Merci AV tu es vraiment un dieu dans le domaine....

Daniel
End Sub
"AV" a écrit dans le message de
news:
Pour que le formatage des lignes "résiste" au filtre
Exemple sur la plage A2:Ax (A1=étiquette colonne)
Sélection A2:Ax > Format > Mise en forme conditionnelle

Condition1 > la formule est :
=MOD(SOMME(SOUS.TOTAL(3;DECALER($A$2;LIGNE($A$2:$A2)-
LIGNE($A$2);;)));2)=0


Motif > Bleu
Condition2 > la formule est :

=MOD(SOMME(SOUS.TOTAL(3;DECALER($A$2;LIGNE($A$2:$A2)-
LIGNE($A$2);;)));2)


Motif > Bleu clair


AV

"Dan" a écrit dans le message news:

Bonjour,

je cherche à mettre les lignes en couleur(1 ligne
bleu et 1 ligne bleu



clair)
dans une plage après un tri ou un filtre.
le problème c'est que le nb de ligne la plage
varie...




j'ai essayé avec dim mais y'a t-il un autre moyen
plus rapide...




Merci


Daniel








.





Avatar
Bernard MAZAS
Mais Camille ça ne marche pas si Dan filtre sa liste...

Bernard

"Ellimac" a écrit dans le
message news: 048d01c37928$23fa8820$
Bonjour,

A partir de la mise en forme conditionnelle et sur les
colonnes entières :
Cond1 La formule est --> =et($A1<>"";mod(ligne();2)=0)
Cond2 La formule est --> =et($A1<>"";mod(ligne();2)<>0)

Camille

-----Message d'origine-----
Merci pour votre réponse
je vous donne ce que j'utilise en ce moment mais il y
aura bientôt 3000

lignes et c'est assez lent...
Sub Coulore_1_sur_2()
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Dim i As Long
Dim NbLignes As Long
NbLignes = Selection.Rows.Count
For i = 2 To NbLignes Step 2
Rows(i).Select
With Selection.Interior
.ColorIndex = 48
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Next i
For i = 3 To NbLignes Step 2
Rows(i).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Next i
y aurait-il un autre moyen encore, autre que le format
conditionnel et

autre que celui-ci...

Merci AV tu es vraiment un dieu dans le domaine....

Daniel
End Sub
"AV" a écrit dans le message de
news:
Pour que le formatage des lignes "résiste" au filtre
Exemple sur la plage A2:Ax (A1=étiquette colonne)
Sélection A2:Ax > Format > Mise en forme conditionnelle

Condition1 > la formule est :
=MOD(SOMME(SOUS.TOTAL(3;DECALER($A$2;LIGNE($A$2:$A2)-
LIGNE($A$2);;)));2)=0


Motif > Bleu
Condition2 > la formule est :

=MOD(SOMME(SOUS.TOTAL(3;DECALER($A$2;LIGNE($A$2:$A2)-
LIGNE($A$2);;)));2)


Motif > Bleu clair


AV

"Dan" a écrit dans le message news:

Bonjour,

je cherche à mettre les lignes en couleur(1 ligne
bleu et 1 ligne bleu



clair)
dans une plage après un tri ou un filtre.
le problème c'est que le nb de ligne la plage
varie...




j'ai essayé avec dim mais y'a t-il un autre moyen
plus rapide...




Merci


Daniel








.





Avatar
AV
Me goure je ?


Ben.... peut-être bien que non !
;-)
AV


Bernard

"AV" a écrit dans le message news:

Pour que le formatage des lignes "résiste" au filtre
Exemple sur la plage A2:Ax (A1=étiquette colonne)
Sélection A2:Ax > Format > Mise en forme conditionnelle >
Condition1 > la formule est :
=MOD(SOMME(SOUS.TOTAL(3;DECALER($A$2;LIGNE($A$2:$A2)-LIGNE($A$2);;)));2)=0
Motif > Bleu
Condition2 > la formule est :

=MOD(SOMME(SOUS.TOTAL(3;DECALER($A$2;LIGNE($A$2:$A2)-LIGNE($A$2);;)));2)
Motif > Bleu clair


AV

"Dan" a écrit dans le message news:

Bonjour,

je cherche à mettre les lignes en couleur(1 ligne bleu et 1 ligne bleu
clair)
dans une plage après un tri ou un filtre.
le problème c'est que le nb de ligne la plage varie...

j'ai essayé avec dim mais y'a t-il un autre moyen plus rapide...

Merci


Daniel












Avatar
Jacquouille
Salut Bernard
Ben moi, j'en suis tout retourné.
La formule d'AV me signale qu'il n'y a pas assez d'argument et la tienne
cafouille avec la dernière ligne.....
Je vous demande pardon pour cette offense (ou pour ma connerie ...)
--
Jacquouille con seille : http://www.excelabo.net


"Bernard MAZAS" a écrit dans le message
news: uRg24$
Mais Camille ça ne marche pas si Dan filtre sa liste...

Bernard

"Ellimac" a écrit dans le
message news: 048d01c37928$23fa8820$
Bonjour,

A partir de la mise en forme conditionnelle et sur les
colonnes entières :
Cond1 La formule est --> =et($A1<>"";mod(ligne();2)=0)
Cond2 La formule est --> =et($A1<>"";mod(ligne();2)<>0)

Camille

-----Message d'origine-----
Merci pour votre réponse
je vous donne ce que j'utilise en ce moment mais il y
aura bientôt 3000

lignes et c'est assez lent...
Sub Coulore_1_sur_2()
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Dim i As Long
Dim NbLignes As Long
NbLignes = Selection.Rows.Count
For i = 2 To NbLignes Step 2
Rows(i).Select
With Selection.Interior
.ColorIndex = 48
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Next i
For i = 3 To NbLignes Step 2
Rows(i).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Next i
y aurait-il un autre moyen encore, autre que le format
conditionnel et

autre que celui-ci...

Merci AV tu es vraiment un dieu dans le domaine....

Daniel
End Sub
"AV" a écrit dans le message de
news:
Pour que le formatage des lignes "résiste" au filtre
Exemple sur la plage A2:Ax (A1=étiquette colonne)
Sélection A2:Ax > Format > Mise en forme conditionnelle

Condition1 > la formule est :
=MOD(SOMME(SOUS.TOTAL(3;DECALER($A$2;LIGNE($A$2:$A2)-
LIGNE($A$2);;)));2)=0


Motif > Bleu
Condition2 > la formule est :

=MOD(SOMME(SOUS.TOTAL(3;DECALER($A$2;LIGNE($A$2:$A2)-
LIGNE($A$2);;)));2)


Motif > Bleu clair


AV

"Dan" a écrit dans le message news:

Bonjour,

je cherche à mettre les lignes en couleur(1 ligne
bleu et 1 ligne bleu



clair)
dans une plage après un tri ou un filtre.
le problème c'est que le nb de ligne la plage
varie...




j'ai essayé avec dim mais y'a t-il un autre moyen
plus rapide...




Merci


Daniel








.









Avatar
Bernard MAZAS
"Jacquouille" a écrit dans le message news:

Salut Bernard
Ben moi, j'en suis tout retourné.
La formule d'AV me signale qu'il n'y a pas assez d'argument et la tienne
cafouille avec la dernière ligne.....


cafouille, Jacquouille, ça rime à rien. Qu'est ce qu'elle fait exactement ?

Bernard

Avatar
Jacquouille
Ben si, justement
cafouille et Jacquouille, ça rime.
La dernière ligne du tri ne se colorait pas.
Je viens de refaire un test avec un autre fichier et cela fonctionne à
merveille. (Sûrement la sélection de plage pas assez longue au premier
test).
Il ne me reste donc plus qu'à te présenter mes plus humbles excuses et
recevoir tes témoins demain à l'aube ...
Merci et bonne soirée
--
Jacquouille con seille : http://www.excelabo.net


"Bernard MAZAS" a écrit dans le message
news:

"Jacquouille" a écrit dans le message
news:


Salut Bernard
Ben moi, j'en suis tout retourné.
La formule d'AV me signale qu'il n'y a pas assez d'argument et la tienne
cafouille avec la dernière ligne.....


cafouille, Jacquouille, ça rime à rien. Qu'est ce qu'elle fait exactement
?


Bernard





1 2