FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub ajoutCommentaireCellule_V01 
'équivalent des commentaires dans Excel 
' 
'******************************** 
'sans macro: 
  'sélectionnez une cellule 
  'Menu Insertion 
  'notes 
  'saisir le texte 
'******************************** 
  
Dim oDoc As Object , Feuille As Object 
Dim Cellule As Object 
  
oDoc = ThisComponent 
Feuille = oDoc.getSheets.getByName("Feuille1") 
  
Cellule = Feuille.getCellRangeByName("A1") 
Cellule.Annotation.String = "Le commentaire" 
' 
'Remarque: 
'si une annotation existe déja dans la cellule, les anciennes infos seront écrasées 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub ajoutCommentaireCellule_V02 
Dim oDoc As Object , Feuille As Object 
Dim Cellule As Object 
Dim Nte As Object 
  
oDoc = ThisComponent 
Feuille = oDoc.getSheets.getByName("Feuille1") 
Cellule = Feuille.getCellRangeByName("A1") 
  
'Crée une nouvelle annotation 
Feuille.Annotations.insertNew(Cellule.CellAddress, "Ceci est un test de commentaire.") 
Nte = Cellule.Annotation.AnnotationShape 
  
'Spécifie que l'annotation s'adapte à la taille du texte 
Nte.TextAutoGrowWidth = True 
Nte.TextAutoGrowHeight = True 
  
Nte.FillStyle = com.sun.star.drawing.FillStyle.SOLID 
'Applique une couleur dans l'annotation 
Nte.FillColor = RGB( 255,225,225 ) 
  
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ajoutDansCommentaireExistant 
Dim oDoc As Object , Feuille As Object 
Dim Cellule As Object 
Dim leTexteExistant As String 
  
oDoc = ThisComponent 
Feuille = oDoc.getSheets.getByName("Feuille1") 
  
Cellule = Feuille.getCellRangeByName("A1") 
'Récupération des informations existantes  dans le commentaire 
leTexteExistant = Cellule.Annotation.getString 
  
Cellule.Annotation.String = _ 
  leTexteExistant & chr(13) & "Mon nouveau commentaire" 
  
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
  
Sub SupprimeCommentaire 
'------------------------------------- 
'sans macro: 
  'sélectionnez la cellule 
  'Menu Insertion 
  'notes 
  'Supprimez le contenu de l'annotation 
'------------------------------------- 
  
Dim oDoc As Object , Feuille As Object 
Dim Cellule As Object 
  
oDoc = ThisComponent 
Feuille = oDoc.getSheets.getByName("Feuille1") 
  
Cellule = Feuille.getCellRangeByName("A1") 
Cellule.clearContents(com.sun.star.sheet.CellFlags.ANNOTATION) 
  
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub boucleSurAnnotations 
Dim I As Integer 
Dim Resultat As String 
Dim Feuille As Object , oDoc As Object 
  
oDoc = ThisComponent 
Feuille = oDoc.getSheets.getByName("Feuille1") 
  
'Boucle sur les annotations de la Feuille 
For I = 0 To Feuille.Annotations.Count-1 
'Renvoie: 
  'Contenu de l'annotation 
  'Numero de la colonne 
  'Numero de la ligne 
  'Auteur 
  'Est visible 
  'Date de création 
  
  Resultat = Feuille.Annotations.getByIndex(i).getString & Chr(13) & Chr(13) & _ 
    "Colonne: " & Feuille.Annotations.getByIndex(i).Position.Column + 1 & Chr(13) & _ 
    "Ligne: " & Feuille.Annotations.getByIndex(i).Position.Row + 1 & Chr(13) & _ 
    "Auteur: " & Feuille.Annotations.getByIndex(i).Author & Chr(13) & _ 
    "Visible: " & Feuille.Annotations.getByIndex(i).IsVisible & Chr(13) & _ 
    "Date: " & Feuille.Annotations.getByIndex(i).Date 
  
  MsgBox Resultat 
Next i 
  
End Sub