Bonjour …
Si on sait de quoi on parle, un seul cas existant
sans boucle (pas de plage à parcourir)
Private Sub BntM12_3_Click()
Dim J As Integer
If BntM12_3 Then MsgBox "Il n'existe pas de vis Dural M12.3 !", 16, "le KIT 1B ne peut pas être appliqué..."
Unload UserForm1
End Sub
avec une boucle (plage non réduite à une ligne )
Private Sub BntM12_3_Click()
Dim J As Integer
For J = 92 To 547 Step 25
If BntM12_3 Then
MsgBox "Il n'existe pas de vis Dural M12.3 !", 16, "le KIT 1B ne peut pas être appliqué..."
Exit for
End If ‘obligatoire même si on sort de la boucle
Next
Unload Me
End Sub
Remarque : le second cas peut s’appliquer quand le contrôle BntM12_3 est une liste (ComboBox, ListBox).