MsgBox dans UserForm.TextBox

Résolu/Fermé

Kuartz Messages postés 852 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 14 oct. 2015 à 15:09
Kuartz Messages postés 852 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 14 oct. 2015 à 17:17

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.

A voir également:

MsgBox dans UserForm.TextBox
Msgbox vba variable ✓ - Forum VB / VBA
Vba msgbox bouton personnalisé ✓ - Forum Excel
Afficher le contenu d'une variable sur un msgbox - Forum VB / VBA
[VBA] Type d'une variable réponse de msgbox - Forum VB / VBA
Php msgbox ✓ - Forum PHP

4 réponses

Réponse 1 / 4

Maurice
14 oct. 2015 à 16:14

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

Kuartz Messages postés 852 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
14 oct. 2015 à 17:17

Merci beaucoup pour ce code. Je l'étudie demain.

Réponse 2 / 4

Maurice
14 oct. 2015 à 15:22

Bonjour

donne un modele de ton fichier ca serat plus simple pour te repondre

A+
Maurice

Réponse 3 / 4

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
14 oct. 2015 à 15:23

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

Réponse 4 / 4

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
14 oct. 2015 à 15:27

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

Kuartz Messages postés 852 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
Modifié par Kuartz le 14/10/2015 à 15:44

Bonjour,

Merci beaucoup pour la technique ! Elle marche absolument parfaitement.

@cs_Le Pivert : Ne t'inquiète pas, je m'en sors plutôt pas mal. Les demandes que je fais n'ont rien à voir les unes avec les autres. Je suis désolé si ça ressemble à du SPAM, mais quand j'ai besoin d'aide, je demande. Pardon si cela paraît abusif..

@Maurice : Je ne pense pas que partager le fichier sera d'une grande aide ici...

Merci à vous tous.

Cordialement.

Discussions similaires

[VB]MsgBox avec variable

Msgbox dans un .bat

afficher MessageBox avec java

msgbox = range value

Boutons vbOKCancel VBA