Retour cellule précédente

[800vfr76]

Bonjour a tous,

Je cherche une macro pour pouvoir retourner dans la cellule précédente.
Je m'explique:
Je copie par macro la cellule C15 dans la cellule D2 et je souhaiterai qu'après la copie dans la cellule D2 je retourne dans la cellule C15. C15 et D2 ne sont pas fixe.

J'ai pensé enregistrer l'adresse de la cellule copier dans une cellule et avec cette référence retourner dans la bonne cellule, mais voila je ne sais pas comment faire.

Merci a vous pour aide.

 

[Catrice]

Re : Retour cellule précédente

Bonjour,

Si tu utilises ce code :
Range("C15").Copy Range("D2")

Tu ne changeras pas de cellule, donc pas besoin de retourner en C15 😉

Mais si ton code de copie fait des déplacements, il doit surement pouvoir etre optimisé ...

 

[800vfr76]

Re : Retour cellule précédente

Re,

Merci de ta réponse mais pas facile avec ma macro.

Je joint un fichier pour exemple, si tu peux regarder.

 

[Fo_rum]

Re : Retour cellule précédente

Salut,

peut-être ainsi :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Selection.End(xlToRight).Select
  [B]Target.Copy[/B]
  Range("E65000").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues
  [B]Target.Select[/B]
  Cancel = True
End Sub

 

[800vfr76]

Re : Retour cellule précédente

Re,

Merci c'est ca, j'ai juste remplacé

Target.Copy

par

ActiveCell.Copy

et la impeccable.

 

[Catrice]

Re : Retour cellule précédente

Re,

Essaie ceci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then Range("E65536").End(xlUp).Offset(1, 0) = Target.Value
End Sub