Effacer ou Supprimer commentaires classeur

Bonjour le forum

Quelqu'un du forum m'avait fait ça il y a quelques années => Copier commentaires classeur

Je voudrais faire Effacer ou Supprimer commentaires classeur

Merci pour vos éventuels retours

Cordialement

Sub CopieCommentairesClasseur()       'Se positionner sur le premier Onglet Exemple TOTO puis F5
Dim R As Worksheet 'déclare la variable R (onglet de Référence)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TC As String 'déclare la variable TC (Texte du Commentaire)

  Set R = Worksheets("TOTO") 'définit l'onglet de référence R (celui où il y a le commentaire, à adapter)
  On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
  TC = R.Range("E2").Comment.Text 'définit le texte du commentaire TC (génère une erreur si A3 ne contient pas de commentaire).Texte à copier cellule E2
  If Err <> 0 Then 'condition : si une erreur a été générée
     MsgBox "il n'y a pas de commentaire ! Action terminée." 'message
     Exit Sub 'sort de la procédure
  End If 'fin de la condition
  MsgBox "                                                     :  " & TC     'Si cellule A2 est renseignée(commentaires) ne rien mettre entre MsgBox "  : et les 2 points superposés sinon mettre le texte à afficher dans le classeur
  Application.EnableEvents = False
  For Each O In Worksheets 'boucle sur tous les onglets O du classseur
     If O.Name <> R.Name Then 'condition : si le nom de l'onglet O est différent du nom de l'onget de référence R
       R.Range("E2").Copy O.Range("E2")   'Mettre le nom de la cellule à copier en comformité avec du haut pour cet exemple E2
     End If 'fin de le condition
  Next O 'prochain onglet de la boucle
  Application.EnableEvents = True
End Sub

Bonjour,

Allons, en tapant sur Google "Excel supprimer tous les commentaires", tu as une multitude de réponses.

Les 2 premiers liens te donnent 2 très bonnes façons de faire.

Le 2ème pointe d'ailleurs sur ce forum.

Bonjour,

Pour le principe.
Cdlt.

Public Sub DeleteComments()
Dim rngCmts As Range
    On Error Resume Next
    Set rngCmts = ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments)
    On Error GoTo 0
    If Not rngCmts Is Nothing Then rngCmts.Delete
End Sub

Bonjour à tous

Voilà avec un peu de recherche

Sub SupprimerCommentairesClasseur()
Dim I As Integer
Dim lescommentaires As Comment
 For I = 2 To Sheets.Count          ' A partir de la 2ème feuille
  Sheets(I).Activate
  For Each lescommentaires In Sheets(I).Comments
      lescommentaires.Delete
  Next lescommentaires
 Next I
End Sub

Merci à vous deux

Cordialement

Salut al87,

si tu penses les réutiliser fait plutôt un .Visible = False au lieu de les supprimer cela t'éviteras de les reconstruire après...

Rechercher des sujets similaires à "effacer supprimer commentaires classeur"