Problème je dois cliquer deux fois sur OK d'une msgbox

[craig974]

Bonjour à tous,

Voila dans mon userform après un clique sur bouton peut apparaitre une msgbox, le problème et qu'il faut que je clique deux fois sur Ok pour que celle ci se ferme

Voici le code utilisé

Private Sub CommandButton1_Click()

Dim i As Byte
Dim j As Byte
Dim k As Byte
Dim l As Byte

For i = 3 To 9 Step 2
For j = 3 To 9 Step 2
For k = 1 To 8
For l = 1 To 8
        If Me.Controls("ComboBox" & j).Value = CStr(l) And Me.Controls("ComboBox" & i).Value = CStr(k) And CStr(k) = CStr(l) And CStr(j) <> CStr(i) Then
         Me.Controls("CheckBox" & k) = False
         Me.Controls("CheckBox" & l) = False
         MsgBox "Vous ne pouvez pas utilisez la même adresse ", vbCritical, "Erreur adresse"
End If
Next
Next
Next
Next
End Sub

je pense avoir cerné le problème, le programme affiche une fois le message par rapport à la première combobox et après OK affiche instantanément le message par rapport à la deuxième combobox. Mais je ne vois pas comment faire pour qu'il ne soit appelé qu'une seule fois sur les deux.
Quelqu'un pourrait t'il jeter un coup d'oeil ?

Merci d'avance

@+

Et Bonne journée à tous

 

[Paritec]

Re : Problème je dois cliquer deux fois sur OK d'une msgbox

Bonjour Craig974
tu rajoutes

MsgBox "Vous ne pouvez pas utilisez la même adresse ", vbCritical, "Erreur adresse":exit sub

a+
Papou 🙂

 

[craig974]

Re : Problème je dois cliquer deux fois sur OK d'une msgbox

Re Paritec

Merci Beaucoup !
j'y pense jamais à exit sub (faudrait que je m'y mette)

@+