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