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
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"
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
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!