Problème dans code recherche.

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.
 
F

Franck

Guest
Bonjour Fred

J'ai déjà eu un probleme qui ressemble a celui la - Je pense que tu pourais t'inspirer de ce fil et l'adapter a ton cas

Lien supprimé

La gestion d'erreur n'est peut etre pas la meilleur

A+ Franck
 
F

Fred

Guest
Bonsoir à tous,

Merci pour vos réponses. Je viens de découvrir que mon soucis, vient en fait des listes déroulantes que contient mon fichier. J' ai 12 colonnes dont 5 ont des listes déroulantes jusqu' à la ligne 10000.
Je vais chercher une autre solution pour les renseigner sans liste déroulante.

Merci. A plus. Fred.
 

Discussions similaires

Statistiques des forums

Discussions
300 822
Messages
1 987 482
Membres
209 864
dernier inscrit
mrossi