Msgbox Numéro Ligne & contenu de la case

Bonjour,

J'ai une msgbox où je veux avoir comme résultat le numéro de la ligne et le contenu de la colonne B dans la ligne qu'il indique!

Voici le code comme il est maintenant:

 sMsg = sMsg & " " & vbLf & CStr(i)
                iCountNotFound = iCountNotFound + 1

            End If
        End If
        i = i + 1
    Loop
End With

If iCountNotFound > 0 Then

        If MsgBox("" & iCountNotFound & IIf(iCountNotFound > 1, " Matricules inconnues ou mauvaises inscriptions.", " Matricule inconnue ou mauvaise inscription.") & vbCrLf & vbCrLf & IIf(iCountNotFound > 1, "Lignes:", "Ligne:") & vbLf & sMsg & vbLf & vbLf & _
            "Vérifier le fichier Matricules Etudes Avocats ?", vbYesNo + vbExclamation, "ETUDE INCONNUE OU MAUVAISE INSCRIPTION") = vbYes Then
        WBQ.Windows(1).Visible = True

Si vous voyer la photo de la msbox vous voyer que derrière le numéro de la ligne il ne s'affiche pas aussi le contenu de la 2 case qu'il indique comme résultat dans la msgbox. p.ex.

3 Test

4 Test1

Merci d'avance pour votre aide

message

Bonjour,

Le contenu de la msgbox est constitué dans une boucle dont on aperçoit juste la fin. Pas facile de deviner ce qui sera compatible avec le reste du code.

A tout hasard , modifier :

sMsg = sMsg & " " & vbLf & CStr(i)

en

sMsg = sMsg & " " & vbLf & CStr(i) & "   " & .Cells(i , 2)

A+

Ooh merci beaucoup parfaite

Rechercher des sujets similaires à "msgbox numero ligne contenu case"