Discussion :

[Marc31]

Bonjour à tous,

J'ai fais un tableau avec plusieurs valeurs a remplir. J'ai une msgbox qui indique à l'utilisateur qu'il a oublié de remplir une valeur.

Le seul petit problème est d'esthétique dans le message, c'est à dire que si c'est la derniere valeur qui n'est pas remplie, elle s'afficheras en bas de ma msgbox.

Quelqu'un pourrait m'aider? merci

Code ci-dessous:

Code :

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

1
2
3
4
5
6
7
8
9
If text1 <> "" Or text2 <> "" Or text3 <> "" Or text4 <> "" Or text5 <> "" Or text6 <> "" Or text7 <> "" Or text8 <> "" Then
 
                    MsgBox "Veuillez compléter le(s) questionnaire(s) :" & vbCrLf & text1 & "  " & vbCrLf & text2 & " " & vbCrLf & text3 & " " & vbCrLf & text4 & " " & vbCrLf & text5 & " " & vbCrLf & text6 & " " & vbCrLf & text7 & " " & vbCrLf & text8
 
                    Else
 
                    MsgBox "Merci d'avoir compléter correctement les questionnaires."
 
                    End If

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Msg As String
Msg = ""
For i = 1 To 8
    If Trim("" & Me.Controls("text" & i)) = "" Then
        If Msg ="" Then Msg = "text" & i Else Msg = Msg & vbCrLf & Msg & "text" & i
    End If
Next
If Msg <> "" Then
    MsgBox "Veuillez compléter le(s) questionnaire(s) :" & vbCrLf & Msg
Else
    MsgBox "Merci d'avoir compléter correctement les questionnaires."
End If

[Marc31]

Merci mais il me marque erreur de compilation....

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Msg As String,I as integer
Msg = ""
For i = 1 To 8
    If Trim("" & Me.Controls("text" & i)) = "" Then
        If Msg ="" Then Msg = "text" & i Else Msg = Msg & vbCrLf & Msg & "text" & i
    End If
Next
If Msg <> "" Then
    MsgBox "Veuillez compléter le(s) questionnaire(s) :" & vbCrLf & Msg
Else
    MsgBox "Merci d'avoir compléter correctement les questionnaires."
End If

[Marc31]

J'avais rajouté le i as integer mais toujours le même message d'erreur...

[Invité]

elle fonction telle que tu nous l'as présenté? tu as renommé les TextBox en Text ?

[Marc-L]

Bonjour, bonjour !

N'utiliser qu'une seule variable texte pour alimenter le texte du message comme dans cette discussion …



_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo