Des séparateurs dans un Msgbox

Bonjour à tous,

J'ai écris un code me permettant d'avoir quelques infos à l'ouverture d'un fichier Excel.

MsgBox me montre bien les infos que je veux mais il ne les sépare pas

Exemple:
Je veux faire afficher des numéro de cde différents : 100-10 , 250-10, 120-30, 100-20

Sur le msg box j'ai "100-10 250-10 120-30 100-20 sans séparateurs (virgule ou slash)

Que dois je ajouter à ce code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Workbook_Open()     derniereligne = Application.WorksheetFunction.CountA(Feuil3.Range("G:G"))   Message = " "   For i = 2 To derniereligne   Valeur = Cells(i, "E")   If Feuil3.Cells(i, "G").Value = "Validée ADF" And Feuil3.Cells(i, "AH") = "" Then   Message = Message & " " & Valeur     Else Feuil3.Select End If Next i MsgBox "Les Tâches numéro" & " " & Message & " " & "Sont sans devis. Merci de revérifier le tableau de saisies.", vbExclamation, "Attention!"

---

Merci à tous

Bonjour :

Ligne 14

Code:

---

Message = Message & " " & Valeur & "/"

---

C'est bien simple au fait.

merci bcp.

Bonne journée

re
bonjour
grosse erreur de boucler sur le nombre obtenu avec countA
si tu a des ligne vide ou qui ne correspondent pas au critere "Validée ADF"
et bien tu passe a coté forcement
imagine que tu a 5 cellules qui corespondent au critere mais etalé sur 50 ligne par exemple countA te donnera 5
et bien tu ne prendra que celles qui sont eventuellement sur les 3 premiere lignes puisque tu commence ta boucle a 2 les autres walouh!!! walouh!!!

je te propse quelque chose de différent et certainement plus sur

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Workbook_Open() Dim tabl(), i&, a&, separateur$ separateur = "/" 'tu met le separateur que tu veux With Feuil3 For i = 2 To .Range("G" & .Rows.Count).End(xlUp).Row If .Cells(i, "G").Value = "Validée ADF" And .Cells(i, "AH") = "" Then a = a + 1: ReDim Preserve tabl(1 To a): tabl(a) = .Cells(i, "E") End If Next i End With MsgBox "Les Tâches numéro" & " " & Join(tabl, separateur) & " " & "Sont sans devis. Merci de revérifier le tableau de saisies.", vbExclamation, "Attention!" End Sub

---