FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

Nombre d'auteurs : 10, nombre de questions : 359, dernière mise à jour : 15 juillet 2017  Ajouter une question

 

Bienvenue sur la FAQ, elle a été réalisée pour répondre aux questions concernant les suites bureautiques Apache OpenOffice (AOO) et LibreOffice (LibO).

Si vous souhaitez participer pour l'améliorer, pour proposer vos contributions ou si vous constatez des erreurs dans cette page, n'hésitez-pas !!! Participez.


SommaireProgrammation OBasicOBasic : TableurLes feuillesLes cellulesLes annotations (4)
précédent sommaire suivant
 

Première méthode.

Code vb : Sélectionner tout
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

Deuxième méthode.
Code vb : Sélectionner tout
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

Mis à jour le 26 août 2013 SilkyRoad

Cet exemple ajoute des infos dans un commentaire existant à la suite des anciennes données.

Code vb : Sélectionner tout
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

Mis à jour le 26 août 2013 SilkyRoad

Code vb : Sélectionner tout
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

Mis à jour le 31 juillet 2013 SilkyRoad

Code vb : Sélectionner tout
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

Mis à jour le 31 juillet 2013 SilkyRoad

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2017 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

 
Responsable bénévole de la rubrique OpenOffice & LibreOffice : zoom61 -