Recopier et incrémenter un tableau excel
jeldwen
Messages postés
156
Statut
Membre
-
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.
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.
A voir également:
- Recopier et incrémenter un tableau excel
- Trier un tableau excel - Guide
- Tableau word - Guide
- Word et excel gratuit - Guide
- Imprimer un tableau excel - Guide
- Liste déroulante excel - Guide
2 réponses
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
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.
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.
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?