Besoin d'aide pour créer une macro
Marco400
-
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je cherche comment faire une macro assez simple. J'ai un tableau dynamique donc a chaque jour les données sont différentes. Je veux copier ces données dans un tableaux pour qu'à chaque fois que je copie les données ca change de colonne automatiquement
Ex. je copie dans la colonne B une série de données et je les recopie dans un autre tableau ... dans ce tableau les données apparaissent sous la colonne B, je veux créer une macro que je fais cliquer sur le bouton et a chaque fois les données seront copier à la prochaine colonne soit C et ainsi de suite D,E,F etc ...
Merci encore
Je cherche comment faire une macro assez simple. J'ai un tableau dynamique donc a chaque jour les données sont différentes. Je veux copier ces données dans un tableaux pour qu'à chaque fois que je copie les données ca change de colonne automatiquement
Ex. je copie dans la colonne B une série de données et je les recopie dans un autre tableau ... dans ce tableau les données apparaissent sous la colonne B, je veux créer une macro que je fais cliquer sur le bouton et a chaque fois les données seront copier à la prochaine colonne soit C et ainsi de suite D,E,F etc ...
Merci encore
3 réponses
-
bonjour
Ton explication n'est pas suffisamment limpide pour te fournir une macro :
Si tu pouvais nous mettre un exemple de classeur, sans données identifiables et privées, mais avec la structure de tes données sur http://www.cijoint.fr/ puis nous mettre le lien généré ici ce serait plus facile. -
Salut,
voici le lien, j'espère que c'est assez précis
http://www.cijoint.fr/cjlink.php?file=cj201006/cijBiufClr.xls -
Salut le forum
Marco, sur la base de ton fichier
Le code de la macroSub Copy_Next_Column() ' ' Macro par Mytå le 2010-06-30 pour le Forum CCM ' If Range("IV5").End(1).Column < 8 Then Range("F5:F" & Range("F20").End(3).Row).Cut Cells(5, 8) Else Range("F5:F" & Range("F20").End(3).Row).Cut _ Cells(5, Range("IV5").End(1).Column + 1) End If End Sub
Mytå
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]