Discussion :

[vanima]

Bonjour tout le monde je voudrais savoir comment savoir si une cellule possede un comment ...
Merci
A plus

[fr48545]

Salut,

Tu peux essayer ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Test()
 
Dim cc As Range
 
    ActiveWorkbook.Activate
    Set cc = Worksheets("Feuil1").Range("C15")
    'If (cc.Comment Is Nothing = False) Then
    If cc.Comment Is Nothing Then
        'Il n'y a pas de commentaire
    Else
        Debug.Print cc.Comment.Text
    End If
End Sub

@+

[vanima]

merci ca marche nickel
A plus tous le monde