Discussion :

[nsqualli]

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 :

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

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

est ce que vous pouvez m'aider svp?

[pgz]

Bonjour.

Essaie la méthode ClearComments

Code :

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

.Range(...).ClearComments

Cordialement,

PGZ

[Gorfael]

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 :

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

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 :

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

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 :

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

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+