JE peux plus coier-coller dans excel

JE peux plus coier-coller dans excel - VB/VBA/VBS - Programmation

Marsh Posté le 04-10-2005 à 08:10:21    

Salut,  
 
J'ai un problème avec mon code, je ne peux plus copier-coller.
Voici le code:

Code :
  1. Private Sub CommandButton1_Click()
  2.      iR = ActiveCell.Row
  3.      If IsEmpty(ActiveCell) Then
  4.      MsgBox "y'a rien"
  5.      Else
  6.      Origine = ActiveWorkbook.Name
  7.      Workbooks.Open Filename:="\\Fsgld\Galenic\Galenique\Stock\Principes actifs\DEBIO025\DEBIO025 lot 0023K0004.xls"
  8.      iDest = Sheets(1).Range("F65536" ).End(xlUp).Row + 1
  9.      Cible = ActiveWorkbook.Name
  10.      Workbooks(Origine).Activate
  11.      'copie masse à déduire
  12.      ActiveCell.Copy Workbooks(Cible).Sheets(1).Cells(iDest, 6)
  13.      Cells(iR - 1, 1).Copy Workbooks(Cible).Sheets(1).Cells(iDest, 4)
  14.      Workbooks(Cible).Sheets(1).Cells(iDest, 1).Value = Date
  15.     'Workbooks(Cible).Close True
  16.      End If
  17.      End Sub
  21. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  22. CommandButton1.Top = Target.Top
  23. End Sub


C'est pour que le boutton suive le curseur dans la page..
Alors pkoi je ne peux plus Crt-C / Ctr-V ??
 
 :whistle:

Message cité 1 fois
Reply

Marsh Posté le 04-10-2005 à 08:10:21   

Reply

Marsh Posté le 04-10-2005 à 10:10:13    

ctrl c ctlv

Reply

Marsh Posté le 04-10-2005 à 12:21:15    

ben à march po.....
a cause de Private Sub Worksheet_SelectionChange mais comment contourner ??

Reply

Marsh Posté le 05-10-2005 à 13:32:10    

noboby ??

Reply

Marsh Posté le 05-10-2005 à 13:58:12    

BeBo* a écrit :

Salut,  
 
J'ai un problème avec mon code, je ne peux plus copier-coller.
Voici le code:

Code :
  1. Private Sub CommandButton1_Click()
  2.      iR = ActiveCell.Row
  3.      If IsEmpty(ActiveCell) Then
  4.      MsgBox "y'a rien"
  5.      Else
  6.      Origine = ActiveWorkbook.Name
  7.      Workbooks.Open Filename:="\\Fsgld\Galenic\Galenique\Stock\Principes actifs\DEBIO025\DEBIO025 lot 0023K0004.xls"
  8.      iDest = Sheets(1).Range("F65536" ).End(xlUp).Row + 1
  9.      Cible = ActiveWorkbook.Name
  10.      Workbooks(Origine).Activate
  11.      'copie masse à déduire
  12.      ActiveCell.Copy Workbooks(Cible).Sheets(1).Cells(iDest, 6)
  13.      Cells(iR - 1, 1).Copy Workbooks(Cible).Sheets(1).Cells(iDest, 4)
  14.      Workbooks(Cible).Sheets(1).Cells(iDest, 1).Value = Date
  15.     'Workbooks(Cible).Close True
  16.      End If
  17.      End Sub
  21. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  22. CommandButton1.Top = Target.Top
  23. End Sub


C'est pour que le boutton suive le curseur dans la page..
Alors pkoi je ne peux plus Crt-C / Ctr-V ??
 
 :whistle:


 
bon ... petites corrections pour le prog:
 

Code :
  1. Dim wksSheet As Object
  2. Dim rngTarget As Range
  4. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  5. Dim lCutCopyMode As Long
  7. lCutCopyMode = Application.CutCopyMode
  9. Select Case lCutCopyMode
  10.     Case xlCopy, xlCut
  11.     Case Else
  12.         Set wksSheet = Sh
  13.         Set rngTarget = Target
  14. End Select
  17. Sheet1.CommandButton1.Top = Target.Top
  19. Select Case lCutCopyMode
  20.     Case xlCopy
  21.         rngTarget.Copy
  22.     Case xlCut
  23.         rngTarget.Cut
  24. End Select
  25. End Sub


Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed