[Résolu][Calc]Considérer le résultat comme un mot

[Whiteneck]

Bonjour,

(Je ne suis pas sur d'avoir trouvé un bon titre au sujet, je manque de vocabulaire)

Je lance une recherche de cellule par son contenu, ici "Chien".
Cela fonctionne bien sauf lorsque le contenu est un résultat d'une "opération" dans la cellule.
Dans mon exemple la cellule A10, qui est égale à la A13, n'est pas prise en compte alors que je voudrais qu'elle le soit

Mon souci est à priori sur cette ligne :

Code : Tout sélectionner

	reference = "Chien"

Code : Tout sélectionner

Sub Main
dim oDoc, oFeuille, Cell as object
dim mazone, recherche, celluletrouvee as object
dim trouv as object

	oDoc = thiscomponent
	oFeuille = thiscomponent.Sheets.getByName("Nature")    'Feuille source
	oZone = oFeuille.getcellrangebyname("A1:A400")
	
	recherche = oZone.createsearchdescriptor
	reference = "Chien"
	with recherche
	.searchstring = reference
	.searchwords = true
	end with
	trouv = oZone.findall(recherche)
	Cell = trouv(0)
	Msgbox (Cell.CellAddress.column)
	Msgbox (Cell.CellAddress.row)
	
End Sub

Si quelqu'un peut m'aider.

[DLE]

Bonjour,

Vous devez coder une boucle pour récupérer toutes les valeurs trouvées.
SearchType = 1 prend en compte le résultat d'une formule.

Code : Tout sélectionner

Sub Main
dim oDoc, oFeuille, Cell as object
dim mazone, recherche, celluletrouvee as object
dim trouv as object

   oDoc = thiscomponent
   oFeuille = thiscomponent.Sheets.getByName("Nature")    'Feuille source
   oZone = oFeuille.getcellrangebyname("A1:A400")
   
   recherche = oZone.createsearchdescriptor
   reference = "Chien"
   with recherche
   .searchstring = reference
   .searchwords = true
   .searchtype = 1  'rechercher dans les valeurs fixes ou résultant d'une formule
   end with
   trouv = oZone.findAll(recherche)
   for x = 0 to trouv.count -1 
	   Cell = trouv(x)
	   Msgbox (Cell.CellAddress.column)
	   Msgbox (Cell.CellAddress.row)
   next x
End Sub

A+

[Whiteneck]

Merci, cela fonctionne !
Et merci aussi pour l'explication.

Si je n'ai besoin que du premier résultat qui se présente, est-il faut de me passer de x et d'écrire comme ceci ?

Code : Tout sélectionner

      Cell = trouv(0) 'Recherche du premier résultat

Code : Tout sélectionner

Sub Main
dim oDoc, oFeuille, Cell as object
dim mazone, recherche, celluletrouvee as object
dim trouv as object

   oDoc = thiscomponent
   oFeuille = thiscomponent.Sheets.getByName("Nature")    'Feuille source
   oZone = oFeuille.getcellrangebyname("A1:A400")
   
   recherche = oZone.createsearchdescriptor
   reference = "Chien"
   with recherche
   .searchstring = reference
   .searchwords = true
   .searchtype = 1  'rechercher dans les valeurs fixes ou résultant d'une formule
   end with
   trouv = oZone.findAll(recherche)
      Cell = trouv(0) 'Recherche du premier résultat
      Msgbox (Cell.CellAddress.column)
      Msgbox (Cell.CellAddress.row)
End Sub

[OOotremer971]

Bonjour,

Si je n'ai besoin que du premier résultat qui se présente ?

Code : Tout sélectionner

trouv = oZone.findFirst(jeCherche)
MsgBox(trouv.AbsoluteName)

@+

[Whiteneck]

merci pour les précisions