Selectionner plage pour copier

Bonjour.

Je suis à la recherche d'une fonction qui me sélectionne la dernière cellule non vide de la colonne A, va sélectionner la ligne jusqu'à la colonne F et remonte toujours en ligne 14.

Pour être plus clair, ma dernière cellule remplie en colonne A est A62, je voudrais que cela me sélectionne A14:F62 pour le copier.

Autre exemple, ma dernière cellule remplie en colonne A est A27, je voudrais que cela me sélectionne A14:F27 pour le copier.

Si quelqu'un peut m'aider, MERCI.

Bonne réception.
Bien cordialement.

Bonjour,

Utilisez le code suivant :

Sub selectionZone()
' --- --- --- By BibuNesco --- --- --- '

    Dim Ws_test As Worksheet
    Set Ws_test = ActiveSheet

    derlig_test = Ws_test.Range("A" & Rows.Count).End(xlUp).Row

    If derlig_test < 14 Then
        MsgBox "Impossible de sélectionner la zone demandée"
    Else
        Ws_test.Range("A14", "F" & derlig_test).Select
        Selection.Copy
    End If 

End Sub
    

Cordialement,

Bibu

Bonjour,

Il faudrait déjà assigner le nombre de ligne de la colonne A a une variable:

derniereLigne = Worksheets("Feuill1").Cells(rows.Count, 1).End(xlUp).Row

Pour la sélection, cela peut se faire de cette manière:

Range("A13" & ":F" & derniereLigne).Copy

Il te suffit ensuite de .Paste à la plage de destination :)

Bonjour BibuNesco, bonjour Sothin,

Un grand merci à tous les deux, que ce soit l'une ou l'autre, vos fonctions me conviennent parfaitement.

Un grand MERCI à tous les deux pour vous être penché sur mon problème et l'avoir résolu.

SUPER

Bien cordialement.