Améliorer code VBA: MsgBox avec vblf

Bonjour,

mon problème est le suivant:

J'aimerai afficher les résultats d'une boucle for dans une msgBox en les séparant avec des saut de ligne (vblf). J'arrive à les afficher sauf que j'ai des doublons. Je souhaiterais alors afficher les résultats sans les doublons.

voici le code :

 Sub test()
Max = Range("D" & Rows.Count).End(xlUp).Row
For i = 2 To Max
    If Cells(i, 4).Value = "oui" Then
    s = Cells(i, 3).Value & "N° " & Cells(i, 2).Value
    End If
    sn = sn & vbLf & s
Next
MsgBox "les checks suivant sont ok : " & vbLf & sn
End Sub

Un exemple du fichier

6testmsgbox.xlsx (8.32 Ko)

En vous remerciant par avance

Bonsoir HaniZaq, le forum,

Essaie ainsi:

Sub test()
Max = Range("D" & Rows.Count).End(xlUp).Row
For i = 2 To Max
    If Cells(i, 4).Value = "oui" Then
    s = Cells(i, 3).Value & "N° " & Cells(i, 2).Value
    sn = sn & vbLf & s
    End If
Next

MsgBox "les checks suivant sont ok : " & vbLf & sn
End Sub

Cordialement,

J'ai cru que je l'ai déjà testé comme ça mais NON!

Je me sens tellement bête

Merci de ta réponse rapide et efficace.

Rechercher des sujets similaires à "ameliorer code vba msgbox vblf"