Bonjour pascal

Contrairement à Writer, les Annotations sous calc ne sont pas des TextContent que l'on insere à partir d'un curseur (livre ed.1 p268 ou ed.2 p302 )

Pour Calc, il te faut te referer à la collection Annotations de la Feuille contenant ta cellule et l'inserer en donnant comme argument la cellule et le texte

Essaye donc ceci (testé avc une cellule selectionnée)

Sub Main

laCelluleActive = thisComponent.currentselection FeuilleContenante = laCelluleActive.spreadsheet lesAnnotations = FeuilleContenante.Annotations

leContenu = InputBox("Entrer le contenu de la note") laPosition = laCelluleActive.CellAddress

lesAnnotations.insertNew(laPosition,leContenu)

End Sub

Cordialement

Laurent