Colorer lignes par paquets de 10

Bonjour, et surtout merci à tout ceux qui m'aiderons.

J'ai un tableau Excel avec 1500 lignes et j'aimerai colorer 10 lignes en orange puis 10 lignes en vert et ainsi de suite (faire des paquets de 10 lignes) pour les 1500 ligne que j'ai.

Merci de votre aide

Bonsoir,

et bien c'est assez simple tu va vite t'en rendre compte.

Tu coloris tes lignes : 10 en orange, puis 10 en vert.

Tu sélectionne ensuite les 20 lignes (sur le coté de la feuille directement [la flèche noire qui pointe vers la droite]).

Tu effectue l'action suivante : Ctrl + C (un copier)

Tu sélectionne ensuite la ligne juste en dessous (toujours la petite flèche noire)

Tu effectue l'action suivante : Ctrl + Maj + flèche du bas (pour indiquer à Excel que tu veut rejoindre la dernière valeur visible consécutive [normalement la fin de ton tableau])

A ce moment tu verra un paquet de ligne sélectionné, ne panique pas.

Tu effectue un collage spécial : "Conserver la mise en forme source".

Et voilà normalement ta mise en forme respecte bien les tranches de 10 par 10.

A+

Bonsoir à tous !

Et.....

Une piste :

Bonsoir,

M'étant également intéressé à ce problème, je propose ma solution ci-jointe.

Bonne soirée.

Merci beaucoup je vais tester demain au taff.

J'ai l'impression d'être un ovni ou de ne pas comprendre correctement le problème.

Ca m'arrive en permanence, bon bah tu nous tiens au courant sur ton avancée

Mon problème et le suivant.

J'ai un fichier Excel avec dans une colonne 4000 références.

Je dois prendre des lots de10 réf pour les coller dans un logiciel externe.

Donc le fait d'avoir des blocs de 10 en couleur, me permet d'allé plus vite.

Voilà c'est pour le taff et j'ai un délai court donc...

Et je ne suis pas un pro d'excel pffffff.

Merci pour votre aide

Je n'ai pas compris si ma solution correspond à ta demande.

Bonjour,
Une autre proposition à adapter !?
Cdlt.

Public Sub CreateColors()
Dim rw         As Long
Dim i          As Byte
    Application.ScreenUpdating = False
    With ActiveSheet
        For rw = 1 To 1500 Step 10
            .Cells(rw, 1).Resize(10).Interior.Color = _
            IIf(WorksheetFunction.IsOdd(i), 49407, 5287936)
            i = i + 1
        Next rw
    End With
End Sub

Mon problème et le suivant.

J'ai un fichier Excel avec dans une colonne 4000 références.

Je dois prendre des lots de10 réf pour les coller dans un logiciel externe.

Donc le fait d'avoir des blocs de 10 en couleur, me permet d'allé plus vite.

Voilà c'est pour le taff et j'ai un délai court donc...

Et je ne suis pas un pro d'excel pffffff.

Merci pour votre aide

Je ne comprends pas en quoi correspond ta demande.