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.