Bonsoir à toutes et tous,
Je veux faire un néttoyage auto une fois l'an d'un classeur.C'est à dire
dans une plage donnée, vider le contenu (lettres), et effacer les couleurs
en mettant les cases en blanc. ç'a visiblement c'est ok
mon problème c'est que en même temps je veux effacer tout les commentaires
et là problème.
Si je mets Selection.SpecialCells(xlCellTypeComments).Clear c'est bon mais
il supprime la couleur blanche de la case et si je mets
Selection.SpecialCells(xlCellTypeComments).ClearContents il ne fait rien
Avez vous une idée?
Merci,
Philippe
Sub Nettoyage_du_Classeur()
'
' Macro enregistrée le 21/12/2004 par Philippe
' Touche de raccourci du clavier: Ctrl+n
'
Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin",
"Juillet", "Août", _
"Septembre", "Octobre", "Novembre", "Décembre")).Select
Sheets("Janvier").Activate
Range("D7:AH65").Select
Selection.Interior.ColorIndex = 2
Selection.ClearContents
Selection.SpecialCells(xlCellTypeComments).ClearContents
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
RaMA
Bonsoir
Selection.ClearComments
Devrait convenir Salutations
RaMa -- . "Philippe Meresse" a écrit dans le message de news: 41c86b15$0$9556$
Bonsoir à toutes et tous, Je veux faire un néttoyage auto une fois l'an d'un classeur.C'est à dire dans une plage donnée, vider le contenu (lettres), et effacer les couleurs en mettant les cases en blanc. ç'a visiblement c'est ok mon problème c'est que en même temps je veux effacer tout les commentaires et là problème. Si je mets Selection.SpecialCells(xlCellTypeComments).Clear c'est bon mais il supprime la couleur blanche de la case et si je mets Selection.SpecialCells(xlCellTypeComments).ClearContents il ne fait rien Avez vous une idée? Merci, Philippe
Sub Nettoyage_du_Classeur() ' ' Macro enregistrée le 21/12/2004 par Philippe ' Touche de raccourci du clavier: Ctrl+n ' Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", _ "Septembre", "Octobre", "Novembre", "Décembre")).Select Sheets("Janvier").Activate Range("D7:AH65").Select Selection.Interior.ColorIndex = 2 Selection.ClearContents Selection.SpecialCells(xlCellTypeComments).ClearContents
End Sub
Bonsoir
Selection.ClearComments
Devrait convenir
Salutations
RaMa
--
.
"Philippe Meresse" <Philippe.Meresse@wanadoo.fr> a écrit dans le message de
news: 41c86b15$0$9556$8fcfb975@news.wanadoo.fr...
Bonsoir à toutes et tous,
Je veux faire un néttoyage auto une fois l'an d'un classeur.C'est à dire
dans une plage donnée, vider le contenu (lettres), et effacer les couleurs
en mettant les cases en blanc. ç'a visiblement c'est ok
mon problème c'est que en même temps je veux effacer tout les commentaires
et là problème.
Si je mets Selection.SpecialCells(xlCellTypeComments).Clear c'est bon mais
il supprime la couleur blanche de la case et si je mets
Selection.SpecialCells(xlCellTypeComments).ClearContents il ne fait rien
Avez vous une idée?
Merci,
Philippe
Sub Nettoyage_du_Classeur()
'
' Macro enregistrée le 21/12/2004 par Philippe
' Touche de raccourci du clavier: Ctrl+n
'
Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin",
"Juillet", "Août", _
"Septembre", "Octobre", "Novembre", "Décembre")).Select
Sheets("Janvier").Activate
Range("D7:AH65").Select
Selection.Interior.ColorIndex = 2
Selection.ClearContents
Selection.SpecialCells(xlCellTypeComments).ClearContents
RaMa -- . "Philippe Meresse" a écrit dans le message de news: 41c86b15$0$9556$
Bonsoir à toutes et tous, Je veux faire un néttoyage auto une fois l'an d'un classeur.C'est à dire dans une plage donnée, vider le contenu (lettres), et effacer les couleurs en mettant les cases en blanc. ç'a visiblement c'est ok mon problème c'est que en même temps je veux effacer tout les commentaires et là problème. Si je mets Selection.SpecialCells(xlCellTypeComments).Clear c'est bon mais il supprime la couleur blanche de la case et si je mets Selection.SpecialCells(xlCellTypeComments).ClearContents il ne fait rien Avez vous une idée? Merci, Philippe
Sub Nettoyage_du_Classeur() ' ' Macro enregistrée le 21/12/2004 par Philippe ' Touche de raccourci du clavier: Ctrl+n ' Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", _ "Septembre", "Octobre", "Novembre", "Décembre")).Select Sheets("Janvier").Activate Range("D7:AH65").Select Selection.Interior.ColorIndex = 2 Selection.ClearContents Selection.SpecialCells(xlCellTypeComments).ClearContents
