[Résolu][Calc]Copier commentaire dans une cellule

[Phil89]

Bonjour,

Règles du forum
Balisage obligatoire dans cette section !
+ Titre raccourci

je souhaite récupérer le texte du commentaire d'une cellule d'un tableau ods pour le mettre dans une autre cellule en tant que donnée de la cellule. avec une fonction ou une formule.
merci d'avance

[Piaf]

Bonjour
Un petit exemple à tester.

Code : Tout sélectionner

Sub Main
Dim oDoc as Object, maFeuille as Object, lesCommentaires as Object, unCommentaire as Object
Dim X as Long, Y as Long
	oDoc = thisComponent
	maFeuille = oDoc.CurrentController.ActiveSheet
	lesCommentaires = mafeuille.Annotations.createEnumeration()
	Do While lesCommentaires.hasMoreElements
		unCommentaire = lesCommentaires.nextElement
		X = unCommentaire.Parent.CellAddress.Column
		Y = unCommentaire.Parent.CellAddress.Row
		maFeuille.getCellByPosition(X + 1,Y).String = unCommentaire.String
	Loop	
End Sub

A+

[Phil89]

Bonjour,
Merci à PIAF qui à solutionné mon problème. j'ai encore beaucoup à apprendre sur OO. Je suis développeur sur WINDEV si je peux vous aider dans les relation entre windev et OO se sera avec plaisir.
A bientôt