Problème dans code recherche.

[Fred]

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.

 

[Franck]

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

 

[excalibur]

bonjour fred franck j ai teste ton code sur 20000 lignes aucun probleme trouve instantement ....si aucune valeur idem je pense que tu as un autre pb il faut d autres info grosseur du progra pc le reste du code ect...salutations

 

[Bebere]

bonsoir à tous,leForum
j'ai essayé pas de problème
mais à mon avis val doit disparaître,c'est un mot clé en vba
à bientôt

 

[Bebere]

re bonsoir
tu peux limiter la recherche à la colonne qui contient ce que tu cherches exemple
Dim plage As Range
Set plage = Range('A1:A10')
plage.Find(MaVal).Select
à bientôt

 

[Fred]

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.