Discussion :

[Olivierporcinet]

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

[Menhir]

Je ne vois pas comment faire avec une variante texte.

Ce n'est pourtant pas bien compliqué si on prend la peine d'un peu regarder la macro...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Bouton2_Clic()
    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

Cela dit, il serait plus simple de passer par un Find.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Bouton2_Clic()
    Dim c As Range
    c = Range("A:A").Find(InputBox("Enter la référence"))
    If Not c Is Nothing Then 
        c.Select
        c.Interior.ColorIndex = 8
    End If
End Sub

[Olivierporcinet]

Merci


Code erreur lorsque je tape seulement une lettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c = Range("A:A").Find(InputBox("Enter la référence"))

Erreur d’éxécution ‘13’ :

Incompatibilité de type

[Olivierporcinet]

De plus, lors de ma sélection, la cellule se colorie bien en bleue mais reste dans cette couleur même quand je sors de la cellule.

Hors, aucun problème avec la macro pour recherche date

[Menhir]

Code erreur lorsque je tape seulement une lettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c = Range("A:A").Find(InputBox("Enter la référence"))

J'ai oublié le Set en début d'instruction.

De plus, lors de ma sélection, la cellule se colorie bien en bleue mais reste dans cette couleur même quand je sors de la cellule.

Hors, aucun problème avec la macro pour recherche date

Etant donné que dans la macro que tu présentes il n'y a rien qui puisse modifier la couleur de la cellule "quand tu en sors", je suppose qu'il doit y avoir ailleurs une autre macro qui réalise ça.

[Olivierporcinet]

Merci beaucoup.

Bonne journée