Coller sélection de colonne

Bonjour,

J'ai besoin de votre aide.

Dans la feuille cockpit, je veux copier les valeurs des colonnes "A, B, J, K, M" si celulle dans la colonne J est non vide et cela à partir de la ligne 6 pour coller dans Feuil3 en dessous de la dernière ligne remplie.

J'y approche avec cette macro mais je bloque :/

Sub CopyRowsAcross()
Application.ScreenUpdating = False
Dim i As Integer
Dim ws1 As Worksheet
Set ws1 = Sheets("Cockpit")

For i = 2 To ws1.Range("A65536").End(xlUp).Row
If ws1.Cells(i, 10) <> "" Then ws1.Rows(i).Copy Destination:=Sheets("Feuil3").Range("A65536").End(xlUp)(2)
Next i

End Sub

Pouvez vous m'aider svp ?

D'avance un grand merci :)

Bonjour

Dans la feuille cockpit, je veux copier les valeurs des colonnes "A, B, J, K, M" si celulle dans la colonne J est non vide et cela à partir de la ligne 6

Si la ligne 6 concerne la feuille Cockpit, pourquoi commencez-vous sur la ligne 2 (i = 2 ?) au lieu de la ligne 6 ?

Cordialement

Exact une erreur de ma part !

Cela doit bien commencer à la ligne 6.

Cela fonctionne si vous mettez i = 6

je me suis peut être mal exprimé.

Cela fonctionne effectivement mais je ne veux pas copier la ligne entière mais seulement les colonnes A B J K M et que les valeurs sans la mise en forme.

C'est là que je bloque 😔

je ne veux pas copier la ligne entière mais seulement les colonnes A B J K M et que les valeurs sans la mise en forme.

Ok mais J, K, et M vont dans quelle colonne dans la feuille 3 ?

Ce serait mieux de voir votre fichier

Je n'ai pas accès à mon pc maintenant mais si besoin je partage un fichier dès que possible.

Les colonnes A B J K M de la feuille cockpit deviennent A B C D E

Les colonnes A B J K M de la feuille cockpit deviennent A B C D E

Essayez comme ceci

Sub CopyRowsAcross()

Dim i As Integer, dlg As Integer
Dim ws1 As Worksheet, ws2 As Worksheet
Application.ScreenUpdating = False

Set ws1 = Sheets("Cockpit")
Set ws2 = Sheets("Feuil3")

With ws1
    For i = 1 To .Range("A" & Rows.Count).End(xlUp).Row
        If .Cells(i, 10) <> "" Then
            dlg = ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
            ws2.Range("A" & dlg) = .Range("A" & i)
            ws2.Range("B" & dlg) = .Range("B" & i)
            ws2.Range("c" & dlg) = .Range("J" & i)
            ws2.Range("D" & dlg) = .Range("K" & i)
            ws2.Range("E" & dlg) = .Range("M" & i)
        End If
    Next i
End With
Application.ScreenUpdating = True
End Sub

Cordialement

Un grand merci Dan, c'est exactement ce qu'il me fallait :)

Je te souhaite une bonne fin de soirée :)