Bouton faisant même action sur tous les onglets
Bonjour à tous
Je n'arrive pas à faire fonction un bouton avec une macro affectée sur tous mes onglets.
Voilà j'ai créé un onglet "SST", il y a plusieurs cellules que j'injecte vers un onglet "SYNTHESE" via un bouton.
Lorsque je copie un nouvel onglet exemple "MSST" mon bouton ne marche pas, il copie les valeurs de l'onglet "SST"
Pour faire fonctionner ce bouton, je suis obligé de refaire ma macro avec cet onglet.
Une idée pour ne pas refaire plusieurs macros ?
Voici mon code :
Sub Copie_Synthese()
Range("A1").Select
Selection.Copy
Sheets("Synthèse").Select
Range("B10:D10").Select
ActiveSheet.Paste
Sheets("SST").Select
Range("A3:C3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Synthèse").Select
Range("B8:D8").Select
ActiveSheet.Paste
Sheets("SST").Select
Range("F3:H3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Synthèse").Select
Range("J11:L11").Select
ActiveSheet.Paste
Sheets("SST").Select
Range("N3:P3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Synthèse").Select
Range("J12:L12").Select
ActiveSheet.Paste
Range("F11").Select
End Sub
Bonjour un essai comme cela :
Sub Copie_Synthese()
With Sheets("Synthèse")
[A1].Copy .[B10:D10]
[A3:C3].Copy .[B8:D8]
[F3:H3].Copy .[J11:L11]
[N3:P3].Copy .[J12:L12]
End With
End Suba mettre dans un module et attribuer à un bouton
fred
Super cool
merci ça marche comme je le veux