Effacer données et conserver la mise en forme de destination [Résolu]

Signaler
Messages postés
4
Date d'inscription
mardi 3 février 2009
Statut
Membre
Dernière intervention
8 avril 2009
-
Messages postés
4
Date d'inscription
mardi 3 février 2009
Statut
Membre
Dernière intervention
8 avril 2009
-
bonjour
Je programme une application excel avec des codes VBA mais je ne sais pas effacer des données en coservant la mise en forme de destination pour un collage ultérieur.
en fait j'utilise
Sheets("V1D").Select
    Columns("F:AN").Select
    Selection.Delete
et lorsque je copie  j'ai le code
Sheets(catégorie).Select
        Range("F1").Select
        ActiveSheet.Paste
        Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
tout ça fonctionne en VBA sous excel 2007 mais malgré mon enregistrement en mode compatibilité sous xls 97 2003 le copiage spécial ne fonctionne pas et génère une erreur 1004 sous excel 2000 . En plus de ça la mise en forme ne se fait plus ce qui rend le tableau inutilisable.
J'aurai donc souhaiter mettre en forme la feuille et ne plus faire de collage spécial mais lors de l'effacement cela supprime cette mise en forme.
Avez vous une solution pour effacer en conservant la mise en forme?
kay80

2 réponses

Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
Salut,

t'es pas dans le bon theme !

pour l'effacement interesse toi à la methode : ClearContents

par exemple:

Selection.ClearContents
Messages postés
4
Date d'inscription
mardi 3 février 2009
Statut
Membre
Dernière intervention
8 avril 2009

merci bigfish_le vrai

kay80