Recopier et incrémenter un tableau excel

jeldwen Messages postés 156 Statut Membre -  
jeldwen Messages postés 156 Statut Membre -
Bonjour,

J'ai un document excel, c'est un tableau que que l'on remplit. j'aurais besoin que ce tableau réapparaisse sur mes nouvelles feuilles. Faire copier coller à chaque fois c'est un peu lourd.

Sur ce taleau il ya une case qui change sur chaque feuille c'est un repère qui va de type A1, A2, A3, ...
comme ça de 1 à 99 et de A à Z.
Si quelqu'un peu me dire si une on peux faire une macro pour ça.

Merci.
Configuration: Windows XP
Internet Explorer 6.0

2 réponses

  1. salshita Messages postés 10 Statut Membre
     
    Tu selectionnes ton tableau ensuite tu vas dans crées une nouvelle macro dans outils-macro-nouvelle macro (tu choisisis ton raccourci). Ensuite tu fais Copier puis tu ouvres une nouvelle feuille et tu colles. Et là tu retournes dans outils-Macro et tu cliques sur arreter l'enregistrement. et tu testes sur une nouvelle feuille, normalement c bon
    0
    1. jeldwen Messages postés 156 Statut Membre 16
       
      Merci beaucoup salshita

      j'arrive a recopier le tableau.
      Le problème c'est que j'aimerai qu'une des case s'incrément de 1 sur chaque nouvelle feuille.
      c'est possible?
      0
  2. jeldwen Messages postés 156 Statut Membre 16
     
    C'est bon j'ai trouvé la solution!!!!!!!

    Si ça peux aider quelqu'un :

    Sub Macro2()
    '
    ' Macro2 Macro
    ' Macro enregistrée le 02/07/2007 par BEAUMONT Tony
    '

    '
    num = 1
    x = 1
    txt = InputBox("entrez une lettre.")

    Do

    'copie de la feuille

    Range("A1:K61").Select
    Range("K61").Activate
    Selection.Copy
    Sheets.Add
    Sheets("Feuil" & x).Select
    ActiveSheet.Paste

    ActiveWindow.View = xlPageBreakPreview
    Application.CutCopyMode = False
    ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
    ActiveWindow.SmallScroll Down:=-3

    'sélection de la case et incrémantation

    Range("J1").Select
    num = Right(num, 2)
    txt = Left(txt, 1)
    num1 = num + 1

    num = num1

    Range("J1").Value = txt & num
    x = x + 1
    'encore = InputBox("encore une autre feuille?")

    Loop Until num = 99
    'encore = o

    End Sub

    voila il faut bien faire attention a parti de feuil1.
    0