Discussion :

[Yul56]

Bonjour,

J'ai besoin de sélectionner plusieurs lignes et colonnes, pour cela, j'utilise le code suivant :

Code :

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

1
2
3
4
range1 = Excel.Range(['B2:' ['L' num2str(NB_elements + 2)]]);
range2 = Excel.Range([['B' num2str(NB_elements + 4) ':'] ['I' num2str(2 * NB_elements + 5)]]);
selection = Excel.Union(range1, range2);
Selection = selection.Select;

Jusqu'ici, la sélection apparaît bien à l'écran. Sauf que je souhaite modifier les propriétés liées à cette sélection et pour cela, j'ai implémenté le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Selection.ColumnWidth = 25;
Selection.WrapText = 'False';
Selection.RowHeight = 20;
Selection.Orientation = 0;
Selection.AddIndent = 'False';
Selection.IndentLevel = 0;
Selection.ShrinkToFit = 'False';
Selection.ReadingOrder = 'xlContext';
Selection.Font.name = 'Arial';
Selection.Font.Size = 12;
Selection.HorizontalAlignment = 'xlCenter';
Selection.VerticalAlignment = 'xlCenter';

A partir de là, rien ne change au niveau de l'affichage alors qu'aucune erreur n'est générée. J'ai essayé de retirer les apostrophes mais à ce moment, une erreur est générée comme quoi il y aurait une erreur de typage.

Je vous remercie par avance pour votre aide.

Yul

[Jerome Briot]

Tu peux te passer de l'objet Selection :

Code :

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

1
2
3
range1 = Excel.Range(['B2:' ['L' num2str(NB_elements + 2)]]);
range2 = Excel.Range([['B' num2str(NB_elements + 4) ':'] ['I' num2str(2 * NB_elements + 5)]]);
range = Excel.Union(range1, range2);

Puis :

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
xlCenter = -4108;
xlContext = -5002;
 
range.ColumnWidth = 25;
range.WrapText = false;
range.RowHeight = 20;
range.Orientation = 0;
range.AddIndent = false;
range.IndentLevel = 0;
range.ShrinkToFit = false;
range.ReadingOrder = xlContext;
range.Font.name = 'Arial';
range.Font.Size = 12;
range.HorizontalAlignment = xlCenter;
range.VerticalAlignment = xlCenter;

Voir : Les constantes et leurs valeurs

[Yul56]

Merci, ça fonctionne bien.

[Jerome Briot]

Code :

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

1
2
range1 = Excel.Range(['B2:' ['L' num2str(NB_elements + 2)]]);
range2 = Excel.Range([['B' num2str(NB_elements + 4) ':'] ['I' num2str(2 * NB_elements + 5)]]);

Ce bloc de code se simplifie en :

Code :

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

1
2
range1 = Excel.Range(['B2:L' num2str(NB_elements + 2)]);
range2 = Excel.Range(['B' num2str(NB_elements + 4) ':I' num2str(2 * NB_elements + 5)]);