copier coller

[henri]

Bonjour a tous, je travaille avec excel XP sous window 98.
j'ai réalise un fichier avec 2 feuilles nommé une commande du jour, l'autre base de donnée. Sur ma feuille commande du jour les cellules A10😛50 sont utilisée pour saisir ma commande. Je copie ensuite la Valeur des lignes utilisée(de la 10 à la derniere lignes contenant des données) dans la feuille base de donnée.Je colle dans la feuille base de donnée a la suite chaque jour de commande me permettant ensuite de visualise grace aux filtres toutes les statistiques.peu t'on réalisé une macro pour automatisé ce copier coller de la valeur ?????

Merci de votre attention

A plus tard

 

[danielgre]

oui, bien sur, les macros sont la pour automatiser les process recurrents.
Soit tu enregistre une macro de tes manip, ensuite tu cree un bouton auquel tu affecte ta macro. Soit tu ecris un script vba...

 

[henri]

oui , j'ai bien fait un essai d'enregitrer une macro mais j'ai un probleme pour que le coller se fasse à la suite et non toujours au meme endroi.

merci de ton attention

 

[danielgre]

alors, il faut que tu passe par un vba script. En placant dans une cellule fixe un index de deplacement.

 

[henri]

cela depasse mes competences.

si tu peus m'en dire plus....

merci

 

[danielgre]

vba = visual badic for application
disponible sur tous les produits office:excel, powerpoint, word...
c'est une sorte de basic (langage de programmation), extremenet simple, legerement oriente objet.
Si toute fois tu attache ton fichier a ton message, assez tot avant que je parte, je pourrais te faire ce script...

 

[henri]

voici le fichier

merci encore

 

[danielgre]

attache une solution...
a toi d'aller decortiquer le script vba pour modifier comme tu le souhaite et l'adapter a ton vrai besoin

 

[danielgre]

Il n'y a rien d'attache a ton message !!!???

 

[henri]

je n'arrive pas a joindre le fichier

puis je te l'envoyer directement sur ta boite au lettre voici la mienne

hthorent@anecoop-france.com

merci

 

[danielgre]

base toi sur la solution que j'ai attache 2 messages plus haut

 

[henri]

si tu as attaché quelque chose au message cela n'a pas fonctionner.

merci

 

[danielgre]

bien sur que si, regarde le fichier est note en bleu avec le jolie nom "copier_1.xls"

 

[henri]

ok merci pour ton aide
je me mets au boulot pour l'adapter

salut

 

[Zon]

Bonjour à tous les deux et au forum,

Voilà le code qui te permet de copier de la ligne 10 à la dernière ligne remplie vers la feuille base de donnée automatiser. Il suffit de l'associer à un bouton pour la lancer quan tu as fini ta saisie...


Sub copie()
Dim L, i, k As Integer
dim ws1,ws2 as worksheet
Set ws1 = Sheets("jour") 'Définition d'une feuille
Set ws2 = Sheets("base de donnée")
L = ws1.Range("A65536").End(xlUp).Row ' on récupère la dernière ligne de la feuille jour
k = ws2.Range("A65536").End(xlUp).Row
For i = 10 To L
ws1.Rows(i).Copy Destination:=ws2.Rows(k + 1)'on copie ligne par ligne
k = k + 1 'on incrémente k pour pouvoir passer à la ligne suivante dans base de donnée
Next i
End Sub


Je n'ai renvoyé ton fichier avec ma macro, car ton fichier comporte trop de liaisons avec d'autres classeurs....


A++++