Discussion :

[r.morel]

Bonjour,
Dans mon application qui importe des données dans un tableur Excel. Je suis amené a regrouper plusieurs lignes sans problème.
Pour améliorer l'affichage je souhaite que la ligne grouper soit en haut au lieu d'en bas par défaut. Dans Excel il suffit de désélectionner l'option suivante :


Pour connaitre la commande concernée, j'ai utilisé l'enregistreur de Macro.
La propriété concernée est : Outline.SummaryRow décrite ici : https://msdn.microsoft.com/fr-fr/lib...ummaryrow.aspx

Lorsque j’exécute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim Classeur_Excel As Workbook
Dim Feuille_Excel As Worksheet
Classeur_Excel = Globals.ThisAddIn.Application.ActiveWorkbook
Feuille_Excel = Globals.ThisAddIn.Application.ActiveSheet
 
If Feuille_Excel.Outline.SummaryRow = XlSummaryRow.xlSummaryBelow Then
       Feuille_Excel.Outline.SummaryRow = XlSummaryRow.xlSummaryAbove
End If

Le message d'erreur survient :


J'ai effectué de nombreux test et essais et je ne comprend pas pourquoi. La lecture de la propriété dans le if ne pose pas de problème mais que l'assignation d'une valeur renvoie une erreur. Alors que cette propriété n'est pas "Read only".

Je vous remercie par avance.
Bonne journée.