Bonjour,

J’utilise une macro pour filtrer un fichier de data pour prendre en compte les ventes des marques de voitures indiquées dans « voiture_dic »
La macro cumule le montant de toutes les ventes indiquées dans la colonne « CA » si la marque de voiture, indiquée dans « voiture_dic », est présente dans la colonne « Produit »


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
Private Sub get_voiture()
    Dim n_sell As Long
    Dim n_marq As Long
    Dim i As Long
 
    n_sell = ucols("CA")
    n_marq = ucols("Produit")
 
    voiture = 0
    For i = LBound(tdata, 1) + 1 To UBound(tdata, 1)
        If (voiture_dic.Exists(tdata(i, n_prod))) Then
            On Error Resume Next
            voiture = voiture + tdata(i, n_sell)
        End If
    Next i
 
    If (tglobalCA <> 0) Then
        voiture = voiture / tglobalCA
    End If
End Sub

Cette macro fonctionne très bien mais je souhaiterais la compléter en rajoutant du code pour copier/coller toutes les lignes concernées de mon onglet « Data » dans nouvel un onglet nommé « Détail »

Merci à ceux qui pourraient m‘aider