JE peux plus coier-coller dans excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : JE peux plus coier-coller dans excel

BeBo*

Salut,

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

Code :

Private Sub CommandButton1_Click()
iR = ActiveCell.Row
If IsEmpty(ActiveCell) Then
MsgBox "y'a rien"
Else
Origine = ActiveWorkbook.Name
Workbooks.Open Filename:="\\Fsgld\Galenic\Galenique\Stock\Principes actifs\DEBIO025\DEBIO025 lot 0023K0004.xls"
iDest = Sheets(1).Range("F65536" ).End(xlUp).Row + 1
Cible = ActiveWorkbook.Name
Workbooks(Origine).Activate
'copie masse à déduire
ActiveCell.Copy Workbooks(Cible).Sheets(1).Cells(iDest, 6)
Cells(iR - 1, 1).Copy Workbooks(Cible).Sheets(1).Cells(iDest, 4)
Workbooks(Cible).Sheets(1).Cells(iDest, 1).Value = Date
'Workbooks(Cible).Close True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Top = Target.Top
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:

Publicité

apeter

ctrl c ctlv

BeBo*

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

BeBo*

noboby ??

Vobiscum

Vénérez moi !

BeBo* a écrit :

Salut,

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

Code :

Private Sub CommandButton1_Click()
iR = ActiveCell.Row
If IsEmpty(ActiveCell) Then
MsgBox "y'a rien"
Else
Origine = ActiveWorkbook.Name
Workbooks.Open Filename:="\\Fsgld\Galenic\Galenique\Stock\Principes actifs\DEBIO025\DEBIO025 lot 0023K0004.xls"
iDest = Sheets(1).Range("F65536" ).End(xlUp).Row + 1
Cible = ActiveWorkbook.Name
Workbooks(Origine).Activate
'copie masse à déduire
ActiveCell.Copy Workbooks(Cible).Sheets(1).Cells(iDest, 6)
Cells(iR - 1, 1).Copy Workbooks(Cible).Sheets(1).Cells(iDest, 4)
Workbooks(Cible).Sheets(1).Cells(iDest, 1).Value = Date
'Workbooks(Cible).Close True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Top = Target.Top
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 :

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

Sujets relatifs
passer un fichier excel en fichier ascii	[Excel] Conditionner une source de données dans un graphique
[Excel VBA] Ne pas afficher les lignes masquées d'un plan	Excel VBA - Importer depuis un fichier texte
php reader excel	Excel > duppliquer et renommer onglet à partir d'une liste [résolu]
[Excel VBA] Identification des cellules impactées par un recalcul	Afficher un classeur excel dans une Form
Sélection et macro avec EXCEL	VB Excel - Renommer fichier en fonction du répertoire
Plus de sujets relatifs à : JE peux plus coier-coller dans excel

Page générée en 0.076 secondes