Copier/coller
Michael
-
melanie1324 Messages postés 1561 Statut Membre -
melanie1324 Messages postés 1561 Statut Membre -
Bonjour,
Pour gagner du temps dans mes exportations, je souhaiterais créer un bouton me permettant de copier de la ligne A3 à la AG3 du mon tableur vers un autre fichier excel ayant les mêmes coordonées. Ou au moins me les intégrer dans mon presse papier.
Est-ce possible ?
Merci
Pour gagner du temps dans mes exportations, je souhaiterais créer un bouton me permettant de copier de la ligne A3 à la AG3 du mon tableur vers un autre fichier excel ayant les mêmes coordonées. Ou au moins me les intégrer dans mon presse papier.
Est-ce possible ?
Merci
3 réponses
-
Bonjour,
sub copiercoller ()
sheets("feuilleoutuveuxcopier").select 'remplace feuilleoutuveuxcopier par le nom de ta feuille
range(cells(3,1),cells(3,33)).copy
Application.Dialogs(xlDialogOpen).Show
sheets ("feuilleoutuveuxcoller").select 'remplace feuilleoutuveuxcoller par le nom de ta feuille
cells(3,1).select
activesheet.paste
end sub-
-
Ok, c'est super. Juste une modification.
en Avant derniere ligne il y a
Cells(4, 1).Select
En revanche, il faudrait que les informations se mettent toujours en dernière position. Comme ça il serait possible d'exporter plusieurs informations de tableur mais toujours vers le même second tableur.
Avez-vous compris ? -
-
Bonjour,
sub Commandbutton1
sheets("feuilleoutuveuxcopier").select 'remplace feuilleoutuveuxcopier par le nom de ta feuille
range(cells(3,1),cells(3,33)).copy
Workbooks.Open Filename:= _
"C:\Documents and Settings\Mes documents\Classeur2.xls"
sheets ("feuilleoutuveuxcoller").select 'remplace feuilleoutuveuxcoller par le nom de ta feuille
i=3
do while cells(i,1)<> ""
i=i+1
loop
cells(i,1).select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
end sub
-
-
Bonjour,
Pour l'associer à un bouton.
dessine le bouton. Clic droit sur le bouton en mode création, visualiser le code :
sub Commandbutton1
sheets("feuilleoutuveuxcopier").select 'remplace feuilleoutuveuxcopier par le nom de ta feuille
range(cells(3,1),cells(3,33)).copy
Workbooks.Open Filename:= _
"C:\Documents and Settings\Mes documents\Classeur2.xls"
sheets ("feuilleoutuveuxcoller").select 'remplace feuilleoutuveuxcoller par le nom de ta feuille
cells(3,1).select
activesheet.paste
end sub -
Bonjour,
voici une nouvelle réponse
sub Commandbutton1
sheets("feuilleoutuveuxcopier").select 'remplace feuilleoutuveuxcopier par le nom de ta feuille
range(cells(3,1),cells(3,33)).copy
Workbooks.Open Filename:= _
"C:\Documents and Settings\Mes documents\Classeur2.xls"
sheets ("feuilleoutuveuxcoller").select 'remplace feuilleoutuveuxcoller par le nom de ta feuille
i=3
do while cells(i,1)<> ""
i=i+1
loop
cells(i,1).select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
end sub
