Erreur d'execution 28 . Espace pile insuffisant [resolu]

[lalalie3]

Bonjour,
j'ai un message qui s'affiche lors de l'execution d'une macro :
Erreur d'execution 28 . Espace pile insuffisant

Si je clique sur le boutn Fin la procédure s'effectue.
Ci dessous le code correspondant :

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column = 10 Then
Call MFC_dispo
End If

If ActiveCell.Column = 7 Then
Call cherche_caissier(Target)
End If

End Sub

Sub MFC_dispo()
' OK MFC_Dispo Macro = OK

If ActiveCell.Value = "Repos" Or ActiveCell.Value = " Maladie" Or ActiveCell.Value = "Congés" Then
Cells(ActiveCell.Row, 11) = "Indisponible"

End If

Je cherche l'erreur mais je ne la trouve pas.
Pourriez vous m'aider ?

Au plaisir de vous lire.

 

[Pierrot93]

Re : Erreur d'execution 28 . Espace pile insuffisant

Bonsoir,

essaye ainsi :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If ActiveCell.Column = 10 Then
Call MFC_dispo
End If

If ActiveCell.Column = 7 Then
Call cherche_caissier(Target)
End If
Application.EnableEvents = True
End Sub

bonne soirée
@+

 

[lalalie3]

Re : Erreur d'execution 28 . Espace pile insuffisant

Ca Marche !!!!
un ENORME Merci