Bonjour,

J'ai créé une macro :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub Bouton2_Clic()
Dim Dat As String
    Dat = InputBox("Enter une date pour voir si réservation")
    If IsDate(Dat) Then
        Var = CDate(Dat)
        c = Application.Match(CDate(Dat) * 1, [A:A], 0)
        If IsNumeric(c) Then
            Cells(c, 1).Select
            Cells(c, 1).Interior.ColorIndex = 8
        End If
    End If
End Sub
Tout fonctionne très bien.


Je désirerais pouvoir remplacer les dates par du texte.

Je m'explique :

J'ai une liste de noms dans la colonne A de ma feuille Xls.

J'aimerais que lorsque je tape un nom dans l'inputbox, que j'arrive directement à la cellule adéquate. Si plusieurs cellules avec le même nom, que la première soit sélectionnée.

Aussi, si possible, si je tape "a", que j'arrive directement sur le premier nom commençant par "a"

Je ne vois pas comment faire avec une variante texte.

Des idées ?

Merci pour votre aide