attendre une action pour en faire une autre

[Vince]

Bonjour le forum,

J'ai une petit problème d'attente entre 2 actions.
En fait quand je clique sur un bouton, je dois sélectionner l'une ou l'autre checkbox avant que le programme continue. (en fait j'ai huit checkbox possibles).

J'ai esaayer de le faire avec un while:

Public Sub attente_selection()
While checkbox1.Value = False And check box2.Value = False And checkbox3.Value = False And checkbox4.Value = False ......
Wend
End Sub

mais le problème c'est que quand je fais le pas à pas ca fonctionne mais quand je lance le programme ca plante

Je ne vois pas trop ce que je peux faire 😱

quelqu'un aurait il un solution

merci d'avance

 

[jeromegmc]

Hello,


Essaye avec:
Application.EnableEvents = False
cela désactivera les événements (dont change)
ne pas oublier à la fin des traitements de réactiver les événements par
Application.EnableEvents = True
ensuite un petit
Application.Calculate
déclenchera un recalcul du classeur (les événements étaient désactivés)


Dis moi si c'est bien cela?

A+

 

[vince]

salut jeromegmc


merci pour ta réponse mais je ne sais pas si je fais correstement la solution que tu m'a fourni car ca beug toujours
enfin voila mon code ce sera peut être plus simple comme ca

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