Rechercher et selectioner un mot commencant par une lettre définie Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
Avatar du membre
crole18
Jeune membre
Jeune membre
Messages : 31
Inscrit le : 24 octobre 2014
Version d'Excel : 2013

Message par crole18 » 20 janvier 2019, 14:49

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
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'451
Appréciations reçues : 428
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 20 janvier 2019, 16:47

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
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'704
Appréciations reçues : 701
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 20 janvier 2019, 17:11

Bonjour,
Bonjour h2so4,
Une proposition pour des boutons (contrôle de formulaire).
Cdlt.
wallonie.xlsm
(22.29 Kio) Téléchargé 20 fois
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
1 membre du forum aime ce message.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
Avatar du membre
crole18
Jeune membre
Jeune membre
Messages : 31
Inscrit le : 24 octobre 2014
Version d'Excel : 2013

Message par crole18 » 20 janvier 2019, 19:23

Merci à vous, je le met en pratique et je reviens vers vous
Bonne soirée.
Amicalement
Bruno
Avatar du membre
crole18
Jeune membre
Jeune membre
Messages : 31
Inscrit le : 24 octobre 2014
Version d'Excel : 2013

Message par crole18 » 20 janvier 2019, 19:25

Super et merci pour votre aide
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message