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

 

[Hervé]

Bonsoir

Sans voir le programme, il est difficile de te répondre.

Ne pourrait-tu pas joindre une pièce jointe.

Si le code que tu as posté est un copié collé, il y a un espace superflue entre check et box2.

Salut

 

[Vince]

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

 

[Vince]

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

 

[Vince]

bonjour, hervé

je ne peux pas joindre de fichier Zip car sur mon poste je n'ai rien pour Zipper les fichiers et je ne peux rien installer

J'espère que le code que je vous ai fourni pourra éclaircir le problème

merci d'avance

 

[Vince]

bonjour, hervé

je ne peux pas joindre de fichier Zip car sur mon poste je n'ai rien pour Zipper les fichiers et je ne peux rien installer

J'espère que le code que je vous ai fourni pourra éclaircir le problème

merci d'avance

 

[2passage]

Bonjour,

Essaye peut être de mettre un DoEvents entre ton while et ton wend. Chez moi ca fonctionne.

A+

 

[Bebere]

bonjour à tous

grouper tes checkbox dans une frame
employer une boucle
exemple

For i = 1 To 6
Controls('checkbox' & i).Caption='Découpe' & i
next i
checkbox7.caption=perçage1
checkbox8.caption=perçage2
For i = 1 To 8
If Controls('checkbox' & i).Value = True Then
MaValeur = Val(Controls('checkbox' & i).Caption)
End If
Next i

au revoir

 

[Vince]

Bonjour à tous


Merci beaucoup pour votre aide

Avec DoEvents dans la boucle celle ci fonctionne très bien