[Résolu][Calc]Coordonnées d'une cellule

[Claudie-Def]

Bonjour,
j'ai une belle petite fonction qui a besoin des coordonnées de la cellule d'où elle est appelée. J'ai mis

Code : Tout sélectionner

(colonne(A1) ; Ligne(A1)) 

en paramètres et ça marche très bien. Mais ce serait moins lourd à utiliser s'il était possible que la fonction récupère [sous la forme (nombre, nombre)], pas A1, les coordonnées de la cellule, un peu comme "ActiveSheet" retourne le n° de page.

Est-ce que ça existe ?

Merci d'avance, à plus dans l'bus

[Dude]

j'ai une belle petite fonction qui a besoin des coordonnées de la cellule d'où elle est appelée.

Tu récupères l'évènement et tu te sers de XRay.
Il suffit d'interroger la méthode getCellAdress.
La structure contient les propriétés Colonne (Column), Ligne (Row) et Feuille (Sheet) de la cellule.

[Churay]

Bonjour

Code : Tout sélectionner

Sub OuSuisJe
    MsgBox thisComponent.CurrentSelection.AbsoluteName
END SUB

ou

Code : Tout sélectionner

Sub OuSuisJe
Dim oRA, sMsg As String
	MsgBox thisComponent.CurrentSelection.AbsoluteName
	oRA = thisComponent.CurrentSelection.RangeAddress
	sMsg = "Feuille : " & oRA.Sheet & chr(10)
	sMsg = sMsg & "Colonne : " & oRA.EndColumn & chr(10)
	sMsg = sMsg & "Ligne : " & oRA.EndRow & chr(10)
	MsgBox sMsg
END SUB

ou pour le fun :

Code : Tout sélectionner

Sub OuSuisJe
Dim oConversion, sMsg As String
	oConversion = ThisComponent.createInstance("com.sun.star.table.CellAddressConversion")
	oConversion.Address = thisComponent.CurrentSelection.getCellAddress
	sMsg = oConversion.UserInterfaceRepresentation & chr(10) & chr(10) 
	With oConversion.Address
		sMsg = sMsg & "Feuille : " & .Sheet & chr(10) & "Colonne : " & .Column & chr(10) & "Ligne : " & .Row & chr(10)
	END With	
	MsgBox sMsg
End Sub

Ajout : Edition pour une version plus compacte avec l'utilisation de com.sun.star.table.CellAddressConversion

[Claudie-Def]

Bonjour,
merci pour ce ou-suis-je, (et dans quel état j'erre), il me retourne les cordonniers de la cellule occupée par le curseur, pas celles de la fonction qui l'utilise.
Mais je sens que la solution est proche.

On n'a jamais été aussi près du but.

à bientôt.
CD

[Churay]

Bonjour

pas celles de la fonction qui l'utilise.
Mais je sens que la solution est proche.

Joindre ton fichier peut aider à accélérer l'obtention de la solution...

[zeguedon]

Bonjour,

Joindre ton fichier peut aider à accélérer l'obtention de la solution...

Oui, si non il faut ajouter à ta fonction la formule :

Code : Tout sélectionner

ADRESSE(LIGNE();COLONNE())

ou créer une formule nommée par le menu Insertion>Nom>Définir et appeler cette formule dans ta fonction. Mais si c'est pour manipuler l'objet cellule que la fonction appelle utilisé par la fonction je te souhaite bien du courage.

A+

[ThierryT]

Des fonctions basiques pour l'utilisation des lignes et colonnes avec leurs index au lieu de leurs noms respectifs.

Code : Tout sélectionner

' Retourne l'index d'une colonne de nom donné
'--------------------------------------------
Function IndexColonne(nom As String) As Long
	Dim uneCellule As Object
	On Error Goto IndexColonneError

	uneCellule = ThisComponent.Sheets(0).getCellRangeByName(nom &"1")
	IndexColonne = uneCellule.RangeAddress.StartColumn
	Exit Function

IndexColonneError:
	IndexColonne = -1
End Function

' Retourne l'index d'une ligne de nom donné
'------------------------------------------
Function IndexLigne (nom As String) As Long
	Dim uneCellule As Object
	On Error Goto IndexLigneError
	
	uneCellule = ThisComponent.Sheets(0).getCellRangeByName("A" & nom)
	IndexLigne = uneCellule.RangeAddress.StartRow
	Exit Function

IndexLigneError:
	IndexLigne = -1
End Function

[Claudie-Def]

Bonjour,
ces différente formules donnent la cellule active, c.à-d. la position du curseur. Or il me faut les coordonnées de la cellules où se trouve la fonction sans avoir besoin de les mettre en paramètre.

Pour l'instant j'utilise :

Code : Tout sélectionner

MaFonction(Colonne(A1);Ligne(A1);...)

que je trouve encombrant.

Code : Tout sélectionner

MaFonction(1;0;...)

(si je suis sur la cellule A1)
marche aussi, mais si on cop-col la cellule, ça ne s'actualise pas.

Peut-être que ça n'existe pas, mais si ça existe, je ne serais pas seule à m'en servir.
bon vikenne et à lundi
Cl

[zeguedon]

Bonjour,

Il me semble t'avoir répondu :

créer une formule nommée par le menu Insertion>Nom>Définir et appeler cette formule dans ta fonction.

la formule nommée à créer est :

Code : Tout sélectionner

ADRESSE(LIGNE();COLONNE();4)

Tu la nommes "Pos" par exemple comme Position et tu la passes en paramètre à ta fonction:

Code : Tout sélectionner

=MAFONCTION("tralala";Pos)

Code : Tout sélectionner

Sub MAFONCTION(Arg1,Agr2)
Print Arg2
End Sub

Quelle que soit la cellule dans laquelle tu saisis Pos (ou le passe en paramètre à ta fonction), tu récupères les références de la cellule qui contient Pos
A+

[micmac]

Bonjour,

Dernière connexion le : 17 Déc 2016 16:26

Vous avez lu semble t-il les réponses qui vous ont été faites sans y donner de suite.
N'ayant plus de nouvelles, on peut en déduire que le problème est résolu ou ne se reproduit pas.

1. Merci de baliser par vous-même la prochaine fois.
2. Un remerciement fait aussi plaisir aux bénévoles qui vous ont consacré de leur temps.
   La politesse fait également partie de la philosophie du logiciel libre.
3. En cas d'erreur, contactez l'équipe de modération pour la réouverture du fil.

Sujet balisé [Résolu] et verrouillé.

Cordialement,