MsgBox dans UserForm.TextBox Résolu

Question

Bonjour, 

Mon code :

Private Sub TextBox_NOMBREPR100_Change()
If UserForm1.CheckBox4.Value = False Then
UserForm1.TextBox_NOMBREPR100.Value = ""
MsgBox ("Impossible d'indiquer une quantité si la case contenant le type de palette n'est pas cochée.")
End If
End Sub

Je ne comprend pas pourquoi si je modifie ma TextBox_NOMBREPR100 et que la la CheckBox n'est pas cochée, j'ai la MsgBox mais 2 fois...

Merci d'avance.

Cordialement.

Maurice · Answer

Bonjour

donne un modele de ton fichier ca serat plus simple pour te repondre

A+
Maurice

cs_Le Pivert · Answer

Bonjour,

Avec tous les post que tu envoies, tu ne sais plus où tu en es avec les anciens!


 https://forums.commentcamarche.net/forum/affich-32641547-enregistrer-un-graphique-en-gif#p32642394

f894009 · Answer

Bonjour a vous tous,

Si pas case a cocher, vous faites une raz de la textbox qui a pour effet d'un appel recurcif de la procedure Private Sub TextBox_NOMBREPR100_Change()

Je n'ai trouve que ce moyen pour empecher ca dans les divers fichers ou j'ai eu ce probleme:
Dim Flag_Nok As Boolean

Private Sub TextBox_NOMBREPR100_Change()
    If UserForm1.CheckBox1.Value = False And Not Flag_Nok Then
        Flag_Nok = True
        UserForm1.TextBox_NOMBREPR100.Value = ""
        MsgBox ("Impossible d'indiquer une quantité si la case contenant le type de palette n'est pas cochée.")
        Flag_Nok = False
    End If
End Sub

Maurice · Answer

Bonjour 
je pense que si car tu te melange un peux

voila une solution pour mettre des quantiter

Private Sub UserForm_Initialize()
   TextBox4.Locked = True
End Sub

Private Sub CheckBox4_Click()
   If CheckBox4.Value = True Then
      TextBox4.Locked = False
   Else
      TextBox4.Locked = True
      TextBox4.Value = ""
   End If
End Sub

Private Sub textbox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
    Case 48 To 57
        KeyAscii = KeyAscii
    Case Else
       KeyAscii = 0
    End Select
End Sub

Private Sub TextBox4_Change()

End Sub

A+
Maurice

MsgBox dans UserForm.TextBox

4 réponses

Discussions similaires

Newsletters