supprimer un commentaire avec une macro vba

bonjour,

j'aimerai bien supprimer les commentaires dans une feuille excel apres un teste et j'arrive pas a le faire:

voila le code que j'ai fais mais sa me donne l'erreur objet non defini:

Code:

---

.Range("B" & Lig).Comment.delete

---

est ce que vous pouvez m'aider svp?

Bonjour.

Essaie la méthode ClearComments

Code:

---

.Range(...).ClearComments

---

Cordialement,

PGZ

Salut nsqualli et le forum
Le problème est récurrent sous excel : tu ne peux supprimer qu'un objet qui a été créé. Comme le commentaire n'existe pas, tu ne peux même pas tester qu'il soit vide.

Code:

---

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

Dim x As Long For x = 1 To 10 On Error Resume Next Range("A" & x).Comment.Delete If Err.Number = 91 Then Err.Clear On Error GoTo 0 Else If Err.Number <> 0 Then MsgBox Err.Description, vbOKOnly, "erreur n°" & Err.Number Exit Sub End If End If Next x

---

S'il y a l'erreur 91 (ou pas d'erreur), on continue.
Autre solution

Code:

---

1 2 3 4 5 6 7

Dim C As Comment For Each C In ActiveSheet.Comments If C.Parent.Address(0, 0) = "B2" Then C.Delete exit for end if Next C

---

on regarde dans la collection des commentaires et si l'adresse de la cellule contenant le commentaire existe, on supprime le commentaire.
L'utilisation d'une méthode, plutot que l'autre est liée au temps de traitement (beaucoup ou peu de commentaires). Je préfère utiliser la méthode qui laisse les erreurs tranquilles.

si tu veux supprimer tous les commentaires de la colonne B, il faut faire comme pour les lignes :

Code:

---

1 2 3 4

for x=ActiveSheet.Comments.count to 1 step -1 if ActiveSheet.Comments(x).parent.address.column=2 then _ ActiveSheet.Comments(x).delete next x

---

Ces méthodologies peuvent aussi être utilisées pour les feuilles.
A+