Recherche code VBA ( resolu )

[riton00]

Bonjour à tous

Dans un fichier Excel qui comporte plusieurs feuilles, y a t-il un code vba qui puisse supprimer tous les commentaires présents dans les cellules. 😕

Cordialement

 

[Gorfael]

Re : Recherche code VBA

Salut riton00 et le forum

Sub test()
Dim F As Worksheet, C As Comment

For Each F In Sheets
    For Each C In F.Comments
        C.Delete
    Next C
Next F
End Sub

A+

 

[riton00]

Re : Recherche code VBA

Bonjour Jean-Marcel & Gorfael

Pour vos codes vba ils sont tous les deux fonctionnels, je n'ai plus qu'à tirer à la courte paille

Merci à vous deux

 

[Gorfael]

Re : Recherche code VBA

Salut riton00, Jean-Marcel et le forum
Non ! C'est forcément le mien le meilleur... puisque c'est moi qui l'est fait 😉

Par principe, il vaut toujours mieux utiliser une instruction globale comme celle de Jean-Marcel, plutôt qu'une boucle comme je l'ai faite (mais, je n'ai pas testé son code).

Juste une remarque en passant :
Déclarer le nombre de feuille en Byte peut déclencher une erreur. Le gain, par rapport à une déclaration en Integer ou Long n'en vaut plus la chandelle, avec les tailles des RAM actuelles.
A+

 

[Gorfael]

Re : Recherche code VBA

Salut Jean-Marcel et le forum
Pas tout à fait d'accord avec toi : on a déjà les moutures 2007 et 2010, je pense qu'il faut penser que les macros devront peut-être s'exporter sur les nouveaux formats :
- Range("A65536").end(xlup), je le code dès à présent sur Cells(Rows.count, "A").end(xlup) (idem pour les colonnes).
Et juste pour enfoncer le clou 😉

Sub test()
Dim X As Byte
X = 256
End Sub

Testes-le. Et de 1 octet tu passes à 2 en Integer et 4 en Long, avec des mémoires de l'ordre du Go... si 3 octets font que ça plante...
A+