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

  • Initiateur de la discussion Initiateur de la discussion lalalie3
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lalalie3

XLDnaute Nouveau
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.
 
Dernière édition:
Re : Erreur d'execution 28 . Espace pile insuffisant

Bonsoir,

essaye ainsi :
Code:
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
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
1 K
Retour