recherche lettre

[kinel]

bonjour à tous

j'ai fait un onglet sur une feuille qui me permet de trouver dans la liste des écritures les mots d'une colonne commençant par telle ou telle lettre
ça donne ça

Sub AA()
'
' AA Macro
'

Cells.Find(What:="A", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=True).Activate
End Sub


comment pourrais je adapter cette macro pour que la recherche se limite à la première lettre
ici pour la recherche du A que la recherche s'arrête successivement sur toutes les lignes commençant par A

merci de votre aide

kinel

 

[Guest]

Re : recherche lettre

Bonjour Kinel,

Voici un exemple de boucle de recherche.

Sub Recherche()
    Dim adr As String
    Dim c As Range
    Dim rep As Integer
   
    With Range("Feuil1!A:A")
        Set c = .Cells.Find(What:="A*", LookIn:=xlValues, LookAt:= _
                      xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
                      True, SearchFormat:=True)
        If Not c Is Nothing Then
            adr = c.Address
            Do
                c.Activate
                rep = MsgBox("Continuer la recherche?", vbYesNo, "Recherche A*")
                If rep = vbYes Then
                    Set c = .FindNext(c)
                Else
                    Exit Do
                End If
            Loop While Not c Is Nothing And c.Address <> adr
        End If
    End With
    
End Sub

A+

 

[job75]

Re : recherche lettre

Bonjour kinel, Hasco,

J'ai peut-être mal compris, mais j'ai fait ça :

Sub AA()
If Intersect(ActiveCell, Range("A:A")) Is Nothing Then Range("A1").Select
Range("A:A").Find(What:=[COLOR="Red"]"A*"[/COLOR], After:=ActiveCell, LookIn:=xlValues, LookAt:= _
[COLOR="Red"]xlWhole[/COLOR], SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=True).Select
End Sub

La recherche se fait ici sur la colonne A.

La macro peut être lancée par un bouton, à chaque clic on passe à la cellule suivante.

A+

 

[kinel]

Re : recherche lettre

merci pour ces réponses rapides

Hasco, je pense que le recourt au msgbox n'est pas très adaté pour mon travail car le but du jeu est de trouver rapidement une ligne.. Le fait de multiplier les interventions va ralentir les actions d'utilisation.

je vais essayé la proposition de job75

en fait le but est de surtout d'arréter la recherche sur la première lettre du premier mot de chaque ligne de mon tableau

Kinel

 

[kinel]

Le gagnant est :

l'heureux gagnant est Job75 qui bénéficie de toute ma reconnaissance pour sa réponse qui correspond pil poil à ce que je cherchais😉

prix du jury à Hasco qui a été le premier à proposer sa réponse🙂

merci tout plein😀

Kinel

 

[Guest]

Re : recherche lettre

Re,

comment pourrais je adapter cette macro pour que la recherche se limite à la première lettre
ici pour la recherche du A que la recherche s'arrête successivement sur toutes les lignes commençant par A

J'avais mal compris sans doute.

A+