Afficher plusieurs résultats d'une même recherche Msgbox

Bonjour à tous,

voilà mon problème:

Sur ma feuille excel j'ai une ligne répertoriant le nombre de personnes absentes par jour (les jours sont en colonnes).

J'ai reussi à faire une macro recherchant tous les jours où il y a un ou des absents, et afficher pour chaque fois qu'il y a un ou des absents le jour et le nombre d'absent dans des Msgbox. exemple:

"Il y a un 1 agent(s) manquant(s) le 9."

"Il y a 3 agent(s) manquant(s) le 14."

"Il y a un 1 agent(s) manquant(s) le 16."

etc...

Voici mon code:

Sub NbAgentsManquants()

Dim celluletrouvee As Range
Dim col As Integer

For Each celluletrouvee In Range("B4:AE4")
    If celluletrouvee.Value <> "" Then

col = celluletrouvee.Column
affdte = Cells(2, celluletrouvee.Column).Value

MsgBox ("Il y a " & celluletrouvee.Value & " agent(s) manquant's) le " & affdte & ".")

End If
Next
End Sub

Cela affiche autant de Msgbox que de jours où il y a des absents.

Maintenant je voudrais que tous les jours où il y a des absents soient affichés dans UN SEUL Msgbox (ou un Userform), exemple:

"Il y a un 1 agent(s) manquant(s) le 9, 3 agent(s) manquant(s) le 14, 1 agent(s) manquant(s) le 16."...

Pouvez vous m'aider, je n'ai pas réussi à trouver la solution sur le forum.

Je joins un fichier en exemple.

Merci par avance pour votre aide.

112agents-manquants.xlsm (17.08 Ko)

Bonjour,

651agents-manquants.xlsm (18.55 Ko)

A+

Merci beaucoup, je débute, je n' avais pas pensé à cette solution!!!

Rechercher des sujets similaires à "afficher resultats meme recherche msgbox"