Probleme de programmation de facture avec VBA

[ti-punch]

bonjours a tous!!
Voila mon probleme :

j'ai un inventaire de materiels et les prix qui vont avec sous excel;
Je voudrai faire en sorte que en cliquant sur mon bouton "recherche" une msgbox s'ouvre me demandant quel objet je souhaite rechercher puis en entrant cette objet ou la partie du nom, il le trouve;
puis il faudrai que cela selectionne la cellule en question.

j'ai reussi a ordonner la recherche mais je ne sait pas comment faire en sorte que je puisse choisir parmis les different resultats pour selectionner une cellule seulement:





Sub RecherchePhrases()


Dim nom, c, msg
Dim recherche As String
Dim NombrePhrasesTrouvées As Integer
NombrePhrasesTrouvées = 0

nom = Trim(Application.InputBox("Taper un nom", "Recherche"))

If nom = False Or nom = "" Then
Exit Sub
End If

Sheets("Feuil1").Activate


For Each c In Range("B4:C15")
If c.Value Like "*" & nom & "*" Then

NombrePhrasesTrouvées = NombrePhrasesTrouvées + 1

recherche = c.Value


msg = msg & recherche & vbTab & vbCrLf
End If
Next




MsgBox NombrePhrasesTrouvées & " phrase(s) trouvé(s) " _
& Chr(10) & Chr(10) & msg, vbInformation, "Resultat de " & "[" & nom & "]"


End Sub









je ne sait pas si j'ai été asser clair, mais merci si quelqu'un pouvait m'aider.

 

[zeb]

Lire le règlement.