Discussion :

[Nafoute]

Bonjour à tous,

Je bosse depuis plusieurs jours déjà sur une feuille excel pleine de commentaires, et trouver de la doc sur les commentaires en VBA, c'est pas évident...

voilà le topo : je dois parcourir une ligne ou une colonne dans une feuille Excel et dès que je rencontre un commentaire, je le recopie dans une autre feuille.
Problème : je ne sais pas comment détecter un commentaire dans une cellule. Pour l'instant, je me débrouille avec le fait qu'une cellule contenant un commentaire possède un X rouge.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Sheets("compte_nominatif").Cells(var, i).Font.ColorIndex = 3 Then
  Sheets("recherche").Cells(j, col).Font.ColorIndex = 3
  Sheets("recherche").Cells(j, col).AddComment
  Sheets("recherche").Cells(j, col).Comment.Text Text:=Sheets("compte_nominatif").Cells(var, i).Comment.Text
End If

En gros, si la cellule est en rouge, je recopie le commentaire... pas très propre, tout ça.

Donc, ma question : quel bout de code me permettrait de savoir si une cellule contient un commentaire ou pas ?

[Maxence HUBICHE]

Ca t'aide :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function ListerComments(Plage As Range) As String
    Dim oRng    As Excel.Range
    Dim sRet    As String
    For Each oRng In Plage.Cells
        If oRng.Comment Is Nothing Then
            'rien à faire
        Else
            sRet = sRet & "|" & oRng.Address & " => " & oRng.Comment.Text
        End If
    Next
    ListerComments = Mid(sRet, 2)
End Function

?????

[Nafoute]

Ok, je ne connaissais pas du tout la commande "Is Nothing". Ca va m'être bien utile, tout ça !

Merci de ta réponse.