Sélectionner et copier un tableau

Bonsoir à toutes et à tous

Je voudrais savoir comment sélectionner les 4 colonnes A, B, C et D à partir de la dernière ligne non vide d'un tableau et la copier pour les coller dans un autre.

Trouver le dernière ligne non vide j'y arrive avec :

DernLigne = Range("A1048576").End(xlUp).Row

mais c'est la partie sélection que je n'arrive pas à réaliser.

Merci d'avance pour votre aide.

Bonjour,

Ah ! On les aime ces sélections, hein ?

Range("A1:D" & Dernligne). Copy

et pas besoin de sélection !

A+

Bonsoir galopin01

Oui je ne sais pas si je les aime, mais il arrive parfois qu'elles me rendent service.

Malheureusement la ce n'est pas le cas.

J'ai un petit souci, que je n'arrive pas à résoudre.

J'ai une Feuille appelée "Engagés", qui contient un tableau dont je voudrais copier les 4 premières colonnes dans une autre feuille qui s'appelle "Paraphes".

Le but est de sélectionner les coureurs par catégorie de valeur( 1ère, 2ème, etc. ..), et de les copier dans les tableaux correspondant de la feuille Paraphes.

J'ai essayé la sélection avec index & equiv, mais cela ne fonctionne pas, car excel n'arrive pas à distinguer les différents noms.

J'ai essayé en une macro qui copie et colle le tableau filtré, la demande précédent avec la sélection était pour cela, mais cela non plus ne fonctionne pas non plus.

SI tu as une solution je suis preneur.

Merci de ton aide.

le fichier est en pièce jointe. Il n'y a pas de mot de passe.

Une possibilité :

Sub Galopin()
Sheets("Paraphes").Rows("11:50").ClearContents
With Sheets("Engagés")
    .Range("A3:U3").AutoFilter
    .Range("$A$3:$U$103").AutoFilter Field:=6, Criteria1:="1ére"
    .Range("A4:D104").Copy
        Sheets("Paraphes").Range("A11").PasteSpecial Paste:=xlPasteValues
    .Range("$A$3:$U$103").AutoFilter Field:=6, Criteria1:="2ème"
    .Range("A4:D104").Copy
        Sheets("Paraphes").Range("G11").PasteSpecial Paste:=xlPasteValues
    .Range("$A$3:$U$103").AutoFilter Field:=6, Criteria1:="3ème"
    .Range("A4:D104").Copy
        Sheets("Paraphes").Range("M11").PasteSpecial Paste:=xlPasteValues
    .Range("$A$3:$U$103").AutoFilter Field:=6, Criteria1:="Fém."
    .Range("A4:D104").Copy
        Sheets("Paraphes").Range("S11").PasteSpecial Paste:=xlPasteValues
    .Range("$A$3:$U$103").AutoFilter Field:=6, Criteria1:="VTT"
    .Range("A4:D104").Copy
        Sheets("Paraphes").Range("AK11").PasteSpecial Paste:=xlPasteValues
    .AutoFilterMode = False
End With
End Sub

A+

Bonjour Galopin01

La possibilité proposée fonctionne.

Je te remercie beaucoup.

A te relire.