Re: [fr-users] Re: Calc MAcro : tester le contenu d'une cellule qui contient une formule

Bonsoir,

je me suis piqué au jeu de trouver une réponse, pour m'exercer.

Le code ci-dessous est-il correct dans un cas analogue à celui de Marie-Jo ?

Sub lirecell
dim v_doc as object, v_feuille as object, v_cellTest as object, 
v_cellNum as object, v_valueT as variant, v_valueN as variant
v_doc=ThisComponent
v_feuille=v_doc.sheets.getbyname("Feuille1")
v_cellTest=v_feuille.getCellRangeByName("B2")
v_valueT=v_CellTest.Type
if v_valueT=1 then
msgbox "La cellule contient un nombre"
elseif v_valueT=2 then
msgbox "La cellule contient du texte"
else
v_valueT=v_cellTest.value 'ligne de contrôle de la variable
msgbox "La cellule ne contient rien"
end if
End Sub

Ne sachant pas encore coder les "Case" en LibreOffice Basic, la méthode 
est assez rustique.

Lucien

Le 10/11/14 18:56, Marie jo Libo a écrit :
> Bonsoir,
>
> Merci pour cette confirmation. Je vais donc voir où est le problème.
> Pas dans la casse malheureusement ;-)
> La récupération du .string me renvoie inlassablement 0 :-(
>
> Marie-Jo
>
> Le 10/11/2014 16:43, pierre-yves samyn a écrit :
> > Bonjour Marie-Jo
> >
> > Si tu veux tester le texte affiché par une cellule calculée, c'est bien
> > la propriété string qu'il faut utiliser.
> >
> > Si cela ne fonctionne pas dans ton cas c'est peut-être parce que
> > tu fais ce que tu écris :
> >
> >
> > Marie jo Libo wrote
> > > Concrètement : Critere = Toto
> > > Si cellule="toto" alors traitement
> > toto est différent de Toto
> >
> > Tu peux par exemple convertir en minuscule de cette façon :
> >
> > if lcase(maCelluleTest.string) = "toto" then
> >
> > Cordialement
> > Pierre-Yves




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