Mettre plusieurs résultats dans une inputbox

Pad'z -  
 Padz -
Bonjour, voila j'utilise VBA depuis peu et je suis bien embêter.

Mon code devrait me servir à identifier, dans un tableau, toutes les factures d'un client à partir de son nom. Le problème est que je n'ai aucune idée de comment faire car il ne m'affiche que la première facture qu'il trouve et je voudrais qu'il les affiche toute.


Sub Bouton23_QuandClic()
Dim nomclient As String
Dim ligne As Integer
Dim facture As String
nomclient = InputBox("Entrer le nom du client")
ligne = 2
facture = ""
For ligne = 2 To 200
If Cells(x, 3) = "" Or Cells(x, 3) <> nomclient Then
ElseIf Cells(x, 3) = nomclient Then
facture = Cells(x, 9)
End If
Next
MsgBox ("facture:")

End Sub


Merci d'avance pour votre réponse!



A voir également:

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
bonjour,

Ben
For ligne
et
 If Cells(x, 3)
avec un x qui deboule de je ne sais ou , c'est un peu normal
0
Padz
 
Pour que tout le monde comprenne je voulais changer x par ligne, x =ligne en fait mais j'étais tellement dans mon truc (et fatigué) que j'ai pas tout changer. Excusez moi!
Si jamais vous savez je suis toujours preneur
0