Copier/coller deux tableaux de feuilles différentes sur une

Bonjour, j'ai fait des recherches mais je ne trouve pas ma réponse ou alors ce n'est pas clair pour moi. J'ai créé un code pour copier/coller un 1er tableau d'une feuille 1 sur autre une feuille qui sera créer et nommé par la feuille 1. Mais je souhaite également copier/coller sur la feuille créer un autre tableau qui est sur une feuille 2. Comment je peux ajouter les codes de copier/coller le tableau de la feuille 2 ?

Merci de votre aide,

Voici mon 1er code pour copier/coller le 1er tableau et créer la feuille :

ActiveWindow.SmallScroll Down:=-15

Range("I1:P33").Select

Application.CutCopyMode = False

Selection.Copy

'Ouverture feuille récap DU MOIS

Sheets.Add(Sheets(Sheets.Count)).Name = Range("I2")

'Coller les cellules

Range("A1").Select

ActiveSheet.Paste

Columns("B:B").EntireColumn.AutoFit

Bonjour,

voici un exemple,

Sub test()
Dim sh1, sh2
Set sh1 = ActiveSheet
Sheets.Add(after:=Sheets(Sheets.Count)).Name = Range("I2")
Set sh2 = ActiveSheet
sh1.Range("I1:P33").Copy sh2.Range("A1") 'copie du premier tableau
sh1.Range("I35:P40").Copy sh2.Range("A35") 'copie du deuxieme tableau
sh2.Columns("B:B").EntireColumn.AutoFit
End Sub

Merci mais j'ai cette ligne qui beug :

Sheets.Add(after:=Sheets(Sheets.Count)).Name = Range("I2")

Je ne la comprends pas bien, du coup je n'arrive pas à la corriger...

Tu peux m'aider ?

Merci encore

Merci mais j'ai cette ligne qui beug :

Sheets.Add(after:=Sheets(Sheets.Count)).Name = Range("I2")

Je ne la comprends pas bien, du coup je n'arrive pas à la corriger...

cette commande ajoute un nouvel onglet à droite des onglets déjà présent dans le fichier

et renomme cette feuille du nom de la valeur qu'il y a en cellule I2

il faudrait surement spécifier a feuille, = sh1.Range("I2")

Sub test()
Dim sh1, sh2
Set sh1 = ActiveSheet
Sheets.Add(after:=Sheets(Sheets.Count)).Name = sh1.Range("I2")
Set sh2 = ActiveSheet
sh1.Range("I1:P33").Copy sh2.Range("A1") 'copie du premier tableau
sh1.Range("I35:P40").Copy sh2.Range("A35") 'copie du deuxieme tableau
sh2.Columns("B:B").EntireColumn.AutoFit
End Sub

Merci même en changeant le nom de ma feuille, la macro s'arrête à cette variable...

Merci même en changeant le nom de ma feuille, la macro s'arrête à cette variable...

pouvez-vous joindre votre fichier ?

Rechercher des sujets similaires à "copier coller deux tableaux feuilles differentes"