F
Fred
Guest
Bonjour,
A l' aide du bouton chercher d'un USF, je sélectionne la ligne contenant la valeur saisie dans une textbox. J' ai mis le code suivant dans le bouton:
Private Sub CommandButton1_Click()
Sheets('feuil1').Activate
Dim Val As String
Dim lig As Long
Dim report As Range
Val = TextBox1.Value
If Val = '' Then Exit Sub
On Error Resume Next
lig = Cells.Find(Val, Range('A1'), , xlByRows).Row
If Err > 0 Then
MsgBox 'La valeur cherchée, ' & Val & ', n'existe pas '
UserForm1.Show
Exit Sub
End If
Rows(lig).Activate
Unload UserForm1
End Sub
Mon problème est la lenteur de la recherche surtout lorsque la valeur n' existe pas.
Donc peut-on modifier ce code sachant que la recherche doit se faire en colonne C sur 10000 lignes maxi ?
Merci.
A l' aide du bouton chercher d'un USF, je sélectionne la ligne contenant la valeur saisie dans une textbox. J' ai mis le code suivant dans le bouton:
Private Sub CommandButton1_Click()
Sheets('feuil1').Activate
Dim Val As String
Dim lig As Long
Dim report As Range
Val = TextBox1.Value
If Val = '' Then Exit Sub
On Error Resume Next
lig = Cells.Find(Val, Range('A1'), , xlByRows).Row
If Err > 0 Then
MsgBox 'La valeur cherchée, ' & Val & ', n'existe pas '
UserForm1.Show
Exit Sub
End If
Rows(lig).Activate
Unload UserForm1
End Sub
Mon problème est la lenteur de la recherche surtout lorsque la valeur n' existe pas.
Donc peut-on modifier ce code sachant que la recherche doit se faire en colonne C sur 10000 lignes maxi ?
Merci.