Recherche via inputbox

Bonjour,

J'ai le code suivant qui me permet de taper un nom et d'y accéder directement via une inputbox:

Sub Bouton3_Cliquer()

Dim Var As String, c As Long

Var = InputBox("Enter la référence")

c = Application.Match(Var, [A:A], 0)

If IsNumeric(c) Then

Cells(c, 1).Select

Cells(c, 1).Interior.ColorIndex = 8

End If

End Sub

Tout fonctionne mais j'aimerais pouvoir juste taper une ou plusieurs lettres et accéder à la première cellule contenant cette/ces lettre(s).

Ex. : au lieur de taper "Albert", juste pourvoir taper "a".

Des idées ?

merci.

Bonne journée

Bonjour,

J'utiliserai le Find pour ce cas :

Sub Bouton3_Cliquer()
Dim Var As String, c As Long
Var = InputBox("Enter la référence")
Cells.Find(What:=Var, After:=Cells(1,1), LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
If IsNumeric(c) Then
Cells(c, 1).Select
Cells(c, 1).Interior.ColorIndex = 8
End If
End Sub

Je suis encore "débutant" en vba donc une autre solution est peut-être plus appropriée.

Si vous pouviez mettre le fichier en pièce jointe, je pourrai tester le code.

Bien à vous,

Bonjour,

Utilise l'astérisque :

c = Application.Match(Var & "*", [A:A], 0)

bonjour

il faut faire une listbox ses plus visuel

voila un essai

A+

Maurice

Un grand merci.

Bon week-end