VBA Excel Selection.Rows.Ungroup

Résolu
zebulon2503 Messages postés 1319 Statut Membre -  
zebulon2503 Messages postés 1319 Statut Membre -
Salut
J'ai un petit problème dans un programme VBA Excel.
Je veux dégrouper des lignes grouper mais ca ne marche pas. Voici le code :
Range("A1:IV65536").Select
Selection.Rows.Ungroup

Je suis obligé de tout selectionner car je ne connais pas les numéros des lignes groupées.
J'ai exécuter le programme pas à pas, quand il arrive à cette instruction, les lignes se dégroupent normalement, puis un message d'erreur apparaît :
Erreur d'exécution '1004':
La méthode Ungroup de la classe Range a échouée

Une idée pour corriger ce problème ?

Merci :)

2 réponses

pilas31 Messages postés 1878 Statut Contributeur 646
 
Bonjour,

Je pense que cette erreur se produit lorsque les lignes ne sont pas groupées. Il faut essayer d'utiliser plutôt l'instruction d'effacement de plan qui ne provoque pas l'erreur :

Range("A1:IV65536").Select
Selection.ClearOutline


A+
1
zebulon2503 Messages postés 1319 Statut Membre 110
 
Merci Pilas31, mais ca ne marche pas non plus :(
Une autre idée?
A+
0