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.

[clementmarcotte]

Bonjour,

À vrai dire, je n'ai jamais trop essayé en VB.net, mais quand on fait de l'automation en VBA, le meilleur moyen de travailler avec les constantes de l'application pilotée à distance est d'utiliser les valeurs numériques des constantes et non leur noms.

Si je me fie à mon aide de VBA:

xlsummaryabove = 0
xlsummarybelow = 1

Donc, si c'est comme en VBA, essaie avec:

Code :

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

1
2
3
If Feuille_Excel.Outline.SummaryRow = 1 Then
       Feuille_Excel.Outline.SummaryRow = 0 
End If

Je ne garantis rien pour ce qui suit, mais tu pourrais aussi essayer cela (en principe, cela devrait marcher, mais j'ai appris à me méfier d'OLEAutomation):

Code :

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

1
2
3
4
5
const xlsummaryabove as integer = 0
const xlsummarybelow as integer= 1
If Feuille_Excel.Outline.SummaryRow = xlSummaryBelow Then
       Feuille_Excel.Outline.SummaryRow = xlSummaryAbove
End If

Ou là, avec un "gros gros peut-être", recréer l'énumération dans le code VB.net, comme une Enum "ordinaire"

[r.morel]

Salut,
Tout d'abord merci de ta réponse, et du temps consacré.

Si je me fie à mon aide de VBA:

xlsummaryabove = 0
xlsummarybelow = 1

Donc, si c'est comme en VBA, essaie avec:

Code :

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

1
2
3
If Feuille_Excel.Outline.SummaryRow = 1 Then
       Feuille_Excel.Outline.SummaryRow = 0 
End If

J'ai déjà testé cela sans succès.

Je ne garantis rien pour ce qui suit, mais tu pourrais aussi essayer cela (en principe, cela devrait marcher, mais j'ai appris à me méfier d'OLEAutomation):

Code :

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

1
2
3
4
5
const xlsummaryabove as integer = 0
const xlsummarybelow as integer= 1
If Feuille_Excel.Outline.SummaryRow = xlSummaryBelow Then
       Feuille_Excel.Outline.SummaryRow = xlSummaryAbove
End If

Ou là, avec un "gros gros peut-être", recréer l'énumération dans le code VB.net, comme une Enum "ordinaire"

Je vais tester cela demain...
Merci

[r.morel]

Salut,

Code :

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

1
2
3
4
5
const xlsummaryabove as integer = 0
const xlsummarybelow as integer= 1
If Feuille_Excel.Outline.SummaryRow = xlSummaryBelow Then
       Feuille_Excel.Outline.SummaryRow = xlSummaryAbove
End If

Ne fonctionne pas et me renvoie la même erreur.

Merci et bonne journée.

[clementmarcotte]

Bonjour,

La plupart de mes programmes ou des exemples que je peux avoir sont sur un disque USB que je n'ai pas avec moi. Aussi bien dire que je vais à l'oeillomètre.

Dans l'aide de VBA-Excel (sauf que VBA, ce n'est pas du VB.net et que ceux qui pratiquent les deux savent que ce n'est pas pareil), ils disent que Outline, c'est une propriété et un objet. (Je suis sûr que les puristes de la POO doivent sauter au plafond, mais bon. ) Donc, une autre hypothèse:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim Classeur_Excel As Workbook
Dim Feuille_Excel As Worksheet
Classeur_Excel = Globals.ThisAddIn.Application.ActiveWorkbook
Feuille_Excel = Globals.ThisAddIn.Application.ActiveSheet
 
'ajout théorique non testé
Dim Plan_Excel as outline = Feuille_Excel.outline
'Remplacement théorique non testé
If Feuille_Excel.Outline.SummaryRow = 1 Then
       Plan_Excel.SummaryRow = 0 
End If
'Partie remplacée, non testée.
 
'If Feuille_Excel.Outline.SummaryRow = XlSummaryRow.xlSummaryBelow Then
'       Feuille_Excel.Outline.SummaryRow = XlSummaryRow.xlSummaryAbove
'End If

[r.morel]

Cela renvoie, encore une fois, la même erreur.
Je te remercie encore de ton aide.
Bonne soirée