Rechercher une valeur vba

[capita]

Bonsoir,

J'ai une liste de noms et je voudrai pourvoir avec une macro rechercher un noms ou le début d'un noms et pas le millieu.
Par exemple quand je cherche mar le veux pas qu'il me trouve le nom Colmar par exemple mais directement Marguin

voici mon code

Sub Selection_Membre_nom()
Sheets("liste des collégiens").Visible = True
Sheets("liste des collégiens").Select
noms = InputBox("Inscrivez le nom du membres", "Selection de Membre", xpos:=300, ypos:=300)
Range("C4").Select
a = [C4:C702].Find(What:=noms, after:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Address
    If a = "" Then
    End
    Else
    Range(a).Select
    End If
        
End Sub

Merci d'avance

 

[Papou-net]

Re : Rechercher une valeur vba

Bonsoir capita,

Essaie comme ceci :

Sub Selection_Membre_nom()
Sheets("liste des collégiens").Visible = True
Sheets("liste des collégiens").Select
noms = InputBox("Inscrivez le nom du membres", "Selection de Membre", xpos:=300, ypos:=300)
Range("C4").Select
For Each cel In [C4:C702]
  If Left(cel, Len(noms)) = noms Then cel.Select
Next
End Sub

Espérant avoir répondu.

Cordialement.

 

[capita]

Re : Rechercher une valeur vba

Merci Beaucoup
Cela marche a merveille

Merci a ce site où je trouve toujours les solution a mes problemes

🙂🙂