Transferer des donnes VBA en gardant le format.

Bonjour,

Je souhaiterais soliciter votre aide, je suis parvenue a transferer des donnes d'une feuille a un autre mais j'aimerais que c'est donnes garde le meme formats (couleurs, souligne ...).

La matrice est joint ci dessous.

Merci beaucoup par avance.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub holding_list()   Sheets("sec_lists").Range("A2:E1000").ClearContents     Dim i As Integer Dim j As Integer   i = 6 j = 2   Do Until Sheets("portfolio").Cells(i, 1) = "Weight"   If Sheets("portfolio").Cells(i, 8) <> "" And Sheets("portfolio").Cells(i, 4) <> "" Then   Sheets("sec_lists").Cells(j, 1) = Sheets("portfolio").Cells(i, 1) Sheets("sec_lists").Cells(j, 2) = Sheets("portfolio").Cells(i, 4) Sheets("sec_lists").Cells(j, 3) = Sheets("portfolio").Cells(i, 5) Sheets("sec_lists").Cells(j, 5) = Sheets("portfolio").Cells(i, 6) Sheets("sec_lists").Cells(j, 4) = Sheets("portfolio").Cells(i, 2) j = j + 1   End If i = i + 1   Loop

---

Remplace tes Cells = Cells par des Copy

Exemple
Remplacer

Code:

---

Sheets("sec_lists").Cells(j, 1) = Sheets("portfolio").Cells(i, 1)

---

par

Code:

---

Sheets("portfolio").Cells(i, 1).Copy destination:=Sheets("sec_lists").Cells(j, 1)

---

Bonjour,
Plusieurs possibilités.
Soit le Copier/Collage Special-Valeur

Code:

---

1 2 3 4 5 6

Sub copieA() With Range("J2:K4") .Value = Range("A2:B4").Value Range("A2:B4").Copy: .PasteSpecial Paste:=xlPasteFormats End With End Sub

---

Soit le Copy Destination

Code:

---

1 2 3 4 5

Sub copieB() With Range("A2:B4") .Copy Range("J2") End With End Sub

---

Soit utiliser la propriété NumberFormat et toutes autres propriétés comme Bold, Underline, etc. de l'objet Range (Les cellules doivent être de même format).
Exemple

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub copie() With Range("J2:J4") .Value = Range("A2:A4").Value .NumberFormat = Range("A2:A4").NumberFormat End With With Range("K2:K4") .Value = Range("B2:B4").Value .NumberFormat = Range("B2:B4").NumberFormat End With End Sub

---

Le choix dépend de toi. Tu peux aussi faire le Copier/Collage Special-Valeur de toutes la plage en fin de procédure

MERCI beaucoup