C Cougar XLDnaute Impliqué 23 Mars 2016 #1 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 Dernière édition: 23 Mars 2016
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 XLDnaute Barbatruc 23 Mars 2016 #2 Re : Retour à une cellule Bonsoir Cougar, Essaie comme ceci: Code: 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. Vote positif 0 Vote négatif
Re : Retour à une cellule Bonsoir Cougar, Essaie comme ceci: Code: 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.
C Cougar XLDnaute Impliqué 23 Mars 2016 #3 Re : Retour à une cellule Bonsoir Papou-net, C'est parfait. Merci Vote positif 0 Vote négatif