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+unsubscr...@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
