Copy sans modifier les formats des cellules cibles

Le 21/09/2023 à 10:13

bonjour à tous

comment modifier le code pour deplacer les donnnées sans modification les formats des cellules cribles

Set WbSource = Workbooks.Open(FichierSource)
last = WbSource.Sheets("Sheet1").Range("b100000").End(xlUp).Row

With WbSource
.Sheets("Sheet1").Range("b2:b" & last ).Copy Destination:=ShCible.Range("e19")
.Sheets("Sheet1").Range("e2:e" & last ).Copy Destination:=ShCible.Range("D19")

.Close False
End With

merci d'avance

Le 21/09/2023 à 11:43

bonjour Samygarma

avec pastespecial xlvalues ou avec

i = last - 1 'nombre de lignes
ShCible.Range("e19").Resize(i).Value = .Sheets("Sheet1").Range("b2").Resize(i).Value
.

Rechercher des sujets similaires à "copy modifier formats cibles"