Transfert multiple en VBA

[Asperule]

Bonjour à toutes et à tous.

J'ai un fichier composé de deux feuilles. ('Truc' et 'Trans')

Sur la feuille 'Truc': J'ai une case (de caractère)
à transferer sur la feuille 'Trans', (à l'interieur des Colones nomées 'Transfert').

Je recherche une formule VBA pouvant opérer le transfert en plaçant automatiquement le Truc à transferer (à la suite) dans chaques colonnes només 'Transfert'

Merci d'avance,
Asperule. [file name=transfert_20051221084728.zip size=5026]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/transfert_20051221084728.zip[/file]

 

[salim]

Bonjour

Asperule ton fichier est au format MACOSX donc pour la plupart d'entre nous impossible de l'ouvrir a moins que c'est une façon détourné de dire à bas les Windoziens vive les MacOziens

salim

 

[Charly2]

Bonjour Asperule et Salim

Salim, il suffit d'ajouter '.xls' au fichier transmis et tu peux l'ouvrir

Asperule, regarde le fichier joint, il ne transfère pas les données à un temps T, mais à chaque changement ou, si tu appuies sur le bouton approprié de la feuille, sur ordre.

Tiens nous au courant

Amicalement
Charly [file name=transfert_asperule.zip size=18499]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/transfert_asperule.zip[/file]

 

[Asperule]

Bonjour Salim et Charly

Tout d'abord excusez moi pour le retard de la réponse au message.

Ensuite, je n'ai rien contre les Windowziens, salim. Mais, il vrai que la programation Visual Basic est plus aisée sur PC.

Enfin, je n'arrive pas à faire fonctionner la macro.
La première partie :'Public WithButton As Boolean' ne fonctionne pas.
Lorsque j'active la suite, cela fonctonne jusqu'à la ligne: 'ActiveSheet.Shapes('Bouton 1').Select' ,
l'écran marque 'erreur 32809'. :S

Encore merci de porter un interêt aux utilisateurs d'excel.
À bientôt!
Asperule.

P.S. Je vous renvoie le fichier pour voire si d'autres utilisateurs ont le même problème et s'il y a solution, pour le résoudre.

Merci [file name=transfert_20051223161431.zip size=18275]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/transfert_20051223161431.zip[/file]

 

[Charly2]

Bonjour Asperule et Salim,

Bon tant pis ! Le petit plus que je voulais te proposer ne passe pas chez toi

Je te renvoie le fichier qui ne fonctionne que par la procédure événementielle Change de la feuille 'Truc'

Amicalement
Charly [file name=transfert_asperule_20051223162924.zip size=12976]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/transfert_asperule_20051223162924.zip[/file]

 

[Asperule]

Bonsoir Forum, Bonsoir Charly.

Je ne comprend pas, ça ne marche pas. :ermm:

Ce qui est bizzard, c'est que, les fichiers que tu m'a joint, Charly, sont composés de dossiers dont un se nomme ' __MACOSX '.
Pourquoi?
D'habitude je n'ai pas cela.

Mais merci quand même de prêter tant d'attention à ma quête!

Salutation,
Asperule.

 

[Charly2]

Re,

J'avoue ne pas comprendre non plus car chez moi, il n'y a que le fichier '.xls', et de plus, les 2 propositions fonctionnent correctement

Je réessais pour l'envoi...

Amicalement
Charly [file name=Asperule_transfertV2.zip size=12880]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Asperule_transfertV2.zip[/file]