VBA Excel Selection.Rows.Ungroup

Résolu/Fermé
zebulon2503 Messages postés 1228 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 11 février 2016 - 2 juil. 2009 à 15:37
zebulon2503 Messages postés 1228 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 11 février 2016 - 6 juil. 2009 à 14:34
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 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
3 juil. 2009 à 00:30
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 1228 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 11 février 2016 110
6 juil. 2009 à 14:34
Merci Pilas31, mais ca ne marche pas non plus :(
Une autre idée?
A+
0