code vba de copie

[Marion]

Bonsoir au forum.

me revoici avec un nouveau projet.

je dois suivre des poids en relation avec des produits .
Aujourd'hui je me tape tous manuellement (la galère)

sur la feuille 'donnée' des entrées en manuel, je voudrais les copier sur la feuille titi, sachant que lorsque je fais des entrees la code titi peut être lulu ou toto il faut les copier en fonction du noms des feuilles..

les copies doivent se possitionner les une sous les autres...

Je joins un petit fichier car je ne crois pas être trés clair..

Si vous pouvez me donner encore un petit coup de pouce

Merci


A+Marion [file name=marion9.zip size=7687]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/marion9.zip[/file]

 

[Moa]

Salut Marion !

Regarde la macro et l'exemple joint :

Sub Macro1()
Dim Onglet As String
Onglet = Sheets(1).Range('C2').Value
With Sheets(Onglet)
.Range('F65536').End(xlUp).Offset(1, 0) = Sheets('DONNEE').Range('A2').Value
.Range('I65536').End(xlUp).Offset(1, 0) = Sheets('DONNEE').Range('B2').Value
.Range('H65536').End(xlUp).Offset(1, 0) = Sheets('DONNEE').Range('D2').Value
.Range('G65536').End(xlUp).Offset(1, 0) = Sheets('DONNEE').Range('E2').Value
End With
Sheets('Donnee').Range('A2:E2').ClearContents
End Sub

Il y a une chose que je n'ai pas bien saisie :

Tu demandes d'effacer à la fin de la macro de A2à E300 !

Celà voudrait-il dire que les données à recopier en une seule fois peuvent prendre plus d'une ligne ?

Dans ce second cas, cela changerait la macro !

@ +++


Moa [file name=marion9_20050509205248.zip size=10501]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/marion9_20050509205248.zip[/file]

Message édité par: Moa, à: 09/05/2005 20:54

 

[robby]

Bonjoru Marion
essaye ca.

 

[robby]

zut j'ai pas reussi a joindre le fichier.

 

[robby]

je suis pas doué.
bon ba voila le code:

Sub copiercollerinfos()
Dim NumeroLigne
Dim NomFeuille

Range('A65536').End(xlUp).Select
NumeroLigne = ActiveCell.Row
NomFeuille = Range('C' & NumeroLigne).Value
var1 = Range('A' & NumeroLigne).Value
var2 = Range('B' & NumeroLigne).Value
var3 = Range('D' & NumeroLigne).Value
var4 = Range('E' & NumeroLigne).Value

Sheets(NomFeuille).Activate
Range('A65536').End(xlUp).Select
NumeroLigne = ActiveCell.Row
NumeroLigne = NumeroLigne + 1
Range('F' & NumeroLigne).Value = var1
Range('I' & NumeroLigne).Value = var2
Range('H' & NumeroLigne).Value = var3
Range('G' & NumeroLigne).Value = var3

End Sub

 

[ChTi160]

Salut Marion
bonsoir le fil
bonsoir le Forum
Marion avant que je ne regarde ton fichier du jour lol
as tu regardé le fichier que je t'ai posté Hier ?
si oui tu devrais clore le fil

Ce lien n'existe plus

c'est mieux pour ce qui attendent une réponse
Merci D'avance
Amicalement
Jean Marie

 

[Marion]

Merci a tous les deux.

Moa il n'y a une seul ligne mais la colonne d a plusieurs lignes.

mais c'est OK je pense pouvoir faire quelque chose maintenant

Merci beaucoup

Gros bisous

A+Marion

 

[Marion]

Excuse moi Jean Marie je suis désolée pour ce manque de correction.

Jai regarde ton fichier, mais il avait un petit problème lorsque je il n'y avait qu'un code en colonne B ça ne fonctionnait pas


Exuse moi une nouvelle fois.

Gros bisous a toi


A+Marion