Bonjour hervé
Voila le code, en fait le problème, je crois ' c'est que pendant la boucle je ne peux pas modifier une checkbox.... enfin je ne sais pas trop :unsure:
Public Sub decoupe_standard()
Dim ld As New longueur_decoupe
test = MsgBox('est ce une découpe standard?', vbYesNo)
If test = 6 Then
MsgBox ('sélectionnez un type de découpe')
Call attente_selection
Call ld.init
Call ld.longueur_decoupe
End If
End Sub
Public Sub attente_selection()
Dim k As Integer
decoupe1.Value = False
decoupe2.Value = False
decoupe3.Value = False
decoupe4.Value = False
decoupe5.Value = False
decoupe6.Value = False
perçage1.Value = False
perçage2.Value = False
While decoupe2.Value = False And decoupe2.Value = False And decoupe3.Value = False And decoupe4.Value = False And decoupe5.Value = False And decoupe6.Value = False And perçage1.Value = False And perçage2.Value = False
Application.EnableEvents = False
Wend
Application.EnableEvents = True
End Sub
private Sub Presses_utilisables_Click()
Call decoupe_standard
End Sub