Même macro sur toutes les feuilles

[Arcangeli]

Bonjour le forum,
J'ai une petite macro qui fonctionne très bien sur la feuille 1 et j'aimerais pouvoir en faire de même sur les suivantes, sans avoir à en mettre une sur chaque feuille.
Si c'est possible, ça me rendrais vraiment service.
Merci de jetter un oeil sur la pièce jointe.

 

[Banzai64]

Re : Même macro sur toutes les feuilles

Bonjour

Ta macro tu la copies seulement dans ThisWorkBook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$E$5" Then
Rows(Target.Row).Insert
Range("$a$5").Select
End If

End Sub

Bien sur tu la supprimes de la feuille

 

[coco_lapin]

Re : Même macro sur toutes les feuilles

Bonjour Arcangeli et le forum,

Cette macro est une Private Sub Worksheet_Change(ByVal Target As Range) qui est actionnée sur un événement de cet onglet.

Si tu veux garder l'événement soit tu recopies la macro manuellement ou bien de façon automatique (pour l'automatisme tu dois avoir la solution dans les WIKI de MichelXLD)

 

[Arcangeli]

Re : Même macro sur toutes les feuilles

Merci Banzai 64
Ca fonctionne impecable.
Je suis vraiment nul, j'avais simplement oublié de retirer la macro de la feuille 1.
Bravo

 

[coco_lapin]

Re : Même macro sur toutes les feuilles

Merci Banzai 64 pour la solution. Je retiens.