Rechercher et selectioner un mot commencant par une lettre définie

Bonjour le Forum,

J'ai dans un classeur nommé "Annuaire", des noms en colonne "B"

J"ai créé des boutons "A,B,C,D, ..........."

Je souhaiterais connaître le code VBA qui par le clic, sélectionnerais le premier nom

commençant par la lettre cliquée.

Merci d'avance pour vos réponse

Amicalement

Bruno

bonjour,

une proposition, code vba pour recherche A,B ou C

Sub annuA()
    chercheannu ("A")
End Sub
Sub annuB()
    chercheannu ("B")
End Sub
Sub annuC()
    chercheannu ("C")
End Sub
Sub chercheannu(t)
    Set re = Range("b:b").Find(t & "*", lookat:=xlWhole)
    If Not re Is Nothing Then
        re.Select
    End If
End Sub

Bonjour,

Bonjour h2so4,

Une proposition pour des boutons (contrôle de formulaire).

Cdlt.

Public Sub SearchNames()
Dim shpName As String, shpText As String, Cell As Range
    shpName = Application.Caller
    With ActiveSheet
        shpText = .Shapes.Range(shpName).TextFrame.Characters.Text
        shpText = shpText & "*"
        Set Cell = .Columns(2).Find(what:=shpText, LookIn:=xlValues, lookat:=xlPart)
        Cell.Select
    End With
End Sub

Merci à vous, je le met en pratique et je reviens vers vous

Bonne soirée.

Amicalement

Bruno

Super et merci pour votre aide