Améliorer code VBA: MsgBox avec vblf Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
Avatar du membre
HaniZaq
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 21 mai 2019
Version d'Excel : 2016 FR

Message par HaniZaq » 21 mai 2019, 19:52

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
testMsgbox.xlsx
(8.32 Kio) Téléchargé 1 fois
En vous remerciant par avance
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 2'327
Appréciations reçues : 263
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 21 mai 2019, 19:56

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
Copie de testMsgbox.xlsm
(16.63 Kio) Téléchargé 1 fois
Cordialement,
1 membre du forum aime ce message.
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
Avatar du membre
HaniZaq
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 21 mai 2019
Version d'Excel : 2016 FR

Message par HaniZaq » 21 mai 2019, 20:04

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.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message