RE: [fr-users] Ma macro me retourne une formule en texte et non son résultat.

Bonsoir,

 

C’est bien ce que j’indiquais, 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 d’arrê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

  _____  

De : Didier JASSELIN [mailto:didierjasselin@gmail.com] 
Envoyé : dimanche 18 décembre 2016 18:23
À : Michel Rudelle
Cc : users@fr.libreoffice.org
Objet : Re: [fr-users] Ma macro me retourne une formule en texte et non son
résultat.

 

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

 

Le 18 décembre 2016 à 16:12, Michel Rudelle <rudelle.michel@gmail.com> a
écrit :

Bonjour,

> -----Message d'origine-----
> De : demande_aide_fr@libreoffice. <mailto:demande_aide_fr@libreoffice.org>
org
> [mailto:demande_aide_fr@ <mailto:demande_aide_fr@libreoffice.org>
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.





 

-- 

Didier JASSELIN


-- 
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés