VBA Excel Selection.Rows.Ungroup

Résolu
zebulon2503 Messages postés 1229 Date d'inscription   Statut Membre Dernière intervention   -  
zebulon2503 Messages postés 1229 Date d'inscription   Statut Membre Dernière intervention   -
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 648
 
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 1229 Date d'inscription   Statut Membre Dernière intervention   110
 
Merci Pilas31, mais ca ne marche pas non plus :(
Une autre idée?
A+
0