Afficher plusieurs données dans un msgbox - VBA

[mimy]

Bonjour à tous,

J'ai un problème avec les msgbox.
Je voudrais savoir si c est possible de mettre plusieurs donnees dans un meme msgbox.
Je m'explique:

For i=1 to 5
If MonDocumentExiste(i)=false then
Msgbox("doc manquant:" & MonDocumentExiste(i))
End if
Next i

Je voudrais afficher dans un meme msgbox les doc manquants mais je ne sais pas comment faire pour tous les réunir dans un meme msgbox.

Merci à vous

 

[Guest]

Re : Afficher plusieurs données dans un msgbox - VBA

Bonjour,

A supposer que MonDocumentExiste() soit un tableau contenant les noms de documents ou une fonction renvoyant un nom de document:

Dim i As Integer
Dim txt As String
For i = 1 To 5
If MonDocumentExiste(i) = "" Then
    txt = txt & MonDocumentExiste(i) & vbCrLf
End If
Next i
If txt <> "" Then MsgBox "Documents manquants: " & vbCrLf & txt

Mais sans plus d'explication.....?

A+
[edition] Hello Philippe🙂

 

[phlaurent55]

Re : Afficher plusieurs données dans un msgbox - VBA

Bonjour Mimy,

avec ceci:

Message = "doc manquant: "
For i = 1 To 5
If MonDocumentExiste(i) = False Then
Message = Message + MonDocumentExiste(i) + " "
End If
Next i
MsgBox (Message)

à+
Philippe

Edit: Bonjour Hasco

 

[sousou]

Re : Afficher plusieurs données dans un msgbox - VBA

Bonjour mimy
Ajoute tes informations dans une variable appelée phrase et affiche la phrase en fin de boucle
phrase= " Doc(s) manquant(s):" & chr(10)
For i=1 to 5
If MonDocumentExiste(i)=false then
phrase= pharse &MonDocumentExiste(i) & chr(10)

End if
Next i
msgbox phrase


en retard Bonjour à tous

 

[mimy]

Re : Afficher plusieurs données dans un msgbox - VBA

Merci à vous tous, j ai reussi a faire ce que je voulais avec toutes vos reponses! Merci encore