Retour au range d'avant

Temjeh · 7 Janvier 2006

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 · 7 Janvier 2006

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! · 7 Janvier 2006

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 · 7 Janvier 2006

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

Retour au range d'avant

Temjeh

Guest

coco_lapin

XLDnaute Impliqué

myDearFriend!

XLDnaute Barbatruc

Temjeh

Guest

Discussions similaires