Läuft nur korrekt bei Debug Einzelschritt

Private Sub TB1VolPerPat33_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim Message1 As Integer
Dim Message2 As Integer
'pour éviter que les modifications réalisées par code ne se transmettent en boucle
'seul les changements réalisés par l'utilisateur sont retenu
If Not bolAutoChange Then
bolAutoChange = True
'pour informer l'utilisateur que la valeur utilisée est issue des normes de production de la directive nitrate et qu'il faut être prudent avec les changements
Message1 = MsgBox _
("La valeur proposée que vous tentez de modifier indique pour un animal et un effluent défini le volume quotidien de production pendant la période de pâturage.  Cette proposition correspond aux normes légales de production d'effluents d'élevages telles qu'elles sont définies en Région Wallonne dans le cadre de la mise en application de la Directive Nitrates européene.  Pour respecter un dimensionnement de votre projet en fonction de ces normes il est vivement déconseillé de modifier cette valeur qui a notamment un impacte direct sur la capacité de stockage, le taux de liaison au sol et le bilan d'azote. Cliquer sur 'Oui' si vous souhaitez malgré tout modifier cette valeur, pour annuler la modification et retourner à la valeur proposée cliquer sur 'Non'.", _
vbYesNo + vbExclamation, "Attention !")
If Message1 = vbNo Then
Me.TB1VolPerPat33.Value = Me.TB1VolPerPat33.BoundValue 'remettre l'ancienne valeur
bolAutoChange = False
Exit Sub
Else
'Pour forcer une encodage de chiffre positif dans ce textbox
With Me.TB1VolPerStab32
If Not IsNumeric(.text) Or _
.Value < 0 Then
MsgBox "Uniquement encoder des chiffres positifs dans ce champs !"
.Value = .BoundValue
.SetFocus
.SelStart = 0
.SelLength = .TextLength
GoTo Errorhandler
Else
Cancel = False
End If
End With
'si modification pour corriger la production d'éffluent en période de stabulation en fonction du mode de stabulation choisi
With Me
Dim Stabulation As Single
Dim Paturage As Single
Stabulation = .TB1VolPerStab32.Value 'production en période de stabulation
Paturage = .TB1VolPerPat33.Value 'production en période de pâturage
'si une valeur nécessaire est nulle ou vide il ne peut pas recalculer et quitte en informant simplement
If .TB1VolPerStab32.Value = 0 Or .TB1VolPerStab32.Value = "" Or _
.TB1VolPerPat33.Value = "" Or .TB1VolPerPat33.Value = 0 _
Then
MsgBox "Suite à la modification que vous venez d'opérer un calcul correctif du volume produit en période de pâturage n'a pas pu être réalisé car parmi les données nécessaires à ce calcul au moins une valeur est nulle ou manque.  Eviter d'introduire une valeure nulle et vérifier le champs volume quotidien produit en période de pâturage!", vbExclamation, "Erreur de calcul possible!"
.TB1VolPerPat33.Value = .TB1VolPerPat33.BoundValue
.TB1VolPerPat33.SetFocus
.TB1VolPerPat33.SelStart = 0
.TB1VolPerPat33.SelLength = .TB1VolPerPat33.TextLength
' si le mode de stabulation est Pâturage jour et nuit la production ne peut pas être modifié (car non-sens)
ElseIf .CB1ModeStab5.Value = "Pâturage jour et nuit" _
Then
MsgBox "Vous avez choisi le mode de stabulation 'Pâturage jour et nuit'.  La production d'effluents utilisables pour l'installation est donc forcément égale à 0. Vous ne pouvez pas modifier cette valeur ! ", vbCritical, "Modification impossible !"
GoTo Errorhandler
Else
'ajouter le message de demande si conversion automatique de la production en période
'de pâturage est souhaitée
Message2 = MsgBox _
("La production quotidienne d'effluent/animal en période de stabulation et la production d'effluent/animal en période de pâturage sont étroitement liés. En fonction du mode de stabulation choisi et de votre modification au niveau de la production en période de pâturage le logiciel suggère un changement de la production quotidienne d'effluent en période de stabulation.  Les facteurs de conversion suggérés sont de 100 % en cas de stabulation permanente, 50 % en cas de stabulation jour et de stabulation nuit, 10 % en cas de pâturage jour et nuit avec traite à l'étable et 0 % en cas de pâturage jour et nuit. Pour pour que le logiciel recalcul le production en période de pâturage cliquer sur 'Oui' pour ne pas recalculer et modifier uniquement la production en période de stabulation cliquer sur 'Non'.", _
vbYesNo + vbQuestion, "Recalcul automatique souhaité ?")
If Message2 = vbNo Then
bolAutoChange = False
Exit Sub
Else
bolAutoChange = True
Select Case .CB1ModeStab5.Value 'en fonction du mode de stabulation le rapport entre production en période de stabulation et de pâturage varie (100 %, 50 %, 10 % ou 0 %)
Case "Stabulation permanente"
.TB1VolPerStab32.Value = Paturage
Case "Stabulation jour"
.TB1VolPerStab32.Value = Paturage * 2
Case "Stabulation nuit"
.TB1VolPerStab32.Value = Paturage * 2
'Case "Pâturage jour et nuit" a été éliminé par la condition un peu plus haut
'un recalcul est impossible donc il faut éviter une modification
'.TB1VolPerStab32.Value = 0
Case "Pâturage jour et nuit avec traite à l'étable"
.TB1VolPerStab32.Value = Paturage * 10
End Select
End If
End If
End With
End If
End If
bolAutoChange = False
Exit Sub
Errorhandler:
bolAutoChange = False
Cancel = True
End Sub

Private Sub TB1VolPerStab32_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim Message1 As Integer
Dim Message2 As Integer
'pour éviter que les modifications réalisées par code ne se transmettent en boucle
'seul les changements réalisés par l'utilisateur sont retenu
If Not bolAutoChange Then
bolAutoChange = True
'pour informer l'utilisateur que la valeur utilisé est issue des normes de production de la directive nitrate et qu'il faut être prudent avec les changements
Message1 = MsgBox _
("La valeur proposée que vous tentez de modifier indique pour un animal et un effluent défini le volume quotidien de production pendant la période de stabulation.  Cette proposition correspond aux normes légales de production d'effluents d'élevages telles qu'elles sont définies en Région Wallonne dans le cadre de la mise en application de la Directive Nitrates européene.  Pour respecter un dimensionnement de votre projet en fonction de ces normes il est vivement déconseillé de modifier cette valeur qui a notamment un impacte direct sur la capacité de stockage, le taux de liaison au sol et le bilan d'azote. Cliquer sur 'Oui' si vous souhaitez malgré tout modifier cette valeur, pour annuler la modification et retourner à la valeur proposée cliquer sur 'Non'.", _
vbYesNo + vbExclamation, "Attention !")
If Message1 = vbNo Then
Me.TB1VolPerStab32.Value = Me.TB1VolPerStab32.BoundValue 'remettre l'ancienne valeur
bolAutoChange = False
Exit Sub
Else
'Pour forcer une encodage de chiffre positif dans ce textbox
With Me.TB1VolPerStab32
If Not IsNumeric(.text) Or _
.Value < 0 Then
MsgBox "Uniquement encoder des chiffres positifs dans ce champs !"
.Value = .BoundValue
.SetFocus
.SelStart = 0
.SelLength = .TextLength
GoTo Errorhandler
Else
Cancel = False
End If
End With
'si modification pour corriger la production d'éffluent en période de pâturage en fonction du mode de stabulation choisi
With Me
Dim Stabulation As Single
Dim Paturage As Single
Stabulation = .TB1VolPerStab32.Value 'production en période de stabulation
Paturage = .TB1VolPerPat33.Value 'production en période de pâturage
If .TB1VolPerStab32.Value = 0 Or .TB1VolPerStab32.Value = "" Or _
.TB1VolPerPat33.Value = "" _
Then
MsgBox "Suite à la modification que vous venez d'opérer un calcul correctif du volume produit en période de pâturage n'a pas pu être réalisé car parmi les données nécessaires à ce calcul au moins une valeur est nulle ou manque.  Vérifier le champs volume quotidien produit en période de pâturage!", vbExclamation, "Erreur de calcul possible!"
Else
'ajouter le message de demande si conversion automatique de la production en période
'de pâturage est souhaitée
Message2 = MsgBox _
("La production quotidienne d'effluent/animal en période de stabulation et la production d'effluent/animal en période de pâturage sont étroitement liés. En fonction du mode de stabulation choisi et de votre modification au niveau de la production en période de stabulation le logiciel suggère un changement de la production quotidienne d'effluent en période de pâturage.  Les facteurs de conversion suggérés sont de 100 % en cas de stabulation permanente, 50 % en cas de stabulation jour et de stabulation nuit, 10 % en cas de pâturage jour et nuit avec traite à l'étable et 0 % en cas de pâturage jour et nuit. Pour pour que le logiciel recalcul le production en période de pâturage cliquer sur 'Oui' pour ne pas recalculer et modifier uniquement la production en période de stabulation cliquer sur 'Non'.", _
vbYesNo + vbQuestion, "Recalcul automatique souhaité ?")
If Message2 = 7 Then 'si l'utilisateur dit non finir sans calculer
bolAutoChange = False
Exit Sub
Else
bolAutoChange = True
Select Case .CB1ModeStab5.Value 'en fonction du mode de stabulation le rapport entre production en période de stabulation et de pâturage varie (100 %, 50 %, 10 % ou 0 %)
Case "Stabulation permanente"
.TB1VolPerPat33.Value = Stabulation
Case "Stabulation jour"
.TB1VolPerPat33.Value = Stabulation / 2
Case "Stabulation nuit"
.TB1VolPerPat33.Value = Stabulation / 2
Case "Pâturage jour et nuit"
.TB1VolPerPat33.Value = 0
Case "Pâturage jour et nuit avec traite à l'étable"
.TB1VolPerPat33.Value = Stabulation / 10
End Select
End If
End If
End With
End If
End If
bolAutoChange = False
Exit Sub
Errorhandler:
bolAutoChange = False
Cancel = True
End Sub