Macro pour supprimer les commentaires dans une feuille de calcul, Excel vba

Utilisez la méthode ClearComments pour supprimer les commentaires. Vous pouvez utiliser la méthode SpecialCells, qui marque au préalable tous les commentaires, puis les supprimés

Sub CommentsDelete()

  On Error Resume Next


  Selection.SpecialCells(xlCellTypeComments).Select

  Selection.ClearComments

End Sub

Par exemple, si vous souhaitez supprimer uniquement les commentaires d’une personne en particulier, utilisez la macro suivante de l’extrait .

Sub SupprimerCertainsCommentaires ()

Dim Komm As Comment

Dim s As String

Dim Anw As String

Anw = InputBox _

  ("Quels commentaires doivent être supprimés?", _

  " Insérer le nom ")

If Anw = "" Then Exit Sub

For Each Komm In ActiveSheet.Comments

  s = Com.Text

  If InStr (1, s, Anw) <> 0 Then Komm.Delete

Next Komm


End Sub

 

 Saisissez d’abord le nom de l’utilisateur dont vous souhaitez supprimer les commentaires dans une zone de saisie. Le nom de l’utilisateur est temporairement stocké dans la variable chaîne Anw.
Pour chaque boucle, tous les commentaires de la table actuelle sont examinés. Pour ce faire, enregistrez le texte du commentaire dans la variable chaîne et utilisez la fonction InStr, à laquelle vous transférez d’abord la valeur de départ, puis la ou les séquences de texte à rechercher et la séquence de texte (Anw) que vous recherchez. cette fonction renvoie une valeur qui est la première position de la recherche Contient une chaîne (Anw). Si la fonction renvoie la valeur 0, le texte de recherche (App) n’a pas été trouvé dans le (s) texte (s) de commentaire, ce qui signifie que le commentaire ne provient pas de l’utilisateur recherché a été faite. Les commentaires de la recherche Sont trouvés en utilisant la méthode Delete.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x