BeBo* a écrit :
re, désolé mais maintenant je ne peux plus copier et coller !!¨
il perd la sélection quand je clique !!
|
Je t'ai déjà répondu dans un autre thread ...
Code :
- Dim wksSheet As Object
- Dim rngTarget As Range
- Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
- Dim lCutCopyMode As Long
- lCutCopyMode = Application.CutCopyMode
- Select Case lCutCopyMode
- Case xlCopy, xlCut
- Case Else
- Set wksSheet = Sh
- Set rngTarget = Target
- End Select
- Sheet1.CommandButton1.Top = Target.Top
- Select Case lCutCopyMode
- Case xlCopy
- rngTarget.Copy
- Case xlCut
- rngTarget.Cut
- End Select
- End Sub
|
ici: http://forum.hardware.fr/forum2.ph [...] w=0&nojs=0
Message édité par Vobiscum le 27-10-2005 à 10:13:52
---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.