aide plan automatique

[titooooo]

bonjour

je viens vers vous cette fois pour m'aider à la mise en forme

mon tableau présente un calendrier avec les noms des semaine s1,s2,s3.....,s19....et qui va jusqu’à 2015

je veut créer un plan automatique afin que chaque semaine soit groupé et je la développe si besoin

j'ai essayer de le faire manuellement sans succès

j'ai groupé s1 puis s2 et là il me les groupe les deux en un seul or je veux deux groupe ...

je veut le faire pour tout mon tableau

 

[JCGL]

Re : aide plan automatique

Bonjour à tous,

Peux-tu essayer :

Sub Groupe()
Dim Col&
For Col = 6 To 417 Step 7
Range(Columns(Col), Columns(Col + 5)).Columns.Group
Next Col
End Sub

A+ à tous

 

[titooooo]

Re : aide plan automatique

merci bien jcgl