Discussion :

[heliconet]

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

[laetitia]

bonjour heliconet le forum un exemple simple tu sélectionne une cellule puis tu lances la macro a adapter

Code :

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

1
2
3
Sub essai()
If ActiveCell.Comment Is Nothing Then MsgBox "pas de  commentaire" Else MsgBox "commentaire"
End Sub

[heliconet]

bonjour heliconet le forum un exemple simple tu sélectionne une cellule puis tu lances la macro a adapter

Bonjour,
Merci de cette réponse rapide.
Pas compris correctement la réponse.

Le code que j'ai initialisé fonctionne, mais je n'arrive pas à coder la condition pour une cellule qui n'a pas de commentaire. Par le test de condition " si commentaite est vide...."
je souhaite copier le contenu de la cellule et donc ingnorer le commentaire qui y est lié.
Cordialement

[Qwazerty]

Salut amie Leti, heliconet
Si tu fais ce test

Code :

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

If Range(AdrAppelFn).Comment Is Nothing Then

C'est que tu crains qu'il n'y est pas de commentaire
Ce qui m'amène a la refléction suivante
1/ il ne sera jamais "Nothing" etant donné que tu le cré un peu plus haut.
2/ il serait sans doute judicieux de vérifier que Source a bien un commentaire

Code :

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

Range(AdrAppelFn).Comment.Text Text:=Source.Comment.Text

Sinon cette ligne risque de poser problème.
3/ Si le seule soucis est de savoir si le commentaire est vide

Code :

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

If range(...).comment.text = "" then ...

En espérant avoir compris ce qui motive ta demande
A++
Qwaz

[heliconet]

Bonsoir,

C'est que tu crains qu'il n'y est pas de commentaire

Oui c'est une possibilité que la cellule source copiée ne dispose pas de commentaire

il ne sera jamais "Nothing" etant donné que tu le créé un peu plus haut.

Code :

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

Range(AdrAppelFn).Comment.Text Text:=Source.Comment.Text

J'ai suposé que la fonction ne faisait que lire le commentaire

il serait sans doute judicieux de vérifier que Source a bien un commentaire

Oui, dans ce cas je souhaite copier la cellule source sans son commentaire.

Si le seule soucis est de savoir si le commentaire est vide

Code :

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

if range(...).comment.text = "" then ...

Pas exactement. J'ai effectivement essayé mais cela ne fonctionne pas. J'ai toujours en retour "#VALEUR" dans la cellule de destination.

En espérant avoir compris ce qui motive ta demande

Merci pour cette première analyse.
Une autre peut être?
Salut

[Qwazerty]

Je comprend pas trop ton probleme, il suffit de tester si un commentaire est présent sur Source?

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
Function CopierAvecCommentaire(Source As Range)
    Application.Volatile
    AdrAppelFn = Application.Caller.Address()
    Range(AdrAppelFn).ClearComments
    If not Source.Comment is Nothing then
        'Si la source contient un commentaire
        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
    End If
    'Dans tous les cas on copie le contenu
    Range(AdrAppelFn).value = Source.value
End Function

++
Qwaz