griser une ligne sur deux en VBA sous Excel 2000

bonjour, je cherche comment faire une macro rapide en VBA pour griser une feuille de calcul excel 2000

le but est de faciliter la lecture des lignes sur un grand tableau

il faut donc griser une ligne sur deux mais pas dans toute sa longueur (lignes 1 à 130 et colonnes A à Z par exemple)
merci de vos conseils, je suis débutant

Bonjour,
Je ne te propose pas une macro mais une façon de faire.

Cellule A1, tapes 1, et recopie en incrémentant vers le bas jusqu'à 130.
Cellule B1, mets la formule =iseven(A1) et recopie jusqu'à B130, ce qui détermine les lignes paires (VRAI) ou impaires (FAUX)
Trie tes lignes sur colonne B, tu auras tous les FAUX, puis tous les VRAIS.
Si tu veux les lignes impaires colorisées, sélectionne de A1 à Z65 et mets un format gris par exemple.
Retrie à nouveau tes lignes de A1 à Z130 sur leur valeur de colonne A, dans l'ordre croissant.

Voilà 1 ligne sur deux en gris.

Cordialement.

Bonjour,

voici un lien qui t'aidera:
http://bvrve.club.fr/Astuces_Michel/165excel.html

sinon une ptite macro à mettre dans ton fichier (editeur Alt +F11)
tu insères un module et tu copies la macro1
Pour une coloration en gris des lignes paires colonnes A -> Z

Sub macro1()
For I = 2 To 130 Step 2
Range(Cells(I, 1), Cells(I, 26)).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Next I

Range("A1").Select
End Sub

SalutUne proposition par MFC :
A1 sélectionné
Menu>>Format>>Mise en Format Conditionnelle
Condition 1
Case 1 : La formule est
Case 2 : =ENT(LIGNE()/2)-LIGNE()/2
Format : Motif gris - 25%
Tu valides
Il suffit de recopier la mise en forme sur les cellules concernées (icone pinceau)
Avantage par rapport aux réponses précédentes :
Une suppression ou un ajout d'une ou plusieurs lignes ne changent pas la coloration des lignes.

On commence par une ligne grisée, mais en ajoutant "+0,5", on inverse les couleurs des lignes

Explication : ENT(LIGNE()/2)-LIGNE()/2
Ent(X) : Donne la partie entière de X
Ligne() : donne le numéro de la ligne contenant la formule
La formule admet donc deux résultat : 0 ou - 0,5
Dans une opération logique (sur feuille de calcul) Excel Considère que la valeur 0 est égale à FAUX et toutes les autres valeurs numériques sonts égales à VRAI. Lorsque la condition est égale à vrai, on applique le format conditionnel.
A+