Retour au range d'avant

[Temjeh]

Bonsoir à tous

J'aurais juste une petite question: Y a t il un moyen de revenir à ma cell de départ après doubble_clic en col C je recopy des données plus bas...

If Target.Column = 3 Then
Selection.EntireRow.Copy
Range('A65536').End(xlUp).Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Merci beaucoup

Temjeh

 

[coco_lapin]

Bonsoir tout le monde.

Si tu veux reselectionner la cellule qui était selectionnée avant d'avoir lancé ta macro alors il faut mettre dans des variables l'adersse de ta cellule avant de lancer ta macro soit:

Ligne_active=Activecells.Row
Colonne_active=Activecells.Column

 

[myDearFriend!]

Bonsoir Temjeh, coco_lapin,

Si j'ai bien compris la question :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      If Target.Column = 3 Then
            Cancel = True
            Application.ScreenUpdating = False
            Target.EntireRow.Copy
            Range('A65536').End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, _
            Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            Application.CutCopyMode = False
            Target.Activate
            Application.ScreenUpdating = True
      End If
End Sub

Cordialement,

 

[Temjeh]

Merci beaucoup ca fonctionne!!

Donc mon prob venait que j'activais la dercell avant du paste spécial alors que dans le code de myDearFriend! on ne l'active pas.

Merci beaucoup

Temjeh