Discussion :

[aziz1015]

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

[Invité]

Bonjour,

Code :

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

WsSources.Range(Cells(1, c.Column), Cells(Nbl, c.Column)).Copy WsDonnees.range("A1")

[joe.levrai]

Bonjour,

je sais que tu aimes les Resize

regarde si ça convient à ta problématique

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
Sub ioi()
Dim ListeTitre()
Dim WsDonnees As Worksheet
    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")
    With ThisWorkbook
        ' feuille active qui sera la feuille recevant les données (on la nettoie au préalable)
        Set WsDonnees = .ActiveSheet: WsDonnees.UsedRange.Clear
        With .Worksheets("Feuil3")
            ' pour chaque titre
            For i = LBound(ListeTitre) To UBound(ListeTitre)
                ' recherche en ligne 1
                Set c = .Rows(1).Find(ListeTitre(i), , xlValues, xlWhole)
                ' si résultat : écriture de la plage dans la feuille de destination
                ' on écrit dans la même colonne que celle où on a trouvé le titre
                If Not c Is Nothing Then .Cells(1, c.Column).Resize(.Range("A1").CurrentRegion.Rows.Count, 1).Copy WsDonnees.Cells(1, c.Column)
            Next i
        End With
    End With
End Sub

[aziz1015]

Bonjour,

Code :

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

WsSources.Range(Cells(1, c.Column), Cells(Nbl, c.Column)).Copy WsDonnees.range("A1")

Merci pour votre réponse mais cela ne fonctionne pas ! "La méthode Range de l'objet Worksheet() a échoué" ! Le problème vient de la copie ?

Je ne sais pas si ça a un rapport avec l'erreur mais je tiens à préciser que toutes les colonnes sont séparées ! C'est à dire que la première est peut être la colonne numéro 10 et la seconde la colonne 3 dans ListeTitre()

Cordialement

Bonjour,

je sais que tu aimes les Resize

Wow Joe, ça correspond à 100% à ce que je recherche !

Merci infiniment