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 15163 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 1 novembre 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:

1 réponse

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

0
NHenry Messages postés 15163 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 1 novembre 2024 345
15 avril 2016 à 12:40
For I = 5 To 404 STEP 20
Cela évite le i=i+19
0
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
0
NHenry Messages postés 15163 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 1 novembre 2024 345
15 avril 2016 à 13:30
Pour une plus grande facilité de lecture, la clause "Step" est à préférer à I=I+...
0
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...) !
0
NHenry Messages postés 15163 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 1 novembre 2024 345
15 avril 2016 à 18:35
Merci, mais je surveille ma ligne (de code, ou pas) :)
0