Recherche et tri sur référence partiel

Bonjour,

Etant dans une démarche de recherche pour améliorer mon fichier de gestion, je souhaiterai de l'aide pour établir ou modifier un code.

En effet, j'aimerai avoir la possibilité, suivant mon fichier, effectué une recherche de référence sans connaitre toute la référence, et que au vu des résultat cela m'affiche les champs correspond a cette recherche comme quand on fait un tri.

Dans mon fichier, le bouton "GO" lance une recherche, mais sur une référence complète. peut être en modifiant ce code?

Si vous avez une idée, merci pour votre aide.

Cordialement.

Bonjour,

Proposition à tester et adapter éventuellement. A la demande de référence vous pouvez taper deux, 3, 4, .... caractères

J'ai modifié le module Sub base_de_données en Sub base_de_données_1 ()

Il n'y a pas de bouton pour lancer la macro.

Sub base_de_données_1()
Dim reference As String 'reference du produit
Dim i As Integer 'numero de la ligne ou est la reference dans le tableau de "base de données"
Dim derLig As Integer 'dernière ligne ou il y a une référence
derLig = Range("A" & Rows.Count).End(xlUp).Row
Sheets("base de données").Select 'selectionne la feuille base de données
reference = InputBox("Donner la reference partielle du produit", "REFERENCE PRODUIT", reference)
reference = UCase(reference) 'converti le reference rentré en majuscules si necessaire
If reference = "" Then 'si la reponse est vide on quitte le programme
    End
End If
'Filtrage sur la référence
ActiveSheet.Range("$A$2:$I" & derLig).AutoFilter Field:=1, Criteria1:="=*" & reference & "*", _
        Operator:=xlAnd
End Sub

Bonjour,

Merci ce code fonctionne impec, si je peut soumettre une chose. Serait'il possible a la fin du tri que l’ascenseur de défilement se retrouve en haut?

J'ai essayer avec:

ActiveWindow.SmallScroll Down:=-80

Mais ça ne fonctionne pas.

Une idée?

Re,

Ajouter le code en rouge dans la procédure

Sub base_de_données_1()

Dim reference As String 'reference du produit

Dim i As Integer 'numero de la ligne ou est la reference dans le tableau de "base de données"

Dim derLig As Integer 'dernière ligne ou il y a une référence

derLig = Range("A" & Rows.Count).End(xlUp).Row

Sheets("base de données").Select 'selectionne la feuille base de données

reference = InputBox("Donner la reference partielle du produit", "REFERENCE PRODUIT", reference)

reference = UCase(reference) 'converti le reference rentré en majuscules si necessaire

If reference = "" Then 'si la reponse est vide on quitte le programme

End

End If

'Trouver la ligne de la 1ère reference

For i = 3 To derLig

If InStr(Cells(i, 1), reference) > 0 Then Exit For

Next i

'Filtrage sur la référence

ActiveSheet.Range("$A$2:$I" & derLig).AutoFilter Field:=1, Criteria1:="=*" & reference & "*", _

Operator:=xlAnd

'Active la cellule de la 1ère reference

Range("A" & i).Activate

End Sub

Un grand merci.

Cela se passe nickel.