Comment simplifier des macros

[piga25]

Bonjour le forum,

J'ai ces macros qui me permettent de copier une ligne masquée de chaque feuille puis de l'insérer dans ces mêmes feuilles et cela en ne travaillant que sur une feuille (Intervenant).
Mon souci est que lorsque je déclenche ces macros, je vois chaque feuille se renseigner . J'aimerai toujours rester sur la première feuille sans voir toute la procédure se faire.

Je me demande s'il n'y aurait pas un moyen pour éviter cela et parla même occasion de simplifier cette procédure

Sub NouveauInteervenant()

Application.ScreenUpdating = False
Macro1
Macro2
Macro4
Macro3
Application.ScreenUpdating = True

End Sub
'---------------------------------------------------
Sub Macro1()
'
' Macro1 Macro
'

'
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    Rows("13:15").EntireRow.Hidden = False
    Rows("14:14").Copy
    Range("InsertInter").Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
    Rows("14:14").EntireRow.Hidden = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.ScreenUpdating = True
End Sub
'------------------------------------------------
Sub Macro2()
'
' Macro2 Macro
'

'
    Application.ScreenUpdating = False
    Sheets("Gestion intervenants").Select
    ActiveSheet.Unprotect
    Rows("13:15").Select
    Range("D13").Activate
    Selection.EntireRow.Hidden = False
    Rows("14:14").Copy
    Range("InsertGestInter").Insert Shift:=xlDown
    Application.CutCopyMode = False
    Rows("14:14").EntireRow.Hidden = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.ScreenUpdating = True
    
End Sub
' ---------------------------------------------------
Sub Macro3()
'
' Macro3 Macro
'

'
    Application.ScreenUpdating = False
    Sheets("CR Financier").Select
    ActiveSheet.Unprotect
    Rows("4:6").EntireRow.Hidden = False
    Rows("5:5").Copy
    Range("InsertCR").Insert Shift:=xlDown
    Application.CutCopyMode = False
    Rows("5:5").EntireRow.Hidden = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Sheets("Intervenants").Select
    Application.ScreenUpdating = True
    
    End Sub
'------------------------------------------------------
Sub Macro4()
'
' Macro4 Macro
'

'
    Application.ScreenUpdating = False
    Sheets("Planning").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("H6").Select
    ActiveSheet.Unprotect
    Rows("4:6").EntireRow.Hidden = False
    Rows("5:5").Copy
    Range("InsertPlan").Insert Shift:=xlDown
    Application.CutCopyMode = False
    Rows("5:5").EntireRow.Hidden = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.ScreenUpdating = True
    
End Sub

D'avance merci.
A+

 

[ROGER2327]

Re : Comment simplifier des macros

Bonjour piga25

Sub NouveauInteervenant()
   Application.ScreenUpdating = False
   Macro1
   Macro2
   Macro4
   Macro3
   Application.ScreenUpdating = True
End Sub
'---------------------------------------------------
Sub Macro1()
   ActiveSheet.Unprotect
   Rows("13:15").EntireRow.Hidden = False
   Rows("14:14").Copy
   Range("InsertInter").Select
   Selection.Insert Shift:=xlDown
   Application.CutCopyMode = False
   Rows("14:14").EntireRow.Hidden = True
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
'------------------------------------------------
Sub Macro2()
   Sheets("Gestion intervenants").Select
   ActiveSheet.Unprotect
   Rows("13:15").Select
   Range("D13").Activate
   Selection.EntireRow.Hidden = False
   Rows("14:14").Copy
   Range("InsertGestInter").Insert Shift:=xlDown
   Application.CutCopyMode = False
   Rows("14:14").EntireRow.Hidden = True
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
' ---------------------------------------------------
Sub Macro3()
   Sheets("CR Financier").Select
   ActiveSheet.Unprotect
   Rows("4:6").EntireRow.Hidden = False
   Rows("5:5").Copy
   Range("InsertCR").Insert Shift:=xlDown
   Application.CutCopyMode = False
   Rows("5:5").EntireRow.Hidden = True
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
   Sheets("Intervenants").Select
End Sub
'------------------------------------------------------
Sub Macro4()
   Sheets("Planning").Select
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
   Range("H6").Select
   ActiveSheet.Unprotect
   Rows("4:6").EntireRow.Hidden = False
   Rows("5:5").Copy
   Range("InsertPlan").Insert Shift:=xlDown
   Application.CutCopyMode = False
   Rows("5:5").EntireRow.Hidden = True
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Ça devrait déjà arranger un peu les choses...
(Et si vous vouliez présenter vos codes comme ci-dessus, ça nous faciliterait la lecture !)​

Bon courage !
ROGER2327

 

[piga25]

Re : Comment simplifier des macros

Bonjour ROGER2327

Ça devrait déjà arranger un peu les choses...
(Et si vous vouliez présenter vos codes comme ci-dessus, ça nous faciliterait la lecture !)

Oui en effet cela arrange bien les choses.
Je vous ai écouté et bien lu - Voir post 1

Merci@+