Comment colorier une ligne sur deux en gris ...

Mesacraft

unread,

Nov 14, 2003, 9:46:48 AM11/14/03

to

Coucou,

J'ai un fichier avec plein de feuille, et je voudrais pour
chaque feuille colorier 1 ligne sur 2 en gris à partir de
la ligne n°6.

Si qq'un a une solution à cette question je suis preneur.
Merci d'avance.
@+ Eric

Ellimac

unread,

Nov 14, 2003, 9:58:14 AM11/14/03

to

Bonjour,

Il existe un format personnalisé "Liste1" qui devrait
convenir. Menu Format/Mise en Forme automatique.
Sans sélection et en étant dans le tableau, il formate
toutes les cellules du tableau. Sinon tu sélectionnes.

Camille

>-----Message d'origine-----

>.
>

anon...@discussions.microsoft.com

unread,

Nov 14, 2003, 10:03:15 AM11/14/03

to

tu peux aller dans format/mise en forme conditionnelle et
placer ceci =MOD(LIGNE();2) puis hoisir un motif de fond

Bye

>-----Message d'origine-----

>.
>

Vincent.

unread,

Nov 14, 2003, 10:10:04 AM11/14/03

to

Oula ! un grand classique, vu, revu et d'ailleurs pas plus
tard qu'hier sur ces pages, mais bon...
Format/Mise en forme conditionnelle sur la plage à
traiter, et en condition1 choisir 'La formule est' et
utiliser la formule
=MOD(LIGNE();2)=1 avec la mise en forme désirée...
Et voilà ! ;-)
A+

V.

>-----Message d'origine-----

>.
>

Mesacraft

unread,

Nov 14, 2003, 10:12:39 AM11/14/03

to

C'est en vb que je voudrais que cela se fasse, qui plus
est cela n'est pas si terrible que ça dans la forme
automatique.
Donc voilà mais merci quand même.
@+ Eric

Vincent.

unread,

Nov 14, 2003, 10:25:24 AM11/14/03

to

Hum.
La mise en forme automatique a certes ses limites, elle
reste fort utile de temps à autres... Cela dit, la
solution basée par la mise en forme conditionnelle est
elle de loin la plus efficace : une fois effectuée,
quelles que soient les modifs effectuées sur la feuille
(insertion de ligne et/ou de colonnes en particulier), le
format ne bougera plus alors qu'une macro devrait être
exécutée à chaque changement.
Pour ce pb, je vote CONTRE vb... mais c'est un avis
personnel. Au pire, effectue l'une ou l'autre des
solutions proposée sous enregistreur de macro et tu auras
ton code.
A+

V.

>-----Message d'origine-----

>.
>

sabatier

unread,

Nov 14, 2003, 11:52:40 AM11/14/03

to

mais, disez-moi, vincent, avec l'enregistreur de macros, ne sera-ce pas
un peu long jusqu'à la 65536ème ligne, même si Eric n'en pinturlure
qu'une sur deux?
jps

Vincent.

unread,

Nov 14, 2003, 12:12:57 PM11/14/03

to

Bah non... dans ma tête, ça voulait dire : sélectionner
toutes les lignes de la 6ème à la dernière et faire un
coup de mise en forme conditionnelle ou automatique et
réappliquer le code autant de voir que nécessaire.
Je n'étais pas clair peut-être... Disez-le tout de suite
;-)
Et bon week-end !

V.

>-----Message d'origine-----

>.
>

isabelle

unread,

Nov 14, 2003, 12:21:50 PM11/14/03

to

bonjour Mesacraft,

si tu ne veux pas de MEFC (mise en forme conditionnel)

Sub Macro1()
For Each f In Sheets
f.Select
For i = 6 To Cells.SpecialCells(xlCellTypeLastCell).Row
If i Mod 2 = 0 Then Range("A" & i).EntireRow.Interior.ColorIndex = 15
Next
Next
End Sub

isabelle

Mesacraft a écrit :

Michel Gaboly

unread,

Nov 14, 2003, 12:28:32 PM11/14/03

to

disez-le qu'y disait ;-)))))

"Vincent." a écrit :

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

sabatier

unread,

Nov 14, 2003, 5:11:17 PM11/14/03

to

c'était fait esqueprès, michel, et je crains fort qu'une fois de plus,
tu ne te sois fait prendre...
faisez-pas attention les autres, ce léger différend se réglera le 13/12
jps

Michel Gaboly a écrit:

jagiel...@gmail.com

unread,

Oct 8, 2014, 2:51:26 AM10/8/14

to

la formule qui fonctionne est =MOD(ROW();2)