Ma macro me retourne une formule en texte et non son résultat.

demande_aide_fr · December 17, 2016, 5:43pm

Bonjour

Voici une nouvelle question envoyée à l'aide du formulaire de demande d'aide (http://fr.libreoffice.org/get-help/poser-une-question/).
Si vous répondez, merci de penser à utiliser la fonction "répondre à tous" de votre logiciel de courrier électronique de façon que le demandeur reçoive une copie de votre réponse.

Email:: didierjasselin@gmail.com
Sujet:: Ma macro me retourne une formule en texte et non son résultat.
Question:: Bonsoir,
J'ai dans une macro cette séquence :
rem ----------------------------------------------------------------------
dim args55(0) as new com.sun.star.beans.PropertyValue
args55(0).Name = "ToPoint"
args55(0).Value = "$G$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args55())

rem ----------------------------------------------------------------------
dim args56(0) as new com.sun.star.beans.PropertyValue
args56(0).Name = "StringName"
args56(0).Value = "Commune"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args56())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())

rem ----------------------------------------------------------------------
dim args57(0) as new com.sun.star.beans.PropertyValue
args57(0).Name = "ToPoint"
args57(0).Value = "$G$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args57())

rem --------------------------------------------------------------------
dim args58(0) as new com.sun.star.beans.PropertyValue
args58(0).Name = "StringName"
args58(0).Value = "=DROITE(I2;NBCAR(52)-CHERCHE(""%"";SUBSTITUE(I2;"" "";""%"";NBCAR(I2)-NBCAR(SUSTITUE(I2;"" "";"""")))))"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args58())
rem ---------------------------------------------------------------------

document = thisComponent
   maFeuille = document.Sheets.getByName("Feuille1")
   Y = 2
   maCellule = maFeuille.getCellByPosition(0,y)
   While maCellule.String <> ""
      zOrigine = maFeuille.getCellByPosition(6,y -1)
      CellArrive = maFeuille.getCellByPosition(6,y)
      maFeuille.copyRange(CellArrive.CellAddress, zOrigine.RangeAddress)
      y = y + 1
      maCellule = maFeuille.getCellByPosition(0,y)
   Wend

rem ---------------------------------------------------------------------
curieusement la formule est restituée sous forme de texte au lieu d'afficher le résultat.
J'ai essayé aussi en faisant saisir la formule comme suit :
rem --------------------------------------------------------------------
' document = thisComponent
' maFeuille = document.Sheets.getByName("Feuille1")
' maCellule = maFeuille.getCellByPosition(6, 1)
' maCellule.FormulaLocal = "=DROITE(I2;NBCAR(I2)-CHERCHE(""%"";SUBSTITUE(I2;"" "";""%"";NBCAR(I2)-NBCAR(SUBSTITUE(I2;"" "";"""")))))"

rem ---------------------------------------------------------------------
j'obtiens la même chose !
Pouvez vous m'aider à résoudre ce problème ?
Merci d'avance
DJ

Michel_Rudelle · December 18, 2016, 3:12pm

Bonjour,

-----Message d'origine-----
De : demande_aide_fr@libreoffice.org
[mailto:demande_aide_fr@libreoffice.org]
Envoyé : samedi 17 décembre 2016 18:44

Email:: didierjasselin@gmail.com
Sujet:: Ma macro me retourne une formule en texte et non son résultat.
Question:: Bonsoir,
J'ai dans une macro cette séquence :
rem ----------------------------------------------------------------------
dim args55(0) as new com.sun.star.beans.PropertyValue
args55(0).Name = "ToPoint"
args55(0).Value = "$G$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args55())

rem ----------------------------------------------------------------------
dim args56(0) as new com.sun.star.beans.PropertyValue
args56(0).Name = "StringName"
args56(0).Value = "Commune"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args56())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0,
Array())

rem ----------------------------------------------------------------------
dim args57(0) as new com.sun.star.beans.PropertyValue
args57(0).Name = "ToPoint"
args57(0).Value = "$G$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args57())

rem --------------------------------------------------------------------
dim args58(0) as new com.sun.star.beans.PropertyValue
args58(0).Name = "StringName"
args58(0).Value = "=DROITE(I2;NBCAR(52)-CHERCHE(""%"";SUBSTITUE(I2;""
"";""%"";NBCAR(I2)-NBCAR(SUSTITUE(I2;"" "";"""")))))"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args58())
rem ---------------------------------------------------------------------

document = thisComponent
   maFeuille = document.Sheets.getByName("Feuille1")
   Y = 2
   maCellule = maFeuille.getCellByPosition(0,y)
   While maCellule.String <> ""
      zOrigine = maFeuille.getCellByPosition(6,y -1)
      CellArrive = maFeuille.getCellByPosition(6,y)
      maFeuille.copyRange(CellArrive.CellAddress, zOrigine.RangeAddress)
      y = y + 1
      maCellule = maFeuille.getCellByPosition(0,y)
   Wend

rem ---------------------------------------------------------------------
curieusement la formule est restituée sous forme de texte au lieu
d'afficher le résultat.
J'ai essayé aussi en faisant saisir la formule comme suit :
rem --------------------------------------------------------------------
' document = thisComponent
' maFeuille = document.Sheets.getByName("Feuille1")
' maCellule = maFeuille.getCellByPosition(6, 1)
' maCellule.FormulaLocal = "=DROITE(I2;NBCAR(I2)-
CHERCHE(""%"";SUBSTITUE(I2;"" "";""%"";NBCAR(I2)-NBCAR(SUBSTITUE(I2;""
"";"""")))))"

rem ---------------------------------------------------------------------
j'obtiens la même chose !
Pouvez vous m'aider à résoudre ce problème ?
Merci d'avance
DJ

J'ai reproduit la macro dans LibO 5.2.3.3 sous Vista, et le résultat est un
code d'erreur, ce qui est normal puisque je n'ai pas les données, en
remplaçant la formule par =MOYENNE(A1:A10) j'obtiens le bon résultat.

MAIS ...si je formate auparavant les cellules en Texte, alors en effet,
j'obtiens le texte de la formule, ce qui est logique => voir de ce coté là.

Cordialement,

Michel

PS: Si vous répondez, merci de penser à utiliser la fonction "répondre à
tous" de votre logiciel de courrier électronique de façon que la liste
reçoive une copie de votre réponse.

Michel_Rudelle · December 18, 2016, 6:23pm

Bonsoir,

Cest bien ce que jindiquais, la formule est copiée dans des cellules au
format texte. Pour le voir arrêter la macro juste avant lécriture (args58)
- F9 pour activer/désactiver des points darrêt regarder le format des
cellules G2:G7, le modifier et relancer la macro (F8 pour du pas à pas)

Après lécriture de la formule, tout va bien et la commune apparaît.

Par contre ça se gâte par la suite, mais avec le pas à pas, vous devriez
trouver où

quant à savoir à quel moment ces cellules héritent du format texte, avec un
peu de patience et le pas à pas vous le trouverez, mais il y a un
contournement en rajoutant ces quelques lignes avant args57 :

dim args100(0) as new com.sun.star.beans.PropertyValue

args100(0).Name = "ToPoint"

args100(0).Value = "$G$2:$G$7"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args100())

dim args101(0) as new com.sun.star.beans.PropertyValue

args101(0).Name = "NumberFormatValue"

args101(0).Value = 0

dispatcher.executeDispatch(document, ".uno:NumberFormatValue", "", 0,
args101())

Cordialement,

Michel

Didier_JASSELIN · December 18, 2016, 5:22pm

Bonsoir,
Merci de votre réponse.
Déjà premier point, j'ai fait une faute de frappe dans ma première formule
: il s'agit de NCAR(I2) et non NBCAR(52).
Ensuite, les donnée que je récupère pour les traiter avec cette macro
proviennent d'un fichier .csv. J'ai bien sélectionné les champs en standard
lors de l'export pensant éviter que les cellule soit au format texte par
défaut.
Cependant (cf fichier joint) la formule traite une chaine de caractère,
elle vise à récupérer le nom de la commune dans la cellule contenant une
adresse.
Je débute en macro et j'ai utilisé l'enregistreur pour certaines parties
(que je vais tenter de nettoyer ensuite) ce qui donne un code certainement
très mauvais pour les puristes, mais là je cale. La transformation de la
cellule en format nombre après exécution de la macro ne donne rien.
Ce que je ne comprend pas c'est que dans la première partie de la macro
(MiseEnFormeDEFA) j'ai une formule qui fait à peu près la même chose et qui
fonctionne !
Merci de votre aide