Retour à une cellule (résolu)

[Cougar]

Bonsoir le forum,

Comment écrire le code pour retourner à une cellule pré-définie avec ActiveCell.Address ?

Dim Ref As Range

Set Ref = ActiveCell
Range(ActiveCell.Offset(0, -3), ActiveCell).Cut
Range("f2").Select
Do Until ActiveCell = ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste

Ref.Select -----> puisque ma cellule est coupée/collée, ref me retourne dans la colonne I plutôt que de retourné à la colonne D.

Merci

 

[Papou-net]

Re : Retour à une cellule

Bonsoir Cougar,

Essaie comme ceci:

Dim Ref As String

        Ref = ActiveCell.Address
        Range(ActiveCell.Offset(0, -3), ActiveCell).Cut
        Range("f2").Select
        Do Until ActiveCell = ""
            ActiveCell.Offset(1, 0).Select
        Loop
        ActiveSheet.Paste

        Range(Ref).Select

Cordialement.

 

[Cougar]

Re : Retour à une cellule

Bonsoir Papou-net,

C'est parfait.

Merci