creer un recapitulatif automatique

[Marc]

Bonjour,

Voila je suis a la recherche dune macro qui me permetrai a chaque enregistrement d'archiver le nom de chaque commande avec la date.
J'explique:
Jai realiser une commande avec tout plein de macros .
A chaque enregistrement dune nouvelle commande jaimerai quil me crée dans une feuille du meme classeur que ma commade de depart un recapitulatif de toutes les commandes creer.
Le hic cest que je narrive pas a les mettre les uns apres les autres.
en a2 jaurai la premiere commande enregistré ensuite quand jenregistre ma deuxieme commande le nom vients sinscrire dans la cellule a3 et ainsi de suite.

Merci davance

 

[marc]

Personne pour m'aider merci

 

[JC de Lorient]

Salut Marc, le forum

on ne sé pas combien de données que tu veux récupérer
je te joins un code qui permet de récupérer 64 cellules et de les stockées sur une feuille ( merci à un des forummeurs navré je sé plus qui !!

en fait je récupére de : fiche de paye pour les envoyées vers récap

en espérant que ça t'aide

JC


Sub MultiCellCopy()
Dim DataSource(64) As Variant
Dim LastLine As Long
Dim Item As Variant
Dim i As Byte, y As Byte

LastLine = Sheets('Récap').Range('A65536').End(xlUp).Row + 1


For Each Item In Array('i9', 'e22', 'f22', 'e24', 'e25', 'c16', 'g4', 'g33', 'f35', 'f37', _
'f39', 'f47', 'f49', 'f53', 'f55', 'f57', 'f59', 'f61', 'j35', 'j37', _
'j39', 'j41', 'j43', 'j45', 'j47', 'j49', 'j51', 'j53', 'j55', 'j57', _
'j59', 'k63', 'i65', 'k65', 'g69', 'f71', 'f73', 'e75', 'f75', 'g77', _
'i65', 'i66', 'i67', 'i68', 'k66', 'k67', 'k68', 'e80', 'f80', 'i80', 'k80', _
'e23', 'b27', 'g27', 'b28', 'g28', 'b29', 'g29', 'b30', 'g30', 'b31', 'g31', 'c17', 'c15')

DataSource(i) = Sheets('fiche_paye').Range(Item)
i = i + 1
Next

For y = 1 To 64
With Sheets('Récap')
.Cells(LastLine, y) = DataSource(y - 1)
End With
Next

End Sub

 

[marc]

Salut jc

En fait dans mon classeur jai 3 feuille une feuille commande, une feuille fournisseurs et une feuille recapitulatif.
mon classeur de depart lui me sert a creer des commades individuelles donc je fait une copie de ma feuille commande que je recolle dans un autre classeur et que jenregistre.
Le truc cest que dans mon classeur de depart a chaque fois que je clic sur enregistrer je veux quil minscrive dans ma feuille recapitulatif chaque commande enregistré ( juste le n° la date et le fournisseur) pour my retrouvé plus tard et savoir combien de commande jai passé la date de la commande et le fournisseur concerné.

Merci

Marc

 

[ChTi160]

Salut'marc et JC de lorient'
peux tu mettre un exemple de ce que tu désires
un classeur Zip de moins de 50K
qui comprend deux feuilles celle de Départ feuille1 avec quelques lignes de données bidons et la feuille 2 avec ce que tu désires obtenir
tiens nous au courant

 

[ChTi160]

re
en pièce jointe un exemple qui devra être adapté
tiens nous au courant [file name=TransfertVers Feuil2_20050316211752.zip size=11021]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TransfertVers Feuil2_20050316211752.zip[/file]

 

[marco]

Bonsoir chti et merci

Je te join mon fichier exemple jexplisue dedans ce que je veux
J'ai deja bien avancé le code si tu peux regardé je le trouve un peu long si tu vois des erreurs.

Merci d'avance [file name=TEST COMMANDE_20050316223232.zip size=28564]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TEST COMMANDE_20050316223232.zip[/file]

 

[ChTi160]

Salut'marco'
en pièce jointe ma proposition
tiens nous au courant [file name=TEST COMMANDEV1_20050321171243.zip size=34664]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TEST COMMANDEV1_20050321171243.zip[/file]