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