problème dans une boucle svp

Question

Bonjour, j'ai un problème sur ce code, 

Private Sub OK_Click()
    Dim Ws As Worksheet
    Dim Ligne As Integer

    Set Ws = Sheets("abonnements")
        If MODIFICATION = True Then
            Ligne = Line
        Else
            Ligne = Ws.Columns(1).Find("").Row
        End If
        
               If (case1 True Or case2 True Or case3 = True Or case4 = True Or case5 = True) Then
        Ws.Cells(Ligne, 1) = Act
        End If
        If case1.Value = True Then
        Ws.Cells(Ligne, 2) = prix1
        End If
        If case2.Value = True Then
        Ws.Cells(Ligne, 3) = prix2
        End If
        If case3.Value = True Then
        Ws.Cells(Ligne, 4) = prix3
        End If
        If case4.Value = True Then
        Ws.Cells(Ligne, 5) = prix4
        End If
        If case5.Value = True Then
        Ws.Cells(Ligne, 6) = prix5
        End If
    
        If Act = "" Then
            Rep = MsgBox("La saisie d'une activité est obligatoire", vbOKOnly + vbCritical, "ATTENTION")        ElseIf (case1 False And case2 False And case3 = False And case4 = False And case5 = False) Then
            mes = MsgBox("La saisie d'au moins un prix est obligatoire", vbOKOnly + vbCritical, "ATTENTION")
        Else
            Unload ADM
            Rep = MsgBox("Voulez-vous rentrer une autre activité ?", _
            vbYesNo + vbQuestion, "Programmer une autre activité ?")
        End If
    If Rep = vbYes Then
    'si la réponse est oui alors
        ADM.Show
        'ouvrir le userform adm
    ElseIf Rep = vbNo Then
    'si la réponse est non alors
        bye = MsgBox("Les nouvelles données sont bien enregistrées ; Merci et à très bientôt", , "AUREVOIR") 'envoyer un message d'information
    End If
    MODIFICATION = False
End Sub

Alors mon problème c'est que quand on rentre du négatif il nous dis bien que le négatif n'est pas accepté et donc l'input revien mais là quand on click sur annuler il ne veut pas sortir de l'input il nous remet une msg.
Merci de votre aide svp!!

eastpeople · Answer

Pardon je me suis trompé de code j'ai collé le mauvais

Private Sub prix1_Change()
If MODIFICATION Then Exit Sub
    If prix1.Text = "" Then
    'Si prix1 est vide alors
        Exit Sub
        'sortir de la procédure
    ElseIf Not IsNumeric(prix1) Then
    'sinon si prix1 n'est pas numérique alors
        erreur = MsgBox("Un prix est obligatoirement numérique!", vbOKOnly + vbCritical, "ERREUR")
        'msgbox
        prix1 = ""
        'prix1 est vide
        prix1.Text = Application.InputBox("Veuillez entrer le prix correspondant SVP", "PRIX")
        'inputbox pour obliger à rentrer un prix
    ElseIf prix1 < 0 Then
    'sinon si le prix est négatif
        erreur = MsgBox("Unprix ne peut pas être négatif", vbOKOnly + vbCritical, "ERREUR")
        'msgbox
        prix1 = ""
        prix1.Text = Application.InputBox("Veuillez entrer le prix correspondant SVP", "PRIX")
    End If
End Sub

Voila c'est celui là

PCPT · Answer

salut,
normal c'est à l'évènement _Change...

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

eastpeople · Answer

Et je dois le mettre à quel evenement prix1 est une textbox?

cs_Jack · Answer

Reflechis un tout petit peu et consulte l'aide :
Prix1_Change va se déclencher à chaque fois que tu touches au contenu de Prix1
Le fait de faire  Prix1 = ""  provoque l'appel de cette routine !!
Il va donc te reposer sans cesse la même question !

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

bigfish_le vrai · Answer

Salut,

pas testé !

Private Sub prix1_Change()
Dim MsgErreure As String, Reponse As Variant
If MODIFICATION Then Exit Sub
    If prix1.Text = "" Then
    'Si prix1 est vide alors
        Exit Sub
        'sortir de la procédure
    End IF
    Do While Not IsNumeric(prix1) or prix1 < 0
    'si prix1 n'est pas numérique ou si le prix est négatif
        If Not IsNumeric(prix1) Then MsgErreure = "Un prix est obligatoirement numérique!"
        If prix1 < 0 Then MsgErreure = "Un prix ne peut pas être négatif"
        MsgBox MsgErreure, vbOKOnly + vbCritical, "ERREUR"
        'msgbox
        prix1.Text = ""
        'on vide la textbox
        Reponse = Application.InputBox("Veuillez entrer le prix correspondant SVP", "PRIX")
        'inputbox pour obliger à rentrer un prix
        If Reponse = False then
         'si on click sur le bouton annuler ou la croix de l'inputbox alors
             Exit Sub
        Else
           prix1.Text = Reponse
       End If
     Loop
End Sub

mais je suis surpris car je t'ai deja donné un code similaire ici

A+

bigfish_le vrai · Answer

oui bon.... j'aurai du rafraichir la page avant de poster

daccord avec PCPT et Jack 

A+

eastpeople · Answer

Je reflechis un tout petit peu et je me dis que comme ma case prix1 textbox et lié à ma case1 checkbox je ne clique jamais dans la case prix1.
Ensuite, quand je rentre du négatif mon prix1="" sert à vider ma case prix1.
Le problème est que quand je clique sur Annuler dans ma case prix1, il y a un Faux qui apparait et la forcément il me di que cela doit être numérique.
Le problème est aussi présent quand je marque du texte dans prix1.
Merci de votre aide

eastpeople · Answer

D'accord merci de ton aide bigfish et les autres aussi.
C'est que j'ai toujours peur de faire n'importe quoi.
En tous cas merci pour tous

bigfish_le vrai · Answer

...

Aller je vais etre gentil ce matin(pour moi) et c'est aussi par ce que je sais que tu as deja pas mal bossé sur ce projet 

donc utilise l'evenement KeyDown et lance ta macro si il y a validation par la touche entré

Private Sub prix1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn and prix1.Text <> "" Then
        Dim MsgErreure As String, Reponse As Variant
        If MODIFICATION Then Exit Sub
        Do While Not IsNumeric(prix1) or prix1 < 0
        'si prix1 n'est pas numérique ou si le prix est négatif
            If Not IsNumeric(prix1) Then MsgErreure = "Un prix est obligatoirement numérique!"
            If prix1 < 0 Then MsgErreure = "Un prix ne peut pas être négatif"
            MsgBox MsgErreure, vbOKOnly + vbCritical, "ERREUR"
            'msgbox
            prix1.Text = ""
            'on vide la textbox
            Reponse = Application.InputBox("Veuillez entrer le prix correspondant SVP", "PRIX")
            'inputbox pour obliger à rentrer un prix
            If Reponse = False then
             'si on click sur le bouton annuler ou la croix de l'inputbox alors
                 Exit D0
            Else
              prix1.Text = Reponse
           End If
         Loop
    End If
End Sub

mais pas de message perso ou d'aide perso poste tes questions sur ce forum

eastpeople · Answer

OK mais ta réponse précédente marche très bien, keydown c'est quand l'utilisateur appuit sur une touche. Change est correct aussi ou pas?Le code reste le même dans tes deux solutions.

PCPT · Answer

keydown PUIS test  si ENTER
(d'ailleurs préférer keyup pour ne pas pouvoir déclencher plusieurs fois le code si on reste appuyé)

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

eastpeople · Answer

D'accord je te remercie pour ton aide

bigfish_le vrai · Answer

il existe aussi une solution avec l'evenement change qui consiste desactiver les evenements temporairement vas le code plus bas:

mais je prefere quand meme un evenement keydown... pardon Keyup  + touche enter

Private Sub prix1_Change()
Dim MsgErreure As String, Reponse As Variant
If MODIFICATION Then Exit Sub
    If prix1.Text = "" Then
    'Si prix1 est vide alors
        Exit Sub
        'sortir de la procédure
    End IF
    Application.EnableEvents = False
    Do While Not IsNumeric(prix1) or prix1 < 0
    'si prix1 n'est pas numérique ou si le prix est négatif
        If Not IsNumeric(prix1) Then MsgErreure = "Un prix est obligatoirement numérique!"
        If prix1 < 0 Then MsgErreure = "Un prix ne peut pas être négatif"
        MsgBox MsgErreure, vbOKOnly + vbCritical, "ERREUR"
        'msgbox
        prix1.Text = ""
        'on vide la textbox
        Reponse = Application.InputBox("Veuillez entrer le prix correspondant SVP", "PRIX")
        'inputbox pour obliger à rentrer un prix
        If Reponse = False then
         'si on click sur le bouton annuler ou la croix de l'inputbox alors
             Exit Do
        Else
           prix1.Text = Reponse
       End If
     Loop
    Application.EnableEvents = True
End Sub

eastpeople · Answer

Mais pourquoi le code est incorrecte avec l'evenement change mais de la solution précédente dans Application.EnableEvents=False?

bigfish_le vrai · Answer

tu pourrais reformuler la question c'est pas tres claire ou alors je fatigue

eastpeople · Answer

Lol non c'est moi qui m'exprime mal en fait tout à l'heure tu m'as donné ce code :

Private Sub prix1_Change()
Dim MsgErreure As String, Reponse As Variant
If MODIFICATION Then Exit Sub
    If prix1.Text = "" Then
    'Si prix1 est vide alors
        Exit Sub
        'sortir de la procédure
    End IF
    Do While Not IsNumeric(prix1) or prix1 < 0
    'si prix1 n'est pas numérique ou si le prix est négatif
        If Not IsNumeric(prix1) Then MsgErreure = "Un prix est obligatoirement numérique!"
        If prix1 < 0 Then MsgErreure = "Un prix ne peut pas être négatif"
        MsgBox MsgErreure, vbOKOnly + vbCritical, "ERREUR"
        'msgbox
        prix1.Text = ""
        'on vide la textbox
        Reponse = Application.InputBox("Veuillez entrer le prix correspondant SVP", "PRIX")
        'inputbox pour obliger à rentrer un prix
        If Reponse = False then
         'si on click sur le bouton annuler ou la croix de l'inputbox alors
             Exit Sub
        Else
           prix1.Text = Reponse
       End If
     Loop
End Sub

Est-il incorrect sous cette forme. 
En gros qu'est ce qu'ajoute Application.EnableEvents = False ?

PCPT · Answer

un ptit peu d'autonomie svp....

l'aide existe aussi en VBA !!

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

eastpeople · Answer

Je suis d'accord mais on se comprend pas c'est pas grave merci quand même.
Bonsoir

PCPT · Answer

pas grave pour qui? ^^
tu demandes si ton code serait/était bon, y compris le choix de l'évènement, si tu ajoutais la ligne en orange donnée par BigFish

avant que tu poses cette question, "tout le monde" t'a dit qu'il ne fallait pas passer par le _Change

comme un "NB" ou "info sympa" ou "anecdote", BigFish nous informe qu'il est possible de "bidouiller les évènements" de manière à désactiver leur réception (et donc action) temporairement.

très bonne info, à ne pas appliquer dans ton cas de figure.
cf la citation lors de cette nouvelle info : mais je prefere quand meme un evenement key_X (^^)

donc au final si c'est juste de dire "est-ce que mon code est pas si mauvais"....
je ne vois pas quelle réponse on est sensé te donner.
tu as la trace de l'erreur, la raison, la solution, et même une anecdote

me semble qu'on a fait pas mal non? 

bonne soirée 
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

eastpeople · Answer

Oui oui vous avez fait enormément je dis pas le contraire.
Mais avec l'evenement key up pourquoi + enter, 
En copiant le code key up les controles ne marché plus et comme j'ai un peu du mal à comprendre je me suis di que j'allais laisser change enfin bon. Jvé essayé de comprendre.
Merci tout le monde.

bigfish_le vrai · Answer

...

Comme te la deja explique Jack le probleme vient du fait que tu changes la valeur de la textbox depuis l'evenement change de cette meme textbox... si si ! la ligne prix1.Text =  ""

l' evenement change comme son nom l'indique detecte un changement dans l'objet qui lui est associe. Dans ton cas une textbox nomee prix1. Ce qui veut dire que si la valeur de la textbox prix1 change la sub routine prix1_Change() vas ce lancer. le probleme est que si cette meme subroutine modifie elle meme la valeur de la textbox prix1 elle vas a nouveau ce lancer elle meme donc on tourne en rond.
Donc pour eviter de tourner en rond la solution est de desactiver temporaire les evenements avec la ligne de commande suivante: Application.EnableEvents = False puis on ractive les evenements une fois termine.

Tu vas me dire mais pourquoi j'ai pas de probleme meme sans desactive les evenements ? Et bien dans ton cas tu as une condition if qui verifi si prix1 = "" et qui sort de la sub si cette condition est vrai. 
Donc essai de me suivre : 

-l'utilisateur change la valeur de la textbox 
-la sub prix1_change() demarre
-la valeur n' est pas numerique donc on rentre dans la boucle Do
-dans la boucle prix1.Text = "" donc la textbox change a nouveau
-la sub prix1_change() demarre a nouveau alors que l'execution precedente de cette meme sub n'est pas terminee
-la condition If prix1.Text = "" est vrai donc on sort de la  2ieme  execution de la sub prix1_change()
-on revient la ou on avait laisse la premiere execution c' est a dir apres la ligne prix1.Text  = ""
-on lance l'inputbox
etc

Dans ton cas on peut dire que tu as eu de la chance. Je pense personnelement qu'un code ne doit pas s'appuier sur la chance donc si tu veux absolument continuer a utiliser cette evenement change ajoute la desactivation des evenements et la reactivation exactement la ou je te l'ai suggere. 

Mais je continu a penser que c' est une mauvaise idee de vouloir utiliser l'evenement change. Dabord par ce que si on t'avait pas alerte sur ce probleme tu n'en aurais peut etre rien su jusqu' au jour ou tu aurais decide de modifier ton code et d'enlever cette condition if qui par chance te sauve la mise. Maintenant que tu le sais tu vas prendre les devants et ajouter la desactivation des evenements, mais... supposont qu' un petit malin plante ta macro au moment ou les evenements sont desactive  ... la il faut pas oublier que cette desactivation a eu lieu au niveau de l'application soit dans ton cas excel. Ce qui veut dire que dans un tel cas il n'y a plus aucun evenement d'excel qui fonctione.

Conclusion, cela marche mais ce n'est pas tres propre

A+

3ddI7IHd

eastpeople · Answer

D'accord tout est plus clair, je te remerci beaucoup.

Problème dans une boucle svp

22 réponses

Votre réponse

Discussions similaires