Coller un tableau sans la mise en forme "tableau"

Bonjour,

Je reviens vers vous dans l'espoir de trouver des réponses..

J'ai une macro pour coller une feuille dans un autre fichier.

Le problème c'est que j'ai un tableau sur cette feuille...

Je voulais enlever les couleurs de cellules pour rendre le papier "un peu plus officiel" mais tant que c'est un tableau je peux pas bouger la forme avec interior.ColorIndex..

Je vous met le code en dessous:

Private Sub CommandButton2_Click()
'Bouton enregistrer le certificat
Dim MaPlage As Range

LaDate = Year(Date)
Date2 = Month(Date) & "/" & Year(Date)
'Variable qui prend la date du jour format aaaa
Set MaPlage = Range("M1:T52") 'Applique la plage voulue à la variable, changer le range pour changer la plage

    MaPlage.Copy 'Fait la copie de la zone voulue
    Workbooks.Add 'Ouvre un nouveau Fichier XL
    ActiveSheet.Paste 'Colle la sélection à copier sur la feuille active, donc la nouvelle
    'Fait la sauvegarde, la deuxième ligne en retrait reprend la variable avec la date

    ActiveSheet.Range("B1") = "Certificat de contrôle fourchette 80074"
    ActiveSheet.Range("G51") = "Imprimé le " & Date2
    ActiveSheet.Range("C51") = "Page 1/1"
    ActiveSheet.Range("D40") = Format(Now(), "dd.mm.yyyy")
    ActiveSheet.Range("D6:H13").Interior.ColorIndex = 0
    ActiveSheet.Rows(5).Delete
    ActiveSheet.Columns("A:H").Select
    Selection.ColumnWidth = 10
    ActiveSheet.Rows(14).Delete

    ActiveWorkbook.SaveAs Filename:= _
        "D:\80075-CV-" & LaDate & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

Merci d'avance!

Bonjour

Quand on copie un tableau complet on obtient un tableau.

Il suffit alors d'appliquer au tableau le style qui n'a aucune couleur

ActiveSheet.ListObjects(1).TableStyle = ""

Bonjour 78chris,

Effectivement votre code marche bien !

Il me reste par contre des couleurs appliquer par une mise en forme conditionnelle.

Peut-on les supprimer aussi? Faire un reset de toute la page sur la forme des cellules ou sur une plage donnée?

Re

ActiveSheet.ListObjects(1).Range.FormatConditions.Delete

merci !!