Discussion :

[Ldoppea]

Bonjour,

Après un petit problème de format de données, je tombe maintenant sur un problème de création de formules .

Ayant pas mal de données à gérer dans le classeur Excel que je dois créer, j'essaie de passer par des plages de cellules, correspondant aux différentes parties clés de la feuille. Ainsi pour un tableau de valeurs, je devrais au final me retrouver avec un plage de données pour les valeurs, et une plage de données pour les totaux.

Le but est donc d'arriver à lier ces deux plages pour que les totaux affichent bien les valeurs de la partie donnée.

Pour commencer simple, j'essaie pour le moment de faire pointer une cellule de la plage des totaux, vers une cellule de la plage des valeurs, et d'y ajouter 1. Ce qui revient à la formule suivante : "=LxCy+1" (x et y dépendant bien sûr de la cellule visée)

J'ai donc tenté le code suivant, qui devrait récupérer l'adresse absolue d'une cellule contenue dans un plage vRange2, implanter cette adresse dans une formule vFormula, puis finalement appliquer cette formule à une cellule contenue dans la plage vRange1 :

Code :

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

1
2
3
4
5
6
Variant vFormula, vRange2, vAddress;
 
vAddress = vRange2.OlePropertyGest("Cells", 1, 5).OlePropertyGet("Address");
vFormula = "="+vAddress+"+1";
 
vRange1.OlePropertyGet("Cells", 1, 5).OlePropertySet("Formula", vFormula);

Ce qui me renvoi une jolie exception EOleSysError avec le message 'Type de variable incorrect'.

Si quelqu'un sait d'où vient l'erreur, et (si possible) comment résoudre le problème, qu'il avance d'un pas

PS : D'ailleurs, vu qu'au final il faudra cibler une colonne/rangée entière de la plage, s'il y'a moyen de garder l'adresse relative à la plage afin que la formule s'adapte facilement aux ajouts de valeurs (insertion de lignes par exemple), je suis aussi preneur

[blondelle]

Salut Ldoppea
Ton erreur est normale tu ecrit quelque chose comme ceci " =E$1$+1 " qui n'est pas une formule
Que veut tu passer dans ta cellule, je ne comprend pas ce que tu veut faire

[Ldoppea]

En temps normal, dans excel, pour cibler une cellule dans une formule qui reprend le contenu + 1, on écrit L1C1+1 si on cible une cellule en absolue (la cellule ciblé sera celle en haut à gauche), ou L(1)C(1)+1, voir LC(1)+1 si on cible une cellule en relatif (la cellule ciblé sera celle juste à droite). J'ai oublié de préciser que je suis passé au forma L1C1 et non A1 pour pouvoir me déplacer plus facilement à coup d'incréments.

Donc par exemple, si la cellule L3C4 contient la valeur 7, et que la cellule L1C1 contient la formule "=L3C4+1", alors L1C1 affichera là valeur 8.

Mais au moment d'écrire le programme, je ne sais pas quelle sera exactement la cellule ciblée. Je pourrais juste dire, c'est la cellule de la 3ème ligne et 4ème colonne de telle plage. Ce qu'il me faut donc, c'est de récupérer l'adresse d'une cellule à partir de sa position dans la plage ( vRange2.OlePropertyGest("Cells", 1, 5).OlePropertyGet("Address"); ) puis d'utiliser cette adresse dans la formule de la cellule qui affiche son contenu+1.

Sachant qu'au final il faudra faire la même chose, mais en disant par exemple : je veux afficher la somme de la 3ème colonne de telle plage

[blondelle]

Si tu veut utiliset ce type de formule elle doit s'ecrire " =D3+1" pour ton exemple
Est ce que tu veut avoir le resultat d'un calcul, soit d'une ligne, soit d'une colonne

[Ldoppea]

Dans le cas du mode d'affichage L1C1, cela marche aussi en utilisant la notation "=L3C4+1", j'ai testé directement dans Excel. D'ailleurs, si je fait le code suivant :

Code :

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

1
2
3
vFormula = "=L3C4+1";
 
vRange1.OlePropertyGet("Cells", 1, 5).OlePropertySet("Formula", vFormula);

Cela marche aussi

Si je veux faire une somme d'une plage de cellules, il faut écrire :

Code :

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

vFormula = "=SOMME(L3C4:L6C4)";

Mais comme je l'ai dis, je ne sais pas à l'avance quelles sont les cellules qu'il faut cibler, donc je ne peux pas y écrire directement comme çà. Il faut d'abord que je récupère l'adresse de la cellule/plage de cellules, puis que je l'insères dans la string de la formule.

Soit vFormula = "=vCell+1"; ou vFormula = "=SOMME(vPlage)"; avec vCell remplacé par la valeur que je récupère.

[blondelle]

Voici comment transformer les coordonnees $A$1 en $A1 R1C1...
en Excel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub essai()
'Set mc = Worksheets("Feuil1").Cells(1, 1).Address([RowAbsolute:=False, ColumnAbsolute:=False])
Set mc = Worksheets("Feuil1").Cells(1, 1)
MsgBox mc.Address()                              ' $A$1
MsgBox mc.Address(RowAbsolute:=False) ' $A1
MsgBox mc.Address(RowAbsolute:=False, ColumnAbsolute:=False) 'A1
MsgBox mc.Address(ReferenceStyle:=xlR1C1)        ' R1C1
MsgBox mc.Address(ReferenceStyle:=xlR1C1, _
    RowAbsolute:=False, _
    ColumnAbsolute:=False, _
    RelativeTo:=Worksheets(1).Cells(3, 3))        ' R[-2]C[-2]
End Sub

en BCB

Code :

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

1
2
3
4
5
6
 
Variant a = vWorksheet.OlePropertyGet("Cells", 1, 5);
Variant variable_formula;
variable_formula = a.OlePropertyGet("Address", false, false);
variable_formula = StringToOleStr("="+variable_formula+"+1");
vWorksheet.OlePropertyGet("Cells", 1, 1).OlePropertySet("Formula", variable_formula);

Je n'ai plus le temps si tu a un probleme je verais ce soir bon courage

[Ldoppea]

Ça marche! Merci de ton aide

Bon, bah plus qu'à continuer mes tests jusqu'au prochain mur