VBA - Supprimer contenu des commentaires

Bonjour,

Toutes les semaines un collègue Copie-Colle le fichier de la semaine précédente et utilise une macro pour vider le contenu de certaines cellules.

Ensuite il supprime manuellement le contenu des commentaires et supprime une partie des mises en forme (uniquement les couleurs).

Je cherche mais je ne trouve pas 2 fonctions :

- Supprimer uniquement le contenu du commentaire

Les fonctions "Selection.ClearComments" et "Selection.ClearNotes" suppriment totalement le commentaire.

- Supprimer une partie de la mise en forme (couleurs) mais garder le reste (quadrillage, gras...)

La fonction "Selection.ClearFormats" supprime toute la mise en forme et pas seulement les couleurs.

Est-ce que ces fonctions existent ?

Merci d'avance pour vos réponses

Quentin

Bonjour QuentinH35

pour les cellules :

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = RGB(255, 255, 255) ' blanc

.TintAndShade = 0

.PatternTintAndShade = 0

End With

pour les commentaires :

Range("A1").Comment.Text Text:="" & Chr(10) & ""

Cdt

Bonjour,

Commentaires :

Selection.ClearComments

Couleurs :

Selection.Interior.ColorIndex = xlNone

Bonjour,

thev a écrit :

Bonjour,

Commentaires :

Selection.ClearComments

Couleurs :

Selection.Interior.ColorIndex = xlNone

Pour les commentaires, je veux uniquement supprimer le texte mais garder le commentaire vide.

Merci pour la fonction pour les couleurs c'est ce que je cherchais !

Toukoul a écrit :

Bonjour QuentinH35

pour les cellules :

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = RGB(255, 255, 255) ' blanc

.TintAndShade = 0

.PatternTintAndShade = 0

End With

pour les commentaires :

Range("A1").Comment.Text Text:="" & Chr(10) & ""

Cdt

J'ai essayé ta fonction pour les commentaires, et ça ne fonctionne pas. Voici ma macro (macro test)

Sub TEST()

Sheets("CL W").Select

Range("Q12:R12").Select

Selection.ClearContents

Selection.Interior.ColorIndex = xlNone

Range("Q12:R12").Comment.Text Text:="" & Chr(10) & ""

End Sub

Je mets le message d'erreur en pièce-jointe.

Merci pour votre aide

Bonjour tout le monde !

A la différence de la suppression, l'affectation d'un commentaire (même vide) se gère cellule par cellule et non pas sur la plage complète. Il te faut donc utiliser une boucle pour parcourir les cellules de la plage, et affecter un commentaire vide (je pense qu'un simple "" suffit).

D'accord merci, je ne vais pas avoir le temps de regarder ça tout de suite mais dès que j'ai une heure je m'y colle !