Discussion :

[edclb]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

Remplace tes Cells = Cells par des Copy

Exemple
Remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[edclb]

MERCI beaucoup