M
Mathieu
Guest
Bonsoir,
Dans la classeur TOTO, j' ai mis une feuille recherche qui me permet à l' aide d' un USF d' aller chercher dans la feuille base située sur un autre disque la valeur saisie et de me recopier la ligne contenant cette valeur sur cette feuille recherche.
Tout fonctionne sauf la recherche d' un N° de téléphone. En effet si je saisis par exemple 0612345678 ce n'est pas touvé. Par contre si je saisis 612345678, c' est trouvé. On dirait que la recherche s' arrête à 9 caractéres. Auriez-vous une idée sur l' erreur ? Merci.
Mon code:
Private Sub CommandButton1_Click()
Dim Valeur As String
Dim Lig As Long
Dim Report As Range
Dim Wb As Workbook
Valeur = TextBox1.Value
If Valeur = '' Then Exit Sub
Set Wb = Workbooks.Open('J:\\TEMP\\base.xls')
On Error Resume Next
Lig = Cells.Find(Valeur, Range('A1'), , xlByRows).Row
If Err > 0 Then
MsgBox 'La valeur cherchée, ' & Valeur & ', n'existe pas '
Wb.Close SaveChanges:=False
Unload UserForm3
Exit Sub
End If
Rows(Lig).Interior.ColorIndex = xlNone
Set Report = Rows(Lig)
Windows('TOTO.xls').Activate
Sheets('RECHERCHE').Select
Lig = Range('A90').Row
Rows(Lig) = Report.Value
Wb.Close SaveChanges:=False
Unload UserForm3
Sheets('RECHERCHE').Select
End Sub