Copier Mise en forme et valeur d'une plage de cellules

Bonjour, savez vous comment copier la mise en forme et les valeurs d'une plage de cellules?

Pour le moment j'essaye d'utiliser cette formule, mais elle copie les formules et non les valeurs des cellules.

FL12.Range("A2:U2000").Copy Destination:=FL21.Range("A2")

Savez vous comment modifier ce code pour qu'il fasse ce que je veux?

et voici mon code dans sa globalité:

Sub pdf()

Set FL21 = ThisWorkbook.Worksheets("Tabelle1")

   Set FL12 = ThisWorkbook.Worksheets("PDF")
FL21.Range("A5:B2000").Copy Destination:=FL12.Range("A5")
FL21.Range("C5:F2000").Copy Destination:=FL12.Range("D5")
FL21.Range("K5:L2000").Copy Destination:=FL12.Range("H5")
With ThisWorkbook.Worksheets("PDF")
Columns("D").ColumnWidth = 15.22
Columns("E").ColumnWidth = 65.44
Columns("F:I").ColumnWidth = 10.89
End With

End Sub

Merci d'avance, bonne journée

ThomasVil a écrit :

Bonjour, savez vous comment copier la mise en forme et les valeurs d'une plage de cellules?

Pour le moment j'essaye d'utiliser cette formule, mais elle copie les formules et non les valeurs des cellules.

FL12.Range("A2:U2000").Copy Destination:=FL21.Range("A2")

Savez vous comment modifier ce code pour qu'il fasse ce que je veux?

et voici mon code dans sa globalité:

Sub pdf()

Set FL21 = ThisWorkbook.Worksheets("Tabelle1")

   Set FL12 = ThisWorkbook.Worksheets("PDF")
FL21.Range("A5:B2000").Copy Destination:=FL12.Range("A5")
FL21.Range("C5:F2000").Copy Destination:=FL12.Range("D5")
FL21.Range("K5:L2000").Copy Destination:=FL12.Range("H5")
With ThisWorkbook.Worksheets("PDF")
Columns("D").ColumnWidth = 15.22
Columns("E").ColumnWidth = 65.44
Columns("F:I").ColumnWidth = 10.89
End With

End Sub

Merci d'avance, bonne journée

Bonjour, d'aprés mes souvenirs la fonction "copy" to ne permet pas de préciser format et valeurs.

il faut passer par "copier" collage spécial " "valeur puis format"

Xmenpl a écrit :

ThomasVil a écrit :

Bonjour, savez vous comment copier la mise en forme et les valeurs d'une plage de cellules?

Pour le moment j'essaye d'utiliser cette formule, mais elle copie les formules et non les valeurs des cellules.

FL12.Range("A2:U2000").Copy Destination:=FL21.Range("A2")

Savez vous comment modifier ce code pour qu'il fasse ce que je veux?

et voici mon code dans sa globalité:

Sub pdf()

Set FL21 = ThisWorkbook.Worksheets("Tabelle1")

   Set FL12 = ThisWorkbook.Worksheets("PDF")
FL21.Range("A5:B2000").Copy Destination:=FL12.Range("A5")
FL21.Range("C5:F2000").Copy Destination:=FL12.Range("D5")
FL21.Range("K5:L2000").Copy Destination:=FL12.Range("H5")
With ThisWorkbook.Worksheets("PDF")
Columns("D").ColumnWidth = 15.22
Columns("E").ColumnWidth = 65.44
Columns("F:I").ColumnWidth = 10.89
End With

End Sub

Merci d'avance, bonne journée

Bonjour, d'aprés mes souvenirs la fonction "copy" to ne permet pas de préciser format et valeurs.

il faut passer par "copier" collage spécial " "valeur puis format"

Merci, j'ai essayé de faire avec ce code

Sub esaie()

 ThisWorkbook.Worksheets("Grille Produits").Range("C5:F2000").Copy

 ThisWorkbook.Worksheets("PDF").Range("D5:G2000").PasteSpecial _
  Operation:=xlPasteValuesAndNumberFormats

With ThisWorkbook.Worksheets("PDF")
Columns("D").ColumnWidth = 15.22
Columns("E").ColumnWidth = 65.44
Columns("F:I").ColumnWidth = 10.89
End With
End Sub

mais cette erreur apparait lors de la compilation et je n'arrive pas à l'enlever. Savez vous comment faire compiler ce programme pls?

Sub esaie()

 ThisWorkbook.Worksheets("Grille Produits").Range("C5:F2000").Copy

 ThisWorkbook.Worksheets("PDF").Range("D5").Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

 With ThisWorkbook.Worksheets("PDF")
Columns("D").ColumnWidth = 15.22
Columns("E").ColumnWidth = 65.44
Columns("F:I").ColumnWidth = 10.89
End With
End Sub

ThisWorkbook.Worksheets("PDF").Range("D5:G2000").PasteSpecial

paste Spécial à partir d'une plage au lieu d'une cellule

Xmenpl a écrit :

Sub esaie()

 ThisWorkbook.Worksheets("Grille Produits").Range("C5:F2000").Copy

 ThisWorkbook.Worksheets("PDF").Range("D5").Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

 With ThisWorkbook.Worksheets("PDF")
Columns("D").ColumnWidth = 15.22
Columns("E").ColumnWidth = 65.44
Columns("F:I").ColumnWidth = 10.89
End With
End Sub

ThisWorkbook.Worksheets("PDF").Range("D5:G2000").PasteSpecial

paste Spécial à partir d'une plage au lieu d'une cellule

Merci ca marche!