Problème Msgbox (vbYes, vbNO) après une condition Then

Bonjour à tous, j'ai un petit soucis, après ma condition if dans laquelle je teste si la valeur en x est supérieur à la valeur y alors j'affiche un message, je souhaiterais pouvoir demander à l'opérateur si il veut réinitialiser ou non le compteur. Le problème c'est que cela ne marche absolument.

Merci d'avance pour votre aide

mon code actuel est le suivant :

With Worksheets("correspondance")
Set L = .Columns(14).Find(Me.cbobalancelle)
If L.Offset(0, 1) + 1 > L.Offset(0, 3) Then MsgBox ("Le nombre de tour maximal de la balancelle a été atteint ! Souhaitez vous réinitialiser le compteur ?", vbYesNo) = vbYes Then

L.Offset(0, 1) = 0
L.Offset(0, 1) = L.Offset(0, 1) + 1
Me.txtpassagebal = L.Offset(0, 1)

Else
L.Offset(0, 1) = L.Offset(0, 1) + 1
Me.txtpassagebal = L.Offset(0, 1)

End With

.ListColumns("Nb tour balancelle").DataBodyRange.Rows(B) = Val(txtpassagebal)

End With

Bonjour,

il vous manque un "IF". Indenter votre code vous permettra d'éviter ce type d'erreur

    With Worksheets("correspondance")
        Set L = .Columns(14).Find(Me.cbobalancelle)
        If L.Offset(0, 1) + 1 > L.Offset(0, 3) Then
            If MsgBox("Le nombre de tour maximal de la balancelle a été atteint ! Souhaitez vous réinitialiser le compteur ?", vbYesNo) = vbYes Then
                L.Offset(0, 1) = 0
                L.Offset(0, 1) = L.Offset(0, 1) + 1
                Me.txtpassagebal = L.Offset(0, 1)
            End If
        Else
            L.Offset(0, 1) = L.Offset(0, 1) + 1
            Me.txtpassagebal = L.Offset(0, 1)
        End If

    End With

Hello,

tu ne peux pas avoir de

then

sans

if

comme ici

If L.Offset(0, 1) + 1 > L.Offset(0, 3) Then MsgBox ("Le nombre de tour maximal de la balancelle a été atteint ! Souhaitez vous réinitialiser le compteur ?", vbYesNo) = vbYes Then

tu as 2 then pour 1 if ...

If L.Offset(0, 1) + 1 > L.Offset(0, 3) Then 
      if MsgBox ("Le nombre de tour maximal de la balancelle a été atteint ! Souhaitez vous réinitialiser le compteur ?", vbYesNo) = vbYes Then

      'code 

      else

      'code

       end if

else

 'code

end if

Merci à tous pour vos réponses et explications !!