Copier/coller
Fermé
Michael
-
10 juin 2011 à 15:50
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 15 juin 2011 à 16:21
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 15 juin 2011 à 16:21
A voir également:
- Copier/coller
- Copier coller pdf - Guide
- Historique copier-coller android - Guide
- Copier-coller - Accueil - Windows
- Symbole clavier copier coller - Guide
- Arobase copier coller - Forum Clavier
3 réponses
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
14 juin 2011 à 10:11
14 juin 2011 à 10:11
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
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
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
14 juin 2011 à 10:51
14 juin 2011 à 10:51
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
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
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
15 juin 2011 à 16:21
15 juin 2011 à 16:21
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
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
14 juin 2011 à 10:41
Est-il possible de remplace "feuilleoutuveuxcoller" par un autre document excel en y indiquant
le chemin du dossier C:\.... ?
Merci
14 juin 2011 à 11:07
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 ?
14 juin 2011 à 11:15
désolé...
Merci encore
15 juin 2011 à 14:40
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