Copier/Coller

M

MINO

Guest

• 24 Février 2013

• #2

Re : Copier/Coller

hallo Fredox ,
est t'il possible de nos joindre le deux fichier , çà sera plus facile .

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 24 Février 2013

• #3

Re : Copier/Coller

ben en fait, c'est un seul fichier.
C'est un fichier que j'utilise au boulot, donc je bosse le fichier pendant 2mois a la maison, quand j'ai besoin de l'utiliser au boulot, je le copie sur ce PS.
Il faut donc que je remette a jour ma base client.

Donc je copie la sélection client dans mon premier fichier, et je le colle dans ma nouvelle version.

 

Vote positif 0 Vote négatif

M

MINO

Guest

• 24 Février 2013

• #4

Re : Copier/Coller

hallo Fredox,
essaye le code ci joint

Sub Copiage()

Sheets("Clients").Select ' ' le Feuille de depart ( copier)
Range("B2:j" & Range("B65000").End(xlUp).Row).Select
Selection.Copy
Sheets("Clients2").Select ' le Feuille de destination ( coller)
Range("B2").Select
ActiveSheet.Paste


End Sub

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 24 Février 2013

• #5

Re : Copier/Coller

Mino, merci pour ta réponse,

En fait il faudrait une macro copier, et une macro coller:
J'ai fait comme ca, mais le collage plante

Sub Copiage()

Sheets("Clients").Select ' ' le Feuille de depart ( copier)
Range("B3:j" & Range("B603").End(xlUp).Row).Select
Selection.Copy

End Sub


Sub Collage()
Sheets("Clients").Select ' le Feuille de destination ( coller)
Range("B3").Select
ActiveSheet.Paste

End Sub

Une idée ?
Merci

 

Vote positif 0 Vote négatif

M

MINO

Guest

• 24 Février 2013

• #6

Re : Copier/Coller

est ce que le collqge sera sur la meme Page ? change la nom de feuille de destination Sheets("Clients").Select

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 24 Février 2013

• #7

Re : Copier/Coller

Mino,

Ce sont deux classeurs identique (un deja rensseigner de plusieurs clients, le second, vierge, sur lequel je veux importer les clients).
Donc les deux documents ont les memes feuilles, memes plages.

Merci

 

Vote positif 0 Vote négatif

M

MINO

Guest

• 24 Février 2013

• #8

Re : Copier/Coller

hi ,
rennomer la 2eme fichier par un nom différent et telque Client1 par exemple et exécuter le code ci joint

Sub Collage()
Windows("Client1").Activate
Sheets("Clients").Select ' le Feuille de destination ( coller)
Range("B3").Select
ActiveSheet.Paste

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 24 Février 2013

• #9

Re : Copier/Coller

ha...
J'ai absolument besoin que mes deux feuilles portent le même nom (Clients), y'a pa moyen, durant l'execution de "coolage" de renomer "clients" par clients1, puis à la fin de la macro de lui remettre son nom "clients" ?

Merci

 

Vote positif 0 Vote négatif

M

MINO

Guest

• 24 Février 2013

• #10

Re : Copier/Coller

donc c'est quoi la différence entre ce deux feuille pour que Excel tu permet d'ouvrire les deux feuilles portent le même nom en meme temps?

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 24 Février 2013

• #11

Re : Copier/Coller

bonsoir,

Code:

Public tablo

Sub Bouton1() 'source
tablo = Range("B2:B602").Value
End Sub

Sub Bouton2() 'destination
Dim Ttab As Variant
On Error Resume Next
Ttab = UBound(tablo)
On Error GoTo 0
If IsEmpty(Ttab) Then
    MsgBox "Rien à copier !"
Else
    ActiveCell.Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
    Erase tablo
End If
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

M

MINO

Guest

• 24 Février 2013

• #12

Re : Copier/Coller

Bravo kjin, vraiment un EXPERT 😉

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 24 Février 2013

• #13

Re : Copier/Coller

Hello Kjin,
J'ai assayer, il ne se passe rien, j'ai raté un truc ?

Merci

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 4 Novembre 2013

• #14

Re : Copier/Coller

Merci Kjin, je viens de réessayer, ça fonctionne.

Possible de faire trois modifications:
Pour la macro 1, bien spécifier que c'est sur la feuille "Clients"


Pour la macro deux, idem, spécifier la feuilles "Clients", et le collage doit débuter en cellule A3.


C'est possible ?
Merci

 

Dernière édition: 4 Novembre 2013

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 4 Novembre 2013

• #15

Re : Copier/Coller

Une idée ?

 

Vote positif 0 Vote négatif