Copier/Coller

[Fredox]

Bonjour,

J'utilise une classeur pour faire des devis: une feuille devis, une feuille listes et coordonnées clients.

Je voudrais creer 2 boutons de mise a jours clients:
- Ancien formulaire, je clic sur le 1er bouton, la macro s'execute -> copie la zone B2:J602 de la feuille clients dans le presse papier

Je vais dans mon nouveau formulaire, je clic sur le deuxieme bouton --> colle le presse papier dans la feuille clients, meme zone de selection.

Quelqu'un saurait m'aider svp ?
Merci

 

[MINO]

Re : Copier/Coller

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

 

[Fredox]

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.

 

[MINO]

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

 

[Fredox]

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

 

[MINO]

Re : Copier/Coller

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

 

[Fredox]

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

 

[MINO]

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

 

[Fredox]

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

 

[MINO]

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?

 

[kjin]

Re : Copier/Coller

bonsoir,

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

 

[MINO]

Re : Copier/Coller

Bravo kjin, vraiment un EXPERT 😉

 

[Fredox]

Re : Copier/Coller

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

Merci

 

[Fredox]

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

 

[Fredox]

Re : Copier/Coller

Une idée ?