Rebonjour,
J'ai l'erreur ci-dessous lorsque j’appuie sur le bouton : CommandButton_Delete
Message d'erreur :
Action lorsque je clic sur le bouton :
Private Sub CommandButton_Delete_Click()
Application.ScreenUpdating = False
Call Declaration.Macro
Call Securite_Generale.Macro_Deverrouillage
Call Form_Mouvement.Macro_SupprSaisi
Call Securite_Generale.Macro_Verrouillage
Application.ScreenUpdating = True
End Sub
Sub Macro_SupprSaisi()
Application.DisplayAlerts = False 'blocage des alertes
Sheets(feuilModelMouv).Visible = True 'Dupliquer feuil model "formulaire mouv"
Sheets(feuilModelMouv).Copy Before:=Sheets(4)
Sheets(feuilModelMouv).Visible = False
Sheets(feuilMouv).Delete 'Suppression de la feuil "formulaire mouv"
Sheets("Model_Formulaire mouvement (2)").Name = feuilMouv 'Remane de la feuil dupliquer en "formulaire mouv"
Application.DisplayAlerts = True 'deblocage des alertes
End Sub
Lorsque je supprime :
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Le problème disparaît mais je veux les garder !
Est-ce que quelqu'un a une solution pour moi, s'il vous plait !
Merci par avance ! 😉