Bonjour,

J'essaye de copier certaines colonnes d'un onglet vers l'onglet actif à l'aide d'un bouton, j'ai un problème avec la fonction que j'ai écrite pour faire cela !


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
 
 
Dim ListeTitre()
Dim WsSources As Worksheet
Dim WsDonnees As Worksheet
Dim Nbl As Integer
 
    ListeTitre = Array("Nombre", "Activite", "Date d'arrivée de l'étude", "Date de traitement possible", "Date de réponse demandée", "Date de fin", "mois", "delai")
    Set WsSources = ThisWorkbook.Worksheets("tarifé " & Year(Date))
    Set WsDonnees = ThisWorkbook.ActiveSheet
    Nbl = WsSources.Range("A1").CurrentRegion.Rows.Count
    For i = LBound(ListeTitre) To UBound(ListeTitre)
        Set c = Nothing
        Set c = WsSources.Rows(1).Find(ListeTitre(i), , xlValues, xlWhole)
        If Not c Is Nothing Then
        'WsDonnees.Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Clear
 
'Le problème se trouve sur la ligne de code suivante, je n'arrive pas à trouver la bonne façon de copier :?
 
            WsSources.Range(Cells(1, c.Column), Cells(Nbl, c.Column)).Select
            Selection.Copy
            WsDonnees.Paste
 
        End If
 
    Next i
Merci d'avance pour votre aide