Recherche par lettre alpha et sa position

[maval]

Bonjour,

Voila j'ai dans une feuille excel environ 400 races de chien. J'aimerai a l'aide de mon formulaire, rechercher par lettre Alpha et ensuite par le nom dans la listbox et sa position de la cellule?

Je vous remercie de votre aide

Cordialement

Max

 

[JCGL]

Re : Recherche par lettre alpha et sa position

Bonjour à tous,

Peux-tu essayer :
Private Sub ComboBox2_Change()
Dim  Cel As Range
For Each Cel In [Plage]
If Left(Cel, 1) = ComboBox2.Value Then List_membres.AddItem Cel
Next Cel
End Sub

Après avoir nommé Plage la zone de noms

A+ à tous

 

[maval]

Re : Recherche par lettre alpha et sa position

Bonjour JC

Et merci de ton code qui fonctionne très bien.
Pourrez tu me dire comment faire pour que lorsque je click sur le nom dans la listbox je puisse me rendre directement sur la cellule concerner.

Je te remercie par avance et te souhaite une bonne journée

Max

 

[JCGL]

Re : Recherche par lettre alpha et sa position

Bonjour à tous,

peux-tu essayer :

Private Sub ComboBox2_Change()
    Dim Cel As Range
    List_membres.Clear
    For Each Cel In [Plage]
        If Left(Cel, 1) = ComboBox2.Value Then List_membres.AddItem Cel
    Next Cel
End Sub


Private Sub List_membres_Click()
Dim Cel As Range, Choix
Choix = List_membres.Value
For Each Cel In [Plage]
        If Cel = Choix Then Cel.Select
    Next Cel
    Unload UserForm1
End Sub


Private Sub UserForm_Initialize()
    Dim n As Byte
    For n = 65 To 90
        ComboBox2.AddItem Chr(n)
    Next
    ComboBox2.SetFocus
End Sub

A++ Max
A+ à tous

 

[maval]

Re : Recherche par lettre alpha et sa position

Re,

Je te remercie beaucoup sa fonctionne Nickel

Bonne journée

Max