Retour cellule précédente

C

Catrice

XLDnaute Barbatruc

• 30 Mars 2009

• #2

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é ...

 

Vote positif 0 Vote négatif

800vfr76

XLDnaute Occasionnel

• 30 Mars 2009

• #3

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.

 

Pièces jointes

• Classeur4.zip

  7.2 KB · Affichages: 44
• Classeur4.zip

  7.2 KB · Affichages: 47
• Classeur4.zip

  7.2 KB · Affichages: 49

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 30 Mars 2009

• #4

Re : Retour cellule précédente

Salut,

peut-être ainsi :

Code:

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

 

Vote positif 0 Vote négatif

800vfr76

XLDnaute Occasionnel

• 30 Mars 2009

• #5

Re : Retour cellule précédente

Re,

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

Target.Copy

par

ActiveCell.Copy

et la impeccable.

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 30 Mars 2009

• #6

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

 

Vote positif 0 Vote négatif