Bonjour,
J'essaie de réaliser un code afin vérifier la présence ou non d'un commentaire dans une cellule. L'aide du forum m'a permis d'effectuer ce code mais je bute sur le test lorsqu'une cellule n'a pas de commentaire.
Le code renvoi "#VALEUR". Je fais une erreur certes mais je ne la voie pas!!!
Voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function CopierAvecCommentaire(Source As Range)
    Application.Volatile
    AdrAppelFn = Parent.Caller.Address()
        Range(AdrAppelFn).ClearComments
        Range(AdrAppelFn).AddComment
        Range(AdrAppelFn).Comment.Text Text:=Source.Comment.Text
        Range(AdrAppelFn).Comment.Shape.Height = Source.Comment.Shape.Height
        Range(AdrAppelFn).Comment.Shape.Width = Source.Comment.Shape.Width
        Range(AdrAppelFn).Comment.Visible = Source.Comment.Visible
            If Range(AdrAppelFn).Comment Is Nothing Then
                MsgBox "Il n'y a pas de commentaire dans la cellule "
            Else
                CopierAvecCommentaire = Source.Value
                MsgBox "Il y un commentaire: " & Source.Comment.Text & "  et le texte de la cellule est: " & Source.Value
            End If
End Function
Pouvez vous me venir en aide, merci