Récupérer un commentaire de cellule dans une TextBox

Bonjour,
J'ai créé un UserForm "Form_Wsite"
A l'intérieur de l'UserForm, entre autre, une TextBox "Old_Comment"
et un bouton "ButtonVerifComm"
Le tout est sur une feuille "Wsite" dont la colonne D contient des cellules avec ou sans commentaire.
Mon objectif :
Récupérer les commentaires dans la TextBox, et si il n'y en a pas laisser la TextBox vide.
Avec le code ci-dessous, lorsqu'il y a un commentaire tout va bien, mais en l'absence de commentaire ça plante.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub ButtonVerifComm_Click() If Cells(ActiveCell.Row, 4).Comment.Text <> "" Then   Old_Comment = Cells(ActiveCell.Row, 4).Comment.Text   Else   Old_Comment = ""   End If   End Sub

---

Pouvez vous m'indiquer ou est mon erreur ?

Bonjour,
Lorsqu'une cellule n'a pas de commentaire, l'objet .Comment n'existe pas, donct l'instruction .Comment.Text plante.
La bonne syntaxe serait

Code:

---

1 2 3 4

If Cells(ActiveCell.Row, 4).Comment.Text Is Nothing Then ... Else ...

---

Essaies ceci

Code:

---

1 2 3 4 5 6 7 8

Private Sub ButtonVerifComm_Click() Dim Com As String   On Error Resume Next Com = Cells(ActiveCell.Row, 4).Comment.Text On Error GoTo 0 Me.Old_Comment.Value = Com End Sub

---

Sauf que, il vaut mieux d'éviter de travailler avec ActiveCell à la plage de l'adresse exacte de la cellule concernée
exemple

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub ButtonVerifComm_Click() Dim Com As String Dim Lig As Long   Lig = 2 'par exemple ou autre On Error Resume Next Com = Sheets("Wsite").Range("D" & Lig).Comment.Text On Error GoTo 0 Me.Old_Comment.Value = Com End Sub

---

Bonjour Mercatog,
Votre aide a été fructueuse.
Je sollicite votre aide pour un autre point
Je souhaite faire le contraire de la 1ère manœuvre, a savoir envoyer le contenu d'une TextBox "TextComment" dans une cellule en tant que commentaire.
J'ai essayé le code suivant mais il y a un problème

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ButtonValidComm_Click()     Cells(ActiveCell.Row, 4).ClearContents Cells(ActiveCell.Row, 4).AddComment TextComment.Text     End Sub

---

Pouvez vous encore m'aider ? Et me dire où est mon erreur.

Encore une fois, je te suggère de ne pas travailler avec Activecell (la cellule active) mais l'adresse complète de ta cellule
Pour ta question

Code:

---

1 2 3 4 5 6 7

Private Sub ButtonValidComm_Click()   With Cells(ActiveCell.Row, 4) .ClearComments If Me.TextComment.Text <> "" Then .AddComment Me.TextComment.Text End With End Sub

---

j'ai l'impression d'avoir cliqué sur le mauvais bouton pour le message précédent, je ne le retrouve pas.
En bref :
Merci pour votre aide les deux codes tournent très bien et m'ont permis de supprimer une étape qui rendait la manip de l'UserForm un peu lourde.
Le deuxième point concernait l'ActiveCell qui me semblait intéressant pour un travail sur une colonne où chaque ligne est utilisée l'une après l'autre, afin d'avoir des informations différentes dans les TextBox selon la ligne et d'ajouter/ modifier des commentaires. Pourquoi me conseillez vous d'éviter, vu votre aide il doit y avoir une bonne raison.

Parce qu'on peut travailler (et même c'est recommandé) avec la cellule sans la sélectionner.
Par exemple (au pif)
Au lieu de faire

Code:

---

1 2 3 4 5 6

Sheets("Feuil1").Activate 'ou .Select Range("A2").Select With Cells(ActiveCell.Row, 4) .ClearComments If Me.TextComment.Text <> "" Then .AddComment Me.TextComment.Text End With

---

On peut faire directement

Code:

---

1 2 3 4

With Sheets("Feuil1").Range("D4") .ClearComments If Me.TextComment.Text <> "" Then .AddComment Me.TextComment.Text End With

---

Merci de vos conseils
Je vais essayer d'appliquer votre conseil.