Besoin d'aide pour créer une macro

Marco400 -  
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

3 réponses

  1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    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
  2. Marco400
     
    Salut,

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

    http://www.cijoint.fr/cjlink.php?file=cj201006/cijBiufClr.xls
    0
    1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
       
      Bonsoir, je regarderais demain car le serveur est hors service.
      0
  3. Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   958
     
    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