Bonjour Forum
je cherche la procedure de copier et coller un tableau d'une feuille a l'autre on respectant la mise en forme du tableau ( les largeur des colonne) et MFC et les formules
GRAZIE
NB: J'ai utilisé collage speciale mais il n'a pas pris en charge les largeurs des colonnes
Merci pour la réponse; mais je ne peux pas dupliquer les feuilles parce que dans chaque feuille il y a deux tableaux (Tab1 et Tab2) dans la 1ere Feuille et (Tab3 et Tab2) dans la 2eme Feuille
MON SOUCI EST DE COPIE TAB 2 de la 1ere Feuille vers ma 2eme
Grazie
Sub Macro1()
Dim i
Sheets("Feuil1").Range("B2:F13").Copy Sheets("Feuil2").Range("F8")
For i = 1 To Sheets("Feuil1").Range("B2:F13").Columns.Count
Sheets("Feuil2").Range("F8").Offset(, i - 1).ColumnWidth = _
Sheets("Feuil1").Range("B2:F13").Columns(i).ColumnWidth
Next i
End Sub
Sub Macro1()
Dim i
Sheets("Feuil1").Range("B2:F13").Copy Sheets("Feuil2").Range("F8")
For i = 1 To Sheets("Feuil1").Range("B2:F13").Columns.Count
Sheets("Feuil2").Range("F8").Offset(, i - 1).ColumnWidth = _
Sheets("Feuil1").Range("B2:F13").Columns(i).ColumnWidth
Next i
End Sub
Bonsoir mapomme
graizie ça fonctionné tres bien
mais je vous propose une autre astuce a m'aider ( biensure)
je souhaite que la largeur du tableau soit dynamique
c-a-d au lieu chaque fois je change le code ( B2:F13) je vous propose de les mettre dans la feuille dans une cellule et comme ça chaque fois je change les dimensions du tableau je l'ai fais directement a partir de cette cellule is it possibl ???
GRAZIE
(...) je souhaite que la largeur du tableau soit dynamique
c-a-d au lieu chaque fois je change le code ( B2:F13) je vous propose de les mettre dans la feuille dans une cellule et comme ça chaque fois je change les dimensions du tableau je l'ai fais directement a partir de cette cellule is it possibl ??? (...)
bONJOUR mapomme
peut etre j'ai mal expliqué mon souci
je m'explique :
je souhaite ajouter des lignes ou colonnes dans le tableau de la feuille 1 ( exemple ligne 14 et 15) donc je suis obligé de modifier le code on modifiant : "Sheets("Feuil1").Range("B2:F13")" par "Sheets("Feuil1").Range("B2:F15")"
GRAZIE