Copier Coller une plage sur tous les autres onglets du classeur

[sive91]

Bonjour à tous, je n'arrive pas a trouver uns macro qui fonctionne comme je le souhaite.

je dispose d'une feuille "Report" dans laquelle j'ai stocké sur la plage A1:M16 une entête, je souhaiterais que cette plage soit copiée puis collée sur l'ensemble des autres feuilles, sauf Report


je vous remercie grandement et vous souhaites une très bonne soirée
Morgan

 

[DoubleZero]

Bonjour, sive91, le Forum,

Comme ceci ?

Option Explicit
Sub Plage_dupliquer()
    Dim o As Object
    For Each o In Worksheets
        With Sheets("Report").Range("a1:m16"): .Copy o.Range("a1"): End With
    Next
End Sub

A bientôt

 

[Lone-wolf]

Bonjour Morgan , le Forum

À mettre dans le module de la feuille Report.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim derlig As Long, i As Long

    Application.ScreenUpdating = False
    derlig = Range("a" & Rows.Count).End(xlUp).Row

    For i = 2 To Sheets.Count
        Range("a1:m" & derlig).Copy Sheets(i).Range("a1")
    Next i
    Application.Goto [A1]
    Cancel = True
End Sub

 

[Lone-wolf]

Hello! Bonjour DoubleZero

 

[sive91]

Merci à tous les deux,
Voici donc mon code après quelques modifications très légère
Private Sub CommandButton1_Click()
Dim o As Object
For Each o In Worksheets
With Sheets("Entete").Range("A1:M12"): .Copy o.Range("A1"): End With
Next
End Sub

Petite question est-il possible que le copier coller respecte la largeur de mes colonnes à coller?

 

[DoubleZero]

Bonjour, sive91, Lone-wolf , le Forum,

Voici pour les colonnes :

Option Explicit
Private Sub CommandButton1_Click()
    Dim o As Object
    Application.ScreenUpdating = False
    For Each o In Worksheets
        With Sheets("Entete")
            .Range("a1:m12").Copy o.Range("a1")
            .Range("a:m").Copy
            o.Range("a:m").PasteSpecial Paste:=xlPasteColumnWidths
        End With
    Next
    Application.CutCopyMode = False
    Range("a1").Select
    Application.ScreenUpdating = True
End Sub

A bientôt

 

[sive91]

Wahou, Merci vraiment génial

 

[chris]

Bonjour à tous

A la main cela prend moins d'une minute

• Copier la plage
• Sélectionner tous les onglets en cliquant sur le nom du 1er, maintenant la touche shift tout en cliquant sur le nom du dernier onglet
• Utiliser CTRL + Clic sur le nom d'onglet pour désélectionner Report et l'onglet source de la copie
• Cliquer dans le cellule cible de l'un des onglets sélectionnés
• Entrée

Cela prend moins de temps à faire qu'à décrire

 

[sive91]

Merci Chris mais comment faire lorsque j'aurais pres de 90 feuilles ^^

 

[chris]

RE

Un clic sur le premier et un sur le dernier : qu'il y en ait 10 ou 1000, cela ne fait toujours que 2 clics...

 

[Lone-wolf]

Rebonjour à toutes

Bonjour chris

Avec ce que tu propose, à mi-chemin, je suis déjà fatigué.

 

[chris]

Bonjour

Je prends le pari : créer un module, recopier le code n'est pas plus court...
Mais, comme je l'ai dit, ma solution est plus longue à écrire et lire qu'à faire.