MsgBox - Données placées les uns après les autres

Bonjour,

J'ai un petit soucis avec un code.

Je souhaiterais que quand je clique sur le bouton "chercher", une msgbox apparaisse en y affichant les codes et les prénoms correspondants les uns à coté des autres, et non les codes puis les prénoms.

Voici ce qu'il se passe actuellement quand je clique sur le bouton:

001001

001002

002001

002002

002003

jean

paul

pierre

hugo

alex

et voici, ce que souhaiterais, si jamais cela est possible:

001001 jean

001002 paul

002001 pierre

002002 hugo

002003 alex

Je vous ai mis mon fichier en pièce jointe, avec les codes que j'ai réalisé.

En vous remerciant de l'aide que vous pourrez m'apporter,

Alex

Bonjour,

ceci peut être :

Private Sub CommandButton1_Click()

'bouton chercher

Dim code As Integer

Dim desi As Integer

Dim sLstcode As String

Dim sLstdesi As String

With Worksheets("feuil1")

For code = 2 To 50

If .Cells(code, 3) <> 0 Then

sLstcode = sLstcode & vbCrLf & .Cells(code, 1) & " - " & .Cells(code, 2)

End If

Next code

' For desi = 2 To 50

' If .Cells(desi, 3) <> 0 Then

' sLstdesi = sLstdesi & vbCrLf & .Cells(desi, 2)

' End If

' Next desi

End With

MsgBox ("les codes et les désignations sont:" & sLstcode & sLstdesi)

End Sub

Bonjour,

Merci beaucoup pour votre aide. Cela fonctionne parfaitement.