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.
Lorsque vous vous connectez pour la première fois à l’aide d’un bouton de connexion sociale, nous recueillons les informations de profil public de votre compte partagées par le fournisseur de connexion sociale, en fonction de vos réglages de confidentialité. Nous recevons également votre adresse e-mail pour créer automatiquement un compte pour vous sur notre site Web. Une fois votre compte créé, vous serez connecté à ce compte.
DésapprouverApprouver
Se connecter avec :
J’autorise à créer un compte
Lorsque vous vous connectez pour la première fois à l’aide d’un bouton de connexion sociale, nous recueillons les informations de profil public de votre compte partagées par le fournisseur de connexion sociale, en fonction de vos réglages de confidentialité. Nous recevons également votre adresse e-mail pour créer automatiquement un compte pour vous sur notre site Web. Une fois votre compte créé, vous serez connecté à ce compte.
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
Par exemple, si vous souhaitez supprimer uniquement les commentaires d’une personne en particulier, utilisez la macro suivante de l’extrait .
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.
Initiation à Excel
Fonctions Excel
Excel VBA
Macros VBA Utiles
Plus d'outils
Sur Facebook
Sur YouTube