VBA Forcer dégroupage des lignes

[Batiscaf]

Bonjour à tous,

Je travaille sur une macro qui selon diverses conditions fait des groupages de lignes. ok ça marche. Mais je cherche à ce que toutes les lignes groupées se dégroupent automatiquement lorsque je relance la macro.
Mon but est donc de ne pas me poser de questions lorsque je lance la macro, qu'il y ait déjà des groupes ou non, j'ai besoin que tout soit dégroupé en préambule du reste du code.

Ci-dessous ce que j'envisageais mais ça ne fonctionne pas.
If ActiveSheet.Outline.RowLevels > 1 Then
Rows("6:545").Ungroup
Else
End If

Merci de votre aide.

 

[Pierrot93]

Re : VBA Forcer dégroupage des lignes

Bonjour,

essaye peut être ainsi :

On Error Resume Next
Rows("6:545").Ungroup
On Error GoTo 0

bon après midi
@+

 

[Pierrot93]

Re : VBA Forcer dégroupage des lignes

Re,

ceci devrait également fonctionner :

ActiveSheet.Rows("6:545").ClearOutline

 

[Batiscaf]

Re : VBA Forcer dégroupage des lignes

Bonjour Pierrot,
J'ai fait au plus avec ta seconde solution.
Super merci et bon après-midi.