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 Une ligne sur 2 en bleu

Une ligne sur 2 en bleu

10 réponses
Avatar
Crel
Bonjour à toutes et tous.
J'ai un tableau avec une partie dans laquelle on saisit "zone".
Je souhaite créer une macro qui mette une ligne sur deux en bleu, j'ai
cherché sur MPFE, mais j'ai pas trouvé, alors que je sais qu'il y est
l'ayant déjà vu.
Merci beaucoup.
Patrick.
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
Avatar
Philippe.R
Re-bonjour Patrick,
On se croirait sur un forum privé ! ;o))
Voici copie d'un fil du 04/04/03 qui en traite :
"=================================================================="
Et si tu y vas à la dure, comme dans les western, ca va mieux ou non?

Dim Ind As Boolean, Ligne As Range
Cells.Interior.ColorIndex = xlNone
For i = 1 To 400 ' A la dure
If Cells(i, 1).Height > 0 Then
If Ind = True Then
Cells(i, 1).EntireRow.Interior.ColorIndex = 6
End If
Ind = Not Ind
End If
Next

"Stephane A. Aubertin" a écrit dans le message
news: eJPnL4s#
NB : Si j'affiches les toutes les colonnes, et que je maintient les
filtres,

ça marche.
La source du problème semble donc être ces colonnes masquées.

Dans les western aussi les problèmes sont souvent causé pas des colons
masqués.


"Stephane A. Aubertin" a écrit dans le message
de

news: uPYpG1s#
Paramètres:
Excel 2002 (XP)
Feuille de 22 colonnes par 400 lignes dont les colonnes J, O et P sont
masquées.
Les colonnes à partir de R ne sont pas dans la zone d'impression.
Un filtre automatique dans les colonnes K et M affiches
approximativement


300 lignes.

"GB" a écrit dans le message de news:
ONfwCis#
Vraiment !
Chez moi, ca donne un résultat tout à fait différent.

"Stephane A. Aubertin" a écrit dans le
message


news: #gnDCyr#
Merci pour l'intervention mais malheureusement ça donne exactement
le




même
résultat que :
Sub CouleurLignes()
Dim Ind As Boolean, Ligne As Range
Cells.Interior.ColorIndex = xlNone
For Each Ligne In







ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).EntireR

ow
If Ind = True Then
Ligne.Interior.ColorIndex = 6
End If
Ind = Not Ind
Next Ligne
End Sub

c'est à dire que toute la ligne est colorié, mais il n'y a pas
l'alternance

1 ligne sur 2 qui tien compte des filtres.
Je cherche encore...

Stephane A. Aubertin
HEC Montréal



"GB" a écrit dans le message de news:
#xT8Ham#
Bonjour,
Est-ce ce que tu cherches?

Sub CouleurLignes()
Dim Ind As Boolean, Ligne As Range, LignePrecedente As Long
Cells.Interior.ColorIndex = xlNone
For Each Ligne In









ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).EntireR

ow
If Ind = True Then
If Ligne.Row > LignePrecedente + 1 Then
Ligne.Interior.ColorIndex = 6
LignePrecedente = Ligne.Row
End If
End If
Ind = Not Ind
Next Ligne
End Sub

"Stephane A. Aubertin" a écrit dans le
message


news: Oi5oUOh#
Bonjours, voila un petit bout de temps que je n'avais pas
consulté






ce
site...

Dans le site Disciplus.simplex, j'ai trouvé cette macro pour
"Colorier




une
ligne sur deux même lorsqu'un filtre est affiché ou que des
lignes






sont
masquées":
Sub CouleurLignes()
Dim Ind As Boolean, Ligne As Range
Cells.Interior.ColorIndex = xlNone
For Each Ligne In







ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows


If Ind = True Then
Ligne.Interior.ColorIndex = 6
End If
Ind = Not Ind
Next Ligne
End Sub

En plus des filtres j'ai des colonnes masquées. La macro colore
une





série
de
lignes (pas nécessairement alternés) d'une suite de colonnes
contiguës,



et
idem sur une autre suite et pas nécessairement les mêmes
lignes,






je
me
retrouve alors avec un quadrillage.
j'ai modifié la routine comme suit :

Sub CouleurLignes()
Dim Ind As Boolean, Ligne As Range
Cells.Interior.ColorIndex = xlNone
For Each Ligne In











ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).EntireR

ow
If Ind = True Then
Ligne.Interior.ColorIndex = 6
End If
Ind = Not Ind
Next Ligne
End Sub

Cela règle le problème lié aux colonnes, mais les lignes ne sont
pas





alternés correctement. (en fait ça ne tient pas compte des
filtres)






Y a t'il une solution facile ?

Stephane A. Aubertin
HEC Montréal


"================================================================="







Il te reste à choisir, avec lignes masquées ignorées ou pas et le bon colorindex ; chez moi les bleu
oscillent entre 32 et 34.
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Crel" a écrit dans le message de
news:%23vF%
Bonjour à toutes et tous.
J'ai un tableau avec une partie dans laquelle on saisit "zone".
Je souhaite créer une macro qui mette une ligne sur deux en bleu, j'ai
cherché sur MPFE, mais j'ai pas trouvé, alors que je sais qu'il y est
l'ayant déjà vu.
Merci beaucoup.
Patrick.










Avatar
FxM
Bonjour à toutes et tous.
J'ai un tableau avec une partie dans laquelle on saisit "zone".
Je souhaite créer une macro qui mette une ligne sur deux en bleu, j'ai
cherché sur MPFE, mais j'ai pas trouvé, alors que je sais qu'il y est
l'ayant déjà vu.
Merci beaucoup.
Patrick.



Bonjour Patrick, Bonjour Flo,

Avec du mal, c'est là
http://www.excelabo.net/xl/lign-col.htm#colorier1/2

@+
FxM


PS pour Flo:
Le moteur de recherche sur excelabo dit qu'il n'y a rien pour :
une ligne sur deux
ligne deux
ligne 2
alors que ce texte apparaît tel quel deux fois dans cette rubrique.
Tu veux bien mettre ce moteur au pain sec et à l'eau ? ;o)
Bises.

Avatar
Crel
Eh oui, j'ai mon aide perso ;-)), mais il est vrai que beaucoup profitent du
long W.E.
alors que beaucoup travaillent pour leur administration qui plus est
républicaine.
Merci beaucoup.
Patrick.


"Philippe.R" a écrit dans le message de news:

Re-bonjour Patrick,
On se croirait sur un forum privé ! ;o))
Voici copie d'un fil du 04/04/03 qui en traite :
"=================================================================="
Et si tu y vas à la dure, comme dans les western, ca va mieux ou non?

Dim Ind As Boolean, Ligne As Range
Cells.Interior.ColorIndex = xlNone
For i = 1 To 400 ' A la dure
If Cells(i, 1).Height > 0 Then
If Ind = True Then
Cells(i, 1).EntireRow.Interior.ColorIndex = 6
End If
Ind = Not Ind
End If
Next

"Stephane A. Aubertin" a écrit dans le message
news: eJPnL4s#
NB : Si j'affiches les toutes les colonnes, et que je maintient les
filtres,

ça marche.
La source du problème semble donc être ces colonnes masquées.

Dans les western aussi les problèmes sont souvent causé pas des colons
masqués.


"Stephane A. Aubertin" a écrit dans le
message


de
news: uPYpG1s#
Paramètres:
Excel 2002 (XP)
Feuille de 22 colonnes par 400 lignes dont les colonnes J, O et P sont
masquées.
Les colonnes à partir de R ne sont pas dans la zone d'impression.
Un filtre automatique dans les colonnes K et M affiches
approximativement


300 lignes.

"GB" a écrit dans le message de news:
ONfwCis#
Vraiment !
Chez moi, ca donne un résultat tout à fait différent.

"Stephane A. Aubertin" a écrit dans le
message


news: #gnDCyr#
Merci pour l'intervention mais malheureusement ça donne exactement
le




même
résultat que :
Sub CouleurLignes()
Dim Ind As Boolean, Ligne As Range
Cells.Interior.ColorIndex = xlNone
For Each Ligne In









ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).EntireR

ow
If Ind = True Then
Ligne.Interior.ColorIndex = 6
End If
Ind = Not Ind
Next Ligne
End Sub

c'est à dire que toute la ligne est colorié, mais il n'y a pas
l'alternance

1 ligne sur 2 qui tien compte des filtres.
Je cherche encore...

Stephane A. Aubertin
HEC Montréal



"GB" a écrit dans le message de news:
#xT8Ham#
Bonjour,
Est-ce ce que tu cherches?

Sub CouleurLignes()
Dim Ind As Boolean, Ligne As Range, LignePrecedente As Long
Cells.Interior.ColorIndex = xlNone
For Each Ligne In











ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).EntireR

ow
If Ind = True Then
If Ligne.Row > LignePrecedente + 1 Then
Ligne.Interior.ColorIndex = 6
LignePrecedente = Ligne.Row
End If
End If
Ind = Not Ind
Next Ligne
End Sub

"Stephane A. Aubertin" a écrit dans
le






message
news: Oi5oUOh#
Bonjours, voila un petit bout de temps que je n'avais pas
consulté






ce
site...

Dans le site Disciplus.simplex, j'ai trouvé cette macro pour
"Colorier




une
ligne sur deux même lorsqu'un filtre est affiché ou que des
lignes






sont
masquées":
Sub CouleurLignes()
Dim Ind As Boolean, Ligne As Range
Cells.Interior.ColorIndex = xlNone
For Each Ligne In







ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows


If Ind = True Then
Ligne.Interior.ColorIndex = 6
End If
Ind = Not Ind
Next Ligne
End Sub

En plus des filtres j'ai des colonnes masquées. La macro
colore







une
série
de
lignes (pas nécessairement alternés) d'une suite de colonnes
contiguës,



et
idem sur une autre suite et pas nécessairement les mêmes
lignes,






je
me
retrouve alors avec un quadrillage.
j'ai modifié la routine comme suit :

Sub CouleurLignes()
Dim Ind As Boolean, Ligne As Range
Cells.Interior.ColorIndex = xlNone
For Each Ligne In













ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).EntireR

ow
If Ind = True Then
Ligne.Interior.ColorIndex = 6
End If
Ind = Not Ind
Next Ligne
End Sub

Cela règle le problème lié aux colonnes, mais les lignes ne
sont







pas
alternés correctement. (en fait ça ne tient pas compte des
filtres)






Y a t'il une solution facile ?

Stephane A. Aubertin
HEC Montréal


"================================================================="







Il te reste à choisir, avec lignes masquées ignorées ou pas et le bon
colorindex ; chez moi les bleu

oscillent entre 32 et 34.
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Crel" a écrit dans le message de
news:%23vF%
Bonjour à toutes et tous.
J'ai un tableau avec une partie dans laquelle on saisit "zone".
Je souhaite créer une macro qui mette une ligne sur deux en bleu, j'ai
cherché sur MPFE, mais j'ai pas trouvé, alors que je sais qu'il y est
l'ayant déjà vu.
Merci beaucoup.
Patrick.














Avatar
Crel
Merci beaucoup François, toujours aussi rapide et sympa.
Patrick.

"FxM" a écrit dans le message de news:

Bonjour à toutes et tous.
J'ai un tableau avec une partie dans laquelle on saisit "zone".
Je souhaite créer une macro qui mette une ligne sur deux en bleu, j'ai
cherché sur MPFE, mais j'ai pas trouvé, alors que je sais qu'il y est
l'ayant déjà vu.
Merci beaucoup.
Patrick.



Bonjour Patrick, Bonjour Flo,

Avec du mal, c'est là
http://www.excelabo.net/xl/lign-col.htm#colorier1/2

@+
FxM


PS pour Flo:
Le moteur de recherche sur excelabo dit qu'il n'y a rien pour :
une ligne sur deux
ligne deux
ligne 2
alors que ce texte apparaît tel quel deux fois dans cette rubrique.
Tu veux bien mettre ce moteur au pain sec et à l'eau ? ;o)
Bises.




Avatar
Misange
je t'embauche pour la mise à jour des mots clefs du moteur ! C'est vrai que
parfois il m'énerve excelabo. Je crois que je suis quand même théoriquement
assez bien placée pour savoir qu'un truc doit s'y trouver et bien parfois il
n'y est pas !
Cette astuce doit être parmi les premières que j'ai mises en ligne. Et à
cette époque je me restreignais pas mal dans les mots clefs.
Ceci doit expliquer cela et montre qu'il faudrait faire un peu de mise à
jour. En fait c'est comme beaucoup d'autres choses, c'est prévu... :-)
--
Misange migrateuse http://www.excelabo.net
==== Attention : Disciplus a déménagé !====



"FxM" a écrit dans le message de
news:
Bonjour à toutes et tous.
J'ai un tableau avec une partie dans laquelle on saisit "zone".
Je souhaite créer une macro qui mette une ligne sur deux en bleu, j'ai
cherché sur MPFE, mais j'ai pas trouvé, alors que je sais qu'il y est
l'ayant déjà vu.
Merci beaucoup.
Patrick.



Bonjour Patrick, Bonjour Flo,

Avec du mal, c'est là
http://www.excelabo.net/xl/lign-col.htm#colorier1/2

@+
FxM


PS pour Flo:
Le moteur de recherche sur excelabo dit qu'il n'y a rien pour :
une ligne sur deux
ligne deux
ligne 2
alors que ce texte apparaît tel quel deux fois dans cette rubrique.
Tu veux bien mettre ce moteur au pain sec et à l'eau ? ;o)
Bises.




Avatar
AV
Hééé ! Et la Mise en forme conditionnelle ?
Même que c'est sur Exlabo !

Sur une plage "ordinaire" ligne paires :
=MOD(LIGNE();2)=0

Sur une plage filtrée (Ex: B2:Bx )
=MOD(SOMME(SOUS.TOTAL(3;DECALER($B$2;LIGNE($B$2:$B2)-MIN(LIGNE($B$2:$B2));;1)));
2)

AV
Avatar
Crel
Merci François, mais comment puis je faire afin que cette proc ne fonctionne
que sur une zone bien définie appelée "zone".
Merci beaucoup.
Patrick.

Sub CouleurLignes()
Dim Ind As Boolean, Ligne As Range
Cells.Interior.ColorIndex = xlNone
For Each Ligne In
ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows
If Ind = True Then
Ligne.Interior.ColorIndex = 34
End If
Ind = Not Ind
Next Ligne
End Sub


"FxM" a écrit dans le message de news:

Bonjour à toutes et tous.
J'ai un tableau avec une partie dans laquelle on saisit "zone".
Je souhaite créer une macro qui mette une ligne sur deux en bleu, j'ai
cherché sur MPFE, mais j'ai pas trouvé, alors que je sais qu'il y est
l'ayant déjà vu.
Merci beaucoup.
Patrick.



Bonjour Patrick, Bonjour Flo,

Avec du mal, c'est là
http://www.excelabo.net/xl/lign-col.htm#colorier1/2

@+
FxM


PS pour Flo:
Le moteur de recherche sur excelabo dit qu'il n'y a rien pour :
une ligne sur deux
ligne deux
ligne 2
alors que ce texte apparaît tel quel deux fois dans cette rubrique.
Tu veux bien mettre ce moteur au pain sec et à l'eau ? ;o)
Bises.




Avatar
FxM
Misange wrote:
je t'embauche pour la mise à jour des mots clefs du moteur !


Bonjour Flo,

Ayant comme toi des 'activités annexes', je ne vais pas m'engager à
faire systématiquement l'analyse du site. Mais si je peux t'aider, ne
t'en prive pas.

HTTrack peut créer une base sémantique des sites aspirés et générer un
fichier txt tel que suit : (début d'Excelabo)

a--bcdg-a-jac
1 www.excelabo.net/xl/comparer.htm
=1
(0)
a-1
1 www.excelabo.net/xl/calendriers.htm
=1
(0)
a-t-il
2 www.excelabo.net/xl/barres.htm
1 www.excelabo.net/xl/filtris.htm
1 www.excelabo.net/xl/fonctions.htm
1 www.excelabo.net/xl/formats.htm
=5
... etc

ainsi, 'a-t-il' est apparu deux fois sur la page
www.excelabo.net/xl/barres.htm, etc ...
et un total de 5 fois sur le site.
(0) est le séparateur de mots / expressions.

Ce n'est surement ni parfait, ni exhaustif mais si ça peut aider, le
fichier texte fait 2748 ko (239 ko compressé zip). Si tu insistes ;o),
je peux voir pour le mettre sous une forme un peu plus compréhensible.
Tu connais ma BAL.

Bises
@+
Fx

Avatar
Misange
Si c'est pour faire une indexation automatique, il y a des outils excellents
pour cela et plus performants que HTTrack que je connais aussi. Mais pour
avoir testé, je trouve que la pertinence est très mauvaise. C'est la raison
pour laquelle j'ai choisi depuis déjà longtemps de faire un moteur avec une
indexation manuelle des liens. Il fut un temps ou j'avais même deux moteurs
sur excelabo, un manuel (en js à l'époque) et un avec indexation
automatique. L'analyse de l'utilisation des pages était parlante : le moteur
automatique était bien moins utilisé que l'autre alors qu'il était à
l'époque plus rapide.
Grace à certains du forum, je dispose d'une super macro pour comparer les
mots des astuces à une liste de mots clefs. C'est cette macro qu'il faut que
je fasse tourner sur les pages déjà en ligne, ce qui nécessite avant un bon
petit boulot à l'extérieur d'excel...
Le temps venant à manquer, je suis en train d'essayer de mettre au point des
outils pour que les GC (gentils contributeurs !) du MPFE puissent participer
plus activement au maintien du site. Mais la mise au point de ces outils ...
prend du temps !

--
Misange migrateuse http://www.excelabo.net
==== Attention : Disciplus a déménagé !====



"FxM" a écrit dans le message de
news:%230$
Misange wrote:
je t'embauche pour la mise à jour des mots clefs du moteur !


Bonjour Flo,

Ayant comme toi des 'activités annexes', je ne vais pas m'engager à
faire systématiquement l'analyse du site. Mais si je peux t'aider, ne
t'en prive pas.

HTTrack peut créer une base sémantique des sites aspirés et générer un
fichier txt tel que suit : (début d'Excelabo)

a--bcdg-a-jac
1 www.excelabo.net/xl/comparer.htm
=1
(0)
a-1
1 www.excelabo.net/xl/calendriers.htm
=1
(0)
a-t-il
2 www.excelabo.net/xl/barres.htm
1 www.excelabo.net/xl/filtris.htm
1 www.excelabo.net/xl/fonctions.htm
1 www.excelabo.net/xl/formats.htm
=5
... etc

ainsi, 'a-t-il' est apparu deux fois sur la page
www.excelabo.net/xl/barres.htm, etc ...
et un total de 5 fois sur le site.
(0) est le séparateur de mots / expressions.

Ce n'est surement ni parfait, ni exhaustif mais si ça peut aider, le
fichier texte fait 2748 ko (239 ko compressé zip). Si tu insistes ;o),
je peux voir pour le mettre sous une forme un peu plus compréhensible.
Tu connais ma BAL.

Bises
@+
Fx




Avatar
sabatier
adoravi....
julius paulus senator

Crel wrote:


Mille merci Caesar.


"AV" a écrit dans le message de news:
#
Hééé ! Et la Mise en forme conditionnelle ?
Même que c'est sur Exlabo !

Sur une plage "ordinaire" ligne paires :
=MOD(LIGNE();2)=0

Sur une plage filtrée (Ex: B2:Bx )

=MOD(SOMME(SOUS.TOTAL(3;DECALER($B$2;LIGNE($B$2:$B2)-MIN(LIGNE($B$2:$B2));;1

)));
2)

AV