Blocage avec test sur les commentaires

Bonsoir à tous,

Je vais essayer d'être le plus explicite possible :

• si mon textbox1 est vide et que la cellule de ma feuille contient un commentaire, je veux effacer le commentaire de la feuille ;
• si mon textbox1 est différent de rien et que la cellule de ma feuille contient un commentaire, je veux remplacer le commentaire existant par celui contenu dans le textbox1 ;
• si mon textbox1 est différent de rien et que la cellule de ma feuille ne contient pas de commentaire, je veux créer un commentaire avec le contenu dans le textbox1.

J'espère avoir été le plus explicite possible.

J'ai déjà ma variable déclarée :

Dim Commentaire As Comment

la cellule de ma feuille est appelée comme suit :

Sheets("Suivi FI").Cells(Ligne, 13)

Merci à tous et bonne soirée.

@+.

Bonjour

A tester

Private Sub CommandButton1_Click()
  With Sheets("Suivi FI").Cells(Ligne, 13)
    .ClearComments
    If Me.TextBox1 <> "" Then
      .AddComment TextBox1.Value
    End If
  End With
End Sub

Bonjour,

Après le test de ton code, j'ai un débogage sur la ligne :

.AddComment TextBox1.Value

J'ai repris le code en testant différemment comme ceci :

If Sheets("Suivi FI").Cells(Ligne, 13).Comment Is Nothing Then
        If Me.TextBox1 <> "" Then
        Sheets("Suivi FI").Cells(Ligne, 13).AddComment
            .Comment.Text = Me.TextBox1.Value
        End If

Le commentaire se créée bien dans la cellule concerné mais j'ai toujours un débogage sur la dernière ligne :

.Comment.Text = Me.TextBox1.Value

J'ai essayé sans le point et toujours la même chose, j'ai essayé avec ma variable Commentaire et même résultat.

Une idée ?

Bonne journée.

Bonjour

Je viens de créer un Userform, avec Textbox et CommandButton

J'ai copié le code que je t'ai envoyé et pas de message d'erreur, le commentaire se fait ou s'enlève en fonction de la TextBox

En premier indiques le message d'erreur

En second il faut ton fichier avec l'erreur

Ah vérifies que ta page n'est pas protégée

Re,

Voici le message d'erreur que j'obtiens avec mon code :

Erreur de compilation
Référence incorrecte ou non qualifiée

PS : ma feuille n'est pas protégée.

Merci.

Re,

Je viens de re tester avec ton code : cela fonctionne bien.

J'ai certainement dû faire une faute en recopiant ton code. Désolé.

Merci encore et bonne journée.

Re,

Je reviens vers toi car je viens de me rendre compte d'une chose assez gênante : J'ai bien l'impression que la ligne :

.ClearComments

efface tous les commentaires présents sur la ligne concernée alors qu'il faudrait juste effacer le commentaire de la cellule cible : j'ai fait plusieurs tests et le résultat est le même à chaque fois.

Peut-on modifier ? Ou faut-il ajouter une autre condition ?

Merci du temps que tu consacres à me répondre.

Bon après-midi.

Bonjour

Je ne peux que te citer l'aide

Référence du développeur Excel

Range.ClearComments, méthode

Cette méthode supprime tous les commentaires de cellule de la plage spécifiée.

Si tu ne précises que la cellule avant d'envoyer cette commande cela n'affectera que ladite cellule

Re,

J'ai trouvé mon erreur : en recopiant la partie du code à deux autres endroits, j'ai oublié de changer certaines parties de ton code (entre autre, je n'avais pas changer de références pour mes 2 autres TextBox donc les 3 parties du code ne se faisaient que sur le TextBox1).

Désolé de t'avoir fais chercher pour rien.

PS : je pratique la martothérapie pour que cela rentre, je te le jure mais bon...

Merci encore et bonne journée.

Sujet résolu pour de bon cette fois-ci.