creation de sommaire

[azzouzze]

bonsoir,

J'ai une macro qui me crée un sommaire en 1ere feuille de mon classeur excel avec les noms des feuilles et un lien direct vers la feuille.

Je voudrais colorier les cellules de la colonne B, de la cellule 2 à nombre de feuilles dans le dossier d'une couleur mais juste un cellule sur 2 afin que ca soit plus lisible.

mes problèmes:
1) je n arrive pas à colorier une cellule sur 2
2) je n arrive pas à selectionner un Range de facon dynamique.

Merci d'avance

 

[bqtr]

Re : creation de sommaire

Bonjour azzouzze

Essaye avec ceci :

Sub Ligne_Couleur()
Dim i As Long
  For i = 2 To Sheets.Count
    If Cells(i, 2).Row Mod 2 = 0 Then Cells(i, 2).Interior.ColorIndex = 4
  Next
End Sub

Sheets.count te donne le nombre de feuille du classeur.
Cells(i, 2).Row Mod 2 = 0, pour colorier les cellules des lignes paires.
ColorIndex = 4, 4 correspond à la couleur ( tu as de 1 à 56 de disponible ).

bon test

 

[Gael]

Re : creation de sommaire

Bonjour Azzouzze, bonjour Bqtr,

Tu peux aussi colorier les cellules par une mise en forme conditionnelle dans la colonne souhaitée par exemple en colonne A, tu sélectionnes les cellules puis format - MFC

Avec la formule suivante:
=MOD(LIGNE($A1);2)=0 puis le motif souhaité

Tu peux le faire sur une plage plus importante seulement pour les cellules contenant une valeur en ajoutant:

=ET(MOD(LIGNE($A1);2)=0;$A1<>"")

Pour le range dynamique 2 exemples possibles:

1 - en définissant d'abord le dernier numéro de ligne utilisé:
Nblig = ActiveSheet.Range("A500").End(xlUp).Row 'recherche de la dernière ligne utilisée
Range(Cells(3, 12), Cells(Nblig, 23)).Select

ou:
Range("A3", [A500].End(xlUp)).Select

qui va sélectionner directement la plage utilisée à partir de A3.

@+

Gael

 

[azzouzze]

Re : creation de sommaire

Merci à tous les deux, vos réponses me conviennent tout à fais.