Discussion :

[arverne63]

Bonsoir,

J'ai une feuille de classeur Excel de 1000 lignes.
Je voudrai sélectionner à l'aide d'une macro des plages de cellules toutes les 6 lignes

Exemple :
A8:K8
A14:K14
A20:K20
Et ainsi de suite jusqu'à A998:K998

Merci d'avance si vous avez une solution.

Bonne soirée.

[ARTURO83]

Bonjour,

Votre demande est incomplète, quelles actions faites-vous une fois la ligne sélectionnée ?
On ne peut fournir que des réponses toutes aussi incomplètes.
Exemple pour sélectionner 1 plage de cellule toutes les 6 lignes en partant de la 8ème ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    For i = 8 To 998 Step 6
        Range("A" & i & ":K" & i).Select
    Next i

Suivant ce que vous devez faire après chaque sélection de la plage, on peut se passer du "Select".

***************************************************************************************************

Autre exemple, ici, le saut de ligne se fait par rapport à la ligne active, à chaque lancement de la macro, on sélectionne une nouvelle plage 6 lignes plus bas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Lig = ActiveCell.Row
    Range("A" & Lig + 6 & ":K" & Lig + 6).Select

A vous d'adapter une de ces propositions.

Cdlt

[arverne63]

Votre demande est incomplète, quelles actions faites-vous une fois la ligne sélectionnée ?
On ne peut fournir que des réponses toutes aussi incomplètes.
Suivant ce que vous devez faire après chaque sélection de la plage, on peut se passer du "Select".

Bonsoir ARTURO83,

Merci de vous intéresser à mon problème, désolé pour ma demande incomplète, ce que je souhaite une fois toutes les lignes sélectionnées c'est leurs appliquer une bordure sur le contour et un remplissage couleur bleu clair.
J'ai testé le code ci-dessous, mais quand je lance la macro depuis n'importe quelle cellule il n'y a que la plage de cellules A998:K998 qui est sélectionnée (lors de l'exécution de la macro, on voit rapidement les autres lignes s'afficher, mais elles ne restent pas sélectionnées). Le second code fonctionne, mais ce n'est pas ce que je souhaite faire.
Bonne soirée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 For i = 8 To 998 Step 6
        Range("A" & i & ":K" & i).Select
    Next i

[ARTURO83]

Bonjour,

Voilà, pour appliquer une bordure sur le pourtour de la plage de cellules sélectionnées et d'un fond couleur bleu pâle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    For i = 8 To 998 Step 6
        With Range("A" & i & ":K" & i)
            .Borders(xlEdgeLeft).Weight = xlThin
            .Borders(xlEdgeTop).Weight = xlThin
            .Borders(xlEdgeBottom).Weight = xlThin
            .Borders(xlEdgeRight).Weight = xlThin
            .Interior.Color = RGB(184, 204, 228)
        End With
    Next i

Cdlt

[arverne63]

Bonjour ARTURO83,

Merci pour votre réponse, ça marche impeccable.

Bonne journée.