probleme sur une recherche

[DAM]

bjr le forum,

voici ma procédure:
Private Sub ComboBox1_Change()
For Each Row In Worksheets('liste').UsedRange.Rows
If Row.Cells(1) = CDbl(ComboBox1) Then
ComboBox2 = Row.Cells(2)
Label3 = Row.Cells(3)
Exit For
End If
Next Row
End Sub
Mais dans ma 'liste' j'ai numérique et du texte.
avec le numérique pas de probleme ça marche, mais avec le texte ça ne marche pas.
De plus je voudrai que si je saisi des données qui ne sont pas dans la liste il me renvoi un msgbox.
merci pour votre aide
Dam

 

[dam]

rebjr j'ai réusi à resoudre le probleme de texte et numerique.
voici ma macro


Private Sub ComboBox1_Change()

If IsNumeric(ComboBox1) Then
For Each Row In Worksheets('liste').UsedRange.Rows
If Row.Cells(1) = CDbl(ComboBox1) Then
ComboBox2 = Row.Cells(2) '<== C'est ici qu'intervient le remplacement
Label3 = Row.Cells(3)

Exit For
End If
Next Row
End If
For Each Row In Worksheets('liste').UsedRange.Rows
If Row.Cells(1) = ComboBox1 Then
ComboBox2 = Row.Cells(2) '<== C'est ici qu'intervient le remplacement
Label3 = Row.Cells(3)

Exit For
End If
Next Row

mais j'ai un probleme
ex combobox1=510 combobox2=filou et label3=dk
c'est normal, mais si je mets:
ex combobox1=510xxxx combobox2= tjr 'filou' et label3= tjr 'dk' alors que voudrai un msgbox du style 'navire non dans la base' et combobox2='' et label3 =''.

merci dam