Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Afficher plusieurs données dans un msgbox - VBA

  • Initiateur de la discussion Initiateur de la discussion mimy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mimy

XLDnaute Occasionnel
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
 
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:

Code:
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🙂
 
Dernière modification par un modérateur:
Re : Afficher plusieurs données dans un msgbox - VBA

Bonjour Mimy,

avec ceci:
Code:
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
15
Affichages
784
Réponses
4
Affichages
281
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…