Copie de 15 onglet dans un onglet final

Re : Copie de 15 onglet dans un onglet final

Bonjour tat, le forum,

voici un extrait de code sur lequel je travaille actuellement :

Sub EcritureModule()
Application.ScreenUpdating = False

'efface feuille "Module"
Dim Feuille As Worksheet
Application.DisplayAlerts = False
For Each Feuille In Worksheets
If (Feuille.Name = "Module") Then
Feuille.Delete
End If
Next
Application.DisplayAlerts = True


Dim ws As Worksheet
Dim wsdesti As Worksheet
Dim plage As Range
Dim derligne As Long

Sheets.Add.Name = "Module"
Set wsdesti = Worksheets("Module")

For Each ws In Worksheets
If ws.Name <> "Module" And ws.Name <> "Matrice" Then
ws.Select
Range("AR1:AR120").Copy
Sheets("Module").Select
CelLibre = Cells(65535, 1).End(xlUp)(2).Row + 1
CelluleDeti = "A" & CelLibre
Range(CelluleDeti).Select
ActiveSheet.Paste
End If
Next ws

'positionne le focus
Sheets("Matrice").Select
Range("a1").Select
Application.ScreenUpdating = True

End Sub

Cliquez pour agrandir...

Après à toi de l'adapter.

En espèrant que ça te soit utile. 🙂

Re : Copie de 15 onglet dans un onglet final

ca me parait interesant, mais je suis pas une pro du vba, j'ai juqsuqe la surtout travaille avec des macros.
pourrais tu me dire un peu ce que chaque "paragraphe fait", ca me permettra d'evoluer

mais je vais de suite l'essayé pour voir ce que ca donne merci
😛

Re : Copie de 15 onglet dans un onglet final

bonjour tat
salut euro.speed

voila un code valable si tu n'as pas d'autre onglet que ceux a recapituler


ps: il peut etre a adapter pour un range <> des colonnes A et B a recopier

Re : Copie de 15 onglet dans un onglet final

Ce code est en cours de construction il y a des choses qui trainnent et qui ne servent à rien, alors attention 🙄

Application.ScreenUpdating = False

Cliquez pour agrandir...

évite de faire clignoter ton écran au chargement de chaque onglet, à la fin remettre Application.ScreenUpdating = True

'efface feuille "Module"
Dim Feuille As Worksheet
Application.DisplayAlerts = False
For Each Feuille In Worksheets
If (Feuille.Name = "Module") Then
Feuille.Delete
End If
Next
Application.DisplayAlerts = True

Cliquez pour agrandir...

J'efface l'onglet "Module" dans lequel je veux réecrire à la suite le contenu des colonnes "AR" de mon classeur.

Application.DisplayAlerts = ?

Cliquez pour agrandir...

empêche la fenêtre de confirmation de suppression de la feuille "Module"

For Each ws In Worksheets
If ws.For Each ws In Worksheets
If ws.Name <> "Module" And ws.Name <> "Matrice" Then
ws.Select
Range("AR1:AR120").Copy
Sheets("Module").Select
CelLibre = Cells(65535, 1).End(xlUp)(2).Row + 1
CelluleDeti = "A" & CelLibre
Range(CelluleDeti).Select
ActiveSheet.Paste
End If
Next ws

Cliquez pour agrandir...

C'est ce qui t'intéresse vraiment je pense.
Pour toutes les feuilles qui ne s'appellent pas "Module" And "Matrice" Then

je récupère la plage ("AR1:AR120") que je copie
je sélectionne la feuille "Module"
je récupère le numéro de ligne de la dernière cellule libre de "module", j'ajoute une cellule pour laisser de l'espace.
et enfin je colle ma sélection

puis [Next ws] me renvoit à la prochaine feuille et ainsi de suite jusqu'à la dernière.

J'utilise cette méthode car j'ai plus de 100 feuilles à copier/coller.

Si tu n'en as que 15, ce n'est peut être pas la bonne méthode ?

😉

Re : Copie de 15 onglet dans un onglet final

Salut pierrejean,

Je n'avais pas vu ton message.

C'est bien, tu complètes justement ce que je disais concernant ma méthode !

Si tu n'en as que 15, ce n'est peut être pas la bonne méthode ?

Cliquez pour agrandir...

😉

Re : Copie de 15 onglet dans un onglet final

Merci,
je vais mettre en pratique🙂