[Résolu][Calc] Retrouver le nom d'une cellule

[Whiteneck]

Bonjour,
Et bonne année.

J'ai une procédure pour retrouver une cellule à partir de son contenu.
Ce n'est donc pas toujours la même cellule qui ressort.
Une fois la cellule identifiée, je voudrais récupéré le nom que je lui ai donné.
J'ai essayé ainsi :

Code : Tout sélectionner

Cellule.AbsoluteName

mais cela me renvoie : "$feuille.$D$80" et nom pas le nom que j'ai choisi.
SI quelqu'un peut m'aider, merci d'avance.

PS : (Je pourrais travailler avec les coordonnées de la cellule mais cela n'est pas simple à harmoniser avec le reste de ce que j'ai déjà fait).

[Hubert Lambert]

Bonjour,

Si tu es certain que la valeur recherchée se trouve dans une cellule nommée, tu peux alors ne parcourir que celles-ci. Elles sont accessibles via l'objet conteneur "NamedRanges" :

Code : Tout sélectionner

    doc = thiscomponent
    plagenommees = doc.NamedRanges
    for each plagenommee in plagenommees
        plage = plagenommee.ReferredCells
        if plage.supportsService("com.sun.star.sheet.SheetCell") then
            if plage.String = contenu_recherche then 'ou plage.Value
                nom_cellule = plagenommee.Name
                msgbox plagenommee.Name
                exit sub
            end if
        end if
    next plagenommee

Cordialement.

[Whiteneck]

Bonjour Hubert,
Merci pour ton aide.
Je suis un peu perdu.

Je joins le doc hyper simplifié de ce que je fais.
Ce qui m'importe, outre le fait de trouver le terme recherché, est d'avoir le nom de la cellule.
C'est important pour la suite.

Code : Tout sélectionner

Sub Main
	Dim oDoc, oFeuille, Cellule as Object
	Dim oZone, oZone2 as Variant
	Dim LigneVide, colon as long
	Dim deb, fin as String
   
   	oDoc = ThisComponent
   
   ' On définit une zone
   oFeuille = thiscomponent.Sheets.getByName("Animaux")    'Feuille source

   oZone = oFeuille.getCellRangeByPosition(1, 0, 1, 10) 'Zone de destination où sera cherchée 
	' On recherche
	Dim recherche as object, celluletrouvee as object
	Dim trouv as object, positiondelacelluletrouvee as variant, x as long
	Dim Cell as object

	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)
		Msgbox ("Le chien est colonne " & Cell.CellAddress.column)
		Msgbox ("et ligne " & Cell.CellAddress.row+1)	
		Msgbox("Mais quel est ne nom de la cellule où il est ?")
	Cellule = oFeuille.getCellByPosition(Cell.CellAddress.column, Cell.CellAddress.row+1) '
	
End Sub

[DLE]

Bonjour,

Le code fourni par d'Hubert est intégré dans ta macro.
A+

[Whiteneck]

Super !
Merci à vous deux.

[Whiteneck]

Bonjour,

Quand je reporte la même chose dans mon doc d'origine j'ai un problème pour cette ligne

Code : Tout sélectionner

       if plage.supportsService("com.sun.star.sheet.SheetCell") then

"Erreur d'exécution BASIC.
Variable d'objet non définie"

Une idée de ce que je dois faire ?

[DLE]

Bonjour,

Cette ligne est-elle présente avant celle où il y a l'erreur :

Code : Tout sélectionner

plage = plagenommee.ReferredCells

[Whiteneck]

Cette ligne est-elle présente avant celle où il y a l'erreur :

Oui, j'ai tout copié (et j'ai essayé sans cette ligne)

[Hubert Lambert]

Une fois la cellule identifiée, je voudrais récupéré le nom que je lui ai donné.

Qu'entends-tu exactement par là ? Quelle procédure utilises-tu pour lui donner un nom ? Ce nom est-il unique ou concerne-t-il une plage plus grande ?
Ce sera plus simple si tu nous fournis une fichier structuré comme ton fichier d'origine...

[Whiteneck]

Ce sera plus simple si tu nous fournis une fichier structuré comme ton fichier d'origine...

Ok.
Le temps de dépersonnaliser le fichier sur lequel je travaille.

[Whiteneck]

Bonjour,

J'ai trouvé !
Une des cellules nommées avait été supprimée, son nom n'avait plus de référence.
Encore merci.

[Whiteneck]

A l'usage, c'est mieux ainsi 'si quelqu'un a besoin):

Code : Tout sélectionner

    doc = thiscomponent
    plagenommees = doc.NamedRanges
    for each plagenommee in plagenommees
        plage = plagenommee.ReferredCells
        if plage.supportsService("com.sun.star.sheet.SheetCell") then
            if plage.AbsoluteName = contenu_recherche then 'ou plage.
                nom_cellule = plagenommee.Name
                msgbox plagenommee.Name
                exit sub
            end if
        end if
    next plagenommee