Problème, impossible de faire partir une msgbox dans un while

Version imprimable

22/08/2017, 16h11
m.peres.97

Problème, impossible de faire partir une msgbox dans un while

Bonjour,

Je vous présente mon problème, dans mon code j'ai une boucle while qui (lorsque j'appuie sur un bouton), tant que tous les champs de mon userform ne sont pas remplis, m'affiche une msgbox, cependant je n'arrive pas à enlever cette msg box puisque la boucle repart à chaque fois, avez vous une solution ?

Cordialement
22/08/2017, 16h37
traersa

A mon avis le problème vient justement du fait que ton messagebox ne devrait pas être dans ton while mais après...

Pour moi dans ton while tu parcours tous tes champs,
Si un champs n'est pas renseigné on sort du while avec un top_vide à oui

Après ton while si top_vide=oui then msgbox...
Dis moi si ça correspond à ce que tu cherches.

traersa
22/08/2017, 16h48
unparia

Bonjour
lis la rubrique Do...Loop, instruction de ton aide interne VBA et intéresse-toi à son instruction Exit do.
22/08/2017, 16h50
joe.levrai

Bonjour,

avec un visu de ton code, on pourrait mieux comprendre si c'est pertinent de procéder ainsi.

Une autre alternative, c'est Do/Loop While dans laquelle tu as une variable booléenne que tu passes à True quand les conditions sont réunies
Et tu Loop While [TaConditionInitiale] Or MaVariableBooleenne = True.
22/08/2017, 16h57
Menhir

Citation:

Envoyé par m.peres.97

Je vous présente mon problème, dans mon code j'ai une boucle while qui (lorsque j'appuie sur un bouton), tant que tous les champs de mon userform ne sont pas remplis, m'affiche une msgbox, cependant je n'arrive pas à enlever cette msg box puisque la boucle repart à chaque fois, avez vous une solution ?

Dans toute boucle, il faut mettre quelque part une condition de sortie.
Qu'est-ce qu'il y a à côté de ton While ? Comment codes-tu la condition "tant que tous les champs de mon userform ne sont pas remplis" ?

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Option Explicit
 
Dim L As Integer
 
Private Sub CommandButton1_Click()
 
Dim PlageRecherche As Range
Dim test As Boolean
 
test = False
 
While (test = False)
 
If TextBox1 = "" Or TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or ComboBox2 = "" Or ComboBox3 = "" Or ComboBox4 = "" Then
MsgBox ("Saisie incomplète, veuillez remplir tout les champs")
Else
    If MsgBox(" Confirmez-vous l’insertion de cette anomaie ? ", vbYesNo) = vbYes Then
 
        L = Sheets("Suivi").Range(" a65536 ").End(xlUp).Row + 1
 
        Sheets("Suivi").Range("B" & L).Value = CStr(ComboBox1.Value)
 
        Set PlageRecherche = Sheets("DATA").Range("A:A").Find(what:=ComboBox1, LookIn:=xlValues, lookat:=xlWhole)
        If PlageRecherche Is Nothing Then
        L = Sheets("DATA").Range("A" & Rows.Count).End(xlUp).Row + 1
        Sheets("DATA").Range("A" & L).Value = CStr(ComboBox1.Value)
        End If
        ActiveWorkbook.Worksheets("DATA").ListObjects("Tableau1").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("DATA").ListObjects("Tableau1").Sort.SortFields.Add _
        Key:=Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
        With ActiveWorkbook.Worksheets("DATA").ListObjects("Tableau1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        End With
 
 
        L = Sheets("Suivi").Range(" a65536 ").End(xlUp).Row + 1
 
        Sheets("Suivi").Range("D" & L).Value = CStr(ComboBox2.Value)
 
        Sheets("Suivi").Range("C" & L).Value = CStr(ComboBox3.Value)
 
        Sheets("Suivi").Range("H" & L).Value = CStr(ComboBox4.Value)
 
        Sheets("Suivi").Range("E" & L).Value = CStr(TextBox1.Value)
 
        Sheets("Suivi").Range("F" & L).Value = CStr(TextBox2.Value)
 
        Sheets("Suivi").Range("G" & L).Value = CStr(TextBox3.Value)
 
        Sheets("Suivi").Range("I" & L).Value = CStr(TextBox5.Value)
 
        Sheets("Suivi").Range("A" & L).Value = CStr(TextBox4.Value)
 
        Sheets("Suivi").Range("j" & L).Value = "Nouveau"
 
        Sheets("Suivi").Range("K" & L).Value = "TBD"
 
        Unload Me
 
    test = True
 
    End If
 
    End If
    Wend
 
    End Sub

Le but est donc de bloquer l'imputation du formulaire dans mon tableau tant que toute les cases ne sont pas remplies, donc si on quitte la boucle je vois pas comment on peut continuer à s'assurer que les champs sont bien tous remplis

Cordialement

Bonjour
Et qu'as-tu fait de mes indications (utilisation de Do While et de Exit Do) ? Passées à la trappe ? As-tu lu la rubrique que je t'ai indiquée de ton aide interne VBA ?
Il te suffirait alors de quitter (exit do) ici :
Code:

1 2 3 4 If TextBox1 = "" Or TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or ComboBox2 = "" Or ComboBox3 = "" Or ComboBox4 = "" Then MsgBox ("Saisie incomplète, veuillez remplir tout les champs") exit do '--->> mais dans une boucle Do while, bien évidemment ... Else

23/08/2017, 08h49
m.peres.97

Mon code n'a pas changé depuis hier je viens d'arriver au travail je vais m'y atteler
23/08/2017, 09h00
m.peres.97

Problème réglé avec un Do whil et un exit do merci beaucoup, j'avais omis que le fait d'appuyer sur le bouton relancerait le while

Merci
23/08/2017, 09h31
Menhir
Citation:
Code:

1 2 3 4 5 Dim test As Boolean test = False While (test = False)
Bien compliqué alors qu'il suffirait d'un :

Code:

While False

Ou, encore plus simplement, d'un :

Code:

Do

Mais, je le répète, quand on enclenche une boucle, il faut TOUJOURS qu'il y ait une condition de sortie, que ce soit au début, à la fin ou au milieu.