Grouper des lignes Code vba

Résolu/Fermé

mmxa1995 Messages postés 28 Date d'inscription mardi 12 avril 2016 Statut Membre Dernière intervention 21 avril 2016 - 15 avril 2016 à 12:09
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 - 15 avril 2016 à 18:35

Bonjour,

je cherche à grouper une liste de lignes, j'utilise le code suivant (il fonctionne très bien) mais il est long:

Rows("5:22").Rows.Group
Rows("24:41").Rows.Group
Rows("43:60").Rows.Group

.
.
.

Rows("404:421").Rows.Group

auriez vous svp une méthode pour réduire mon code??

Merci et bonne journée.

A voir également:

Grouper des lignes Code vba
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code blocks free - Télécharger - Langages
Code windows 10 - Guide

1 réponse

Réponse 1 / 1

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
15 avril 2016 à 12:32

Bonjour Mmxa, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
For I = 5 To 404
    Rows(I & ":" & I + 17).Group
    I = I + 19
Next I
End Sub

NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 330
15 avril 2016 à 12:40

For I = 5 To 404 STEP 20
Cela évite le i=i+19

mmxa1995 Messages postés 28 Date d'inscription mardi 12 avril 2016 Statut Membre Dernière intervention 21 avril 2016
15 avril 2016 à 12:42

Youpi yes j'ai corrigé I+18

Sub Macro1()
For I = 5 To 404
Rows(I & ":" & I + 17).Group
I = I + 18
Next I
End Sub

NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 330
15 avril 2016 à 13:30

Pour une plus grande facilité de lecture, la clause "Step" est à préférer à I=I+...

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
15 avril 2016 à 15:57

Bonjour le fil, bonjour le forum

NHenry a tout a fait raison (même s'il est un peu lourd...) !

NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 330
15 avril 2016 à 18:35

Merci, mais je surveille ma ligne (de code, ou pas) :)

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Afficher toutes les lignes masquées excel

Acces à snapchat temporairement désactivé

liste de noms par ordre alphabétique

Discussions similaires

Newsletters