Salut didiercoca
bonsoir laure
en faisant une recherche sur le site là haut tu devrais trouver ton bonheur
tiens nous au courant
un exemple de ce que j'ai trouvé sur le Web
Source :Attribute VB_Name = 'RecupererCommentaires'
'comment savoir si une cellule contient un commentaire
'récupérer le texte des commentaires
Sub HasComment()
'L Longre, mpfe
Dim C As Comment
Set C = Nothing
On Error Resume Next
Set C = ActiveCell.Comment
On Error GoTo 0
If C Is Nothing Then MsgBox 'Aucun commentaire dans la cellule active'
End Sub
Sub FeuilCommentaire()
'Richard Herrmann
Dim Com As Comment, Feuill As Worksheet
Dim classeur As String, origine As String
classeur = ActiveWorkbook.Name
origine = ActiveSheet.Name
Application.ScreenUpdating = False
ActiveWorkbook.Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = 'Commentaires'
Range('A1').Value = 'Commentaires du classeur ' & classeur
ActiveCell.Offset(1, 0).Select
Worksheets(origine).Activate
'Pour chaque feuille du classeur
For Each Feuill In Worksheets
'Pour chaque commentaire dans la feuille
For Each Com In Worksheets(Feuill.Name).Comments
Worksheets('Commentaires').Activate
'Insertion dans la feuille Commentaires du nom de la feuille
ActiveCell.Value = 'Feuille : ' & Com.Parent.Parent.Name & _
' Cellule : ' & Com.Parent.Address
'Insertion de l'adresse de la cellule et du commentaire
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Com.Text
ActiveCell.Offset(1, 0).Select
Next Com
Next Feuill
ActiveCell.Offset(-1, 0).CurrentRegion.Select
Columns('A:A').AutoFit 'ColumnWidth = 60
lignes = Selection.Rows.Count
With Selection
.EntireRow.AutoFit
.VerticalAlignment = xlTop
.Font.Name = 'Times New Roman'
.Font.Size = 8
For i = 2 To lignes Step 2
Cells(i, 1).Font.ColorIndex = 5
Next i
End With
Range('A1').Select
Application.ScreenUpdating = True
End Sub
tu dois avoir beaucoup d'autres possibilités
bon courage
Message édité par: ChTi160, à: 16/06/2005 21:05
