Discussion :

[m.peres.97]

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

[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

[unparia]

Bonjour
lis la rubrique Do...Loop, instruction de ton aide interne VBA et intéresse-toi à son instruction Exit do.

[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.

[Menhir]

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" ?

[m.peres.97]

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[m.peres.97]

Mon code n'a pas changé depuis hier je viens d'arriver au travail je vais m'y atteler

[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