Xldown + offset

Bonjour,

J'ai un petit problème d'écriture sur un argument plutôt simple.

Je cherche à sélectionner la dernière donnée de la colonne C en passant par la colonne D.

Raison : J'ai une formule étiré jusqu'en bas en colonne C.

Colonnes C et D remplies et vérifiées donc xldown ne dérange pas.

Je fais cette écriture :

    Range("D31").End(xlDown).End(xlToLeft).Select
    ActiveCell.Offset(rowOffset:=0, columnOffset:=-1).Select
    Selection.Copy

Sauf que je ne retombe pas sur ma dernière cellule de la colonne C

Merci de votre aide

Bonjour igoor.r

Sans les .Select qui ralentissent le code

Dim Cel as Range
Set Cel = Range("D31").End(xlDown)
Cel.Offset(rowOffset:=0, columnOffset:=-1).Copy

en 1 seule ligne

Range("D31").End(xlDown).Offset(0,-1).Copy

Voilà

Bonjour,

Ci-dessous une proposition détaillée :

    Range("D31").End(xlDown).Select
    ActiveCell.Offset(0, -1).Select
    Selection.Copy

La même chose en une seule ligne :

    Range("D31").End(xlDown).Offset(0, -1).Copy

Merci à vous, vous avez su simplifier mon écriture et c'est fonctionnel.

Bonne journée à vous