Discussion :

[Ldoppea]

Bonjour à tous,

Nouveau problème pour du pilotage Excel depuis BCB

J'aurais besoin d'agrandir une plage de cellules sur la droite. Le problème étant que la fonction donnée sur la FAQ permet d'agrandir une plage rectangulaire, de dimensions connues.

Moi ma plage de cellules ressemble à çà :


La sélection représente la plage, et les cellules rouge, celles qui doivent se rajouter à la plage de cellules. Le tout, sans connaitre à l'avance une quelconque dimension de la plage.

Une idée?

PS : Et s'il existe un moyen de connaitre le nombre de lignes de la plage, ainsi que se déplacer dans la plage de cellules sans en sortir. Par exemple, si je dis : sélectionne la 5eme ligne de la plage, et que la 5ème ligne n'est pas dans la plage (cf image), ben çà chope la 5ème ligne DE la plage (soit la sixième en partant de la première cellule). Le but étant de remplir automatiquement toutes les cellules que je rajoute par le biais de ma première question.

[blondelle]

Salut Ldoppea
Pour selectionner plusieurs plages on peut comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
// on active la feuille
vWorksheet.OleProcedure("Activate");
 
// on definit les plages
Variant Aire1 = vWorksheet.OlePropertyGet("Range", "A1:B2");
Variant Aire2 = vWorksheet.OlePropertyGet("Range", "C3:D4");
Variant Aire3 = vWorksheet.OlePropertyGet("Range", "B8:F14");
 
// on definit l'ensemble des plages
Variant mesMultiAires =  vMSExcel.OleFunction("Union", Aire1, Aire2, Aire3);
 
// on selectionne les plages
mesMultiAires.OleProcedure("Select");

[Ldoppea]

Pour la sélection, c'est bon, j'y étais arrivé. Mais le problème est que maintenant je dois pouvoir l'agrandir sans la transformer en une seule plage de sélection rectangulaire .

[blondelle]

Salut Ldoppea
Je ne comprend pas ce que tu veux faire

[Ldoppea]

En temps normal, pour redimensionner une plage de sélection, il faut utiliser le code suivant :

Code :

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

1
2
Variant vNewRange;
vNewRange = vRange.OlePropertyGet("Resize", rowsize, columnsize);

Mais le problème est que le code suivant redimensionne la plage en une nouvelle rectangulaire de dimensions rowsize et columnsize. Hors là, ma plage est composée non pas de 1 rectangle, mais de plusieurs.

De plus je souhaiterais pouvoir agrandir la plage en rajoutant une colonne sur la droite, sans connaitre le nombre de colonnes de départ (dans la formule, il faut le connaitre et le prendre en considération dans le columnsize)

PS : Est-il possible de récupérer les dimensions d'une plage?

[blondelle]

Si j'ai bien compris tu veux conserver le meme nombre de plages en ajoutant une cellule sur la largeur, on peut connaitre le nombre de lignes et de colonnes de chaque plage a partir de la on peut redefinir les plages

Code :

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

1
2
3
4
5
6
7
8
9
 
Variant lign1 = Aire1.OlePropertyGet("Rows").OlePropertyGet("Count");
Variant colon1 = Aire1.OlePropertyGet("Columns").OlePropertyGet("Count");
 
Variant lign2 = Aire2.OlePropertyGet("Rows").OlePropertyGet("Count");
Variant colon2 = Aire2.OlePropertyGet("Columns").OlePropertyGet("Count");
 
Variant lign3 = Aire3.OlePropertyGet("Rows").OlePropertyGet("Count");
Variant colon3 = Aire3.OlePropertyGet("Columns").OlePropertyGet("Count");

[Ldoppea]

Ça à l'air d'être ce qu'il me faut, mais je n'ai pas la possibilité de tester avant un petit moment, je viens d'avoir un problème de pc il faut que j'attende le retour du SAV.

J'y marque quand même en résolu?

[blondelle]

Dans ce cas il faut modifier la selection des aires comme ceci

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
vWorksheet.OleProcedure("Activate");
// vMSExcel.OlePropertyGet("Range", "C5:D9,G9:H16,B14:D18");
//Variant Aire1 = vWorksheet.OlePropertyGet("Range", "A1:B2");
Variant Aire1 = vWorksheet.OlePropertyGet("Range", vWorksheet.OlePropertyGet("Cells",1,1),vWorksheet.OlePropertyGet("Cells",2,2));
//Variant Aire2 = vWorksheet.OlePropertyGet("Range", "C3:D4");
Variant Aire2 = vWorksheet.OlePropertyGet("Range", vWorksheet.OlePropertyGetvWorksheet.OleProcedure("Activate");
// vMSExcel.OlePropertyGet("Range", "C5:D9,G9:H16,B14:D18");
//Variant Aire1 = vWorksheet.OlePropertyGet("Range", "A1:B2");
Variant Aire1 = vWorksheet.OlePropertyGet("Range", vWorksheet.OlePropertyGet("Cells",1,1),vWorksheet.OlePropertyGet("Cells",2,2));
//Variant Aire2 = vWorksheet.OlePropertyGet("Range", "C3:D4");
Variant Aire2 = vWorksheet.OlePropertyGet("Range", vWorksheet.OlePropertyGet("Cells",3,3),vWorksheet.OlePropertyGet("Cells",4,4));
//Variant Aire3 = vWorksheet.OlePropertyGet("Range", "B8:F14");
Variant Aire3 = vWorksheet.OlePropertyGet("Range", vWorksheet.OlePropertyGet("Cells",8,2),vWorksheet.OlePropertyGet("Cells",14,6));
Variant mesMultiAires =  vMSExcel.OleFunction("Union", Aire1, Aire2, Aire3);
mesMultiAires.OleProcedure("Select");
Variant lign1 = Aire1.OlePropertyGet("Rows").OlePropertyGet("Count");
Variant colon1 = Aire1.OlePropertyGet("Columns").OlePropertyGet("Count");
Variant lign2 = Aire2.OlePropertyGet("Rows").OlePropertyGet("Count");
Variant colon2 = Aire2.OlePropertyGet("Columns").OlePropertyGet("Count");
Variant lign3 = Aire3.OlePropertyGet("Rows").OlePropertyGet("Count");
Variant colon3 = Aire3.OlePropertyGet("Columns").OlePropertyGet("Count");vWorksheet.OlePropertyGet("Cells",4,4));
//Variant Aire3 = vWorksheet.OlePropertyGet("Range", "B8:F14");
Variant Aire3 = vWorksheet.OlePropertyGet("Range", vWorksheet.OlePropertyGet("Cells",8,2),vWorksheet.OlePropertyGet("Cells",14,6));
Variant mesMultiAires =  vMSExcel.OleFunction("Union", Aire1, Aire2, Aire3);
mesMultiAires.OleProcedure("Select");
Variant lign1 = Aire1.OlePropertyGet("Rows").OlePropertyGet("Count");
Variant colon1 = Aire1.OlePropertyGet("Columns").OlePropertyGet("Count");
Variant lign2 = Aire2.OlePropertyGet("Rows").OlePropertyGet("Count");
Variant colon2 = Aire2.OlePropertyGet("Columns").OlePropertyGet("Count");
Variant lign3 = Aire3.OlePropertyGet("Rows").OlePropertyGet("Count");
Variant colon3 = Aire3.OlePropertyGet("Columns").OlePropertyGet("Count");

il est plus facile en placant des variables dans ("Cells",X,Y) de modifier les coordonnees

[pottiez]

J'y marque quand même en résolu?

Non, tu attend d'avoir testé

[Ldoppea]

Bon, j'ai enfin pu tester là solution de Blondelle et çà marche

En très condensé, pour étendre d'une case sur la droite, çà fait :

Code :

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

vRange = vRange.OlePropertyGet("Resize", vRange.OlePropertyGet("Rows").OlePropertyGet("Count"), vRange.OlePropertyGet("Column").OlePropertyGet("Count")+1);

Merci encore pour l'aide