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.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.


-- 
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