Besoin d'aide pour créer une macro

Fermé
Marco400 - 30 juin 2010 à 20:17
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 1 juil. 2010 à 01:09
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
A voir également:

3 réponses

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 704
30 juin 2010 à 21:21
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.
0
Salut,

voici le lien, j'espère que c'est assez précis

http://www.cijoint.fr/cjlink.php?file=cj201006/cijBiufClr.xls
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 704
30 juin 2010 à 22:40
Bonsoir, je regarderais demain car le serveur est hors service.
0
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 949
Modifié par Mytå le 1/07/2010 à 01:11
Salut le forum

Marco, sur la base de ton fichier

Le code de la macro
Sub 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)]
0