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 : Sélectionner tout - Visualiser dans une fenêtre à part
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