Discussion :

[polonVBA]

Bonjour,

Je coince sur une recherche de Nom dans ma liste qui se trouve dans la colonne F
Avec la ligne ci-dessous, dans ma procédure, je trouve bien le premier Nom qui commence par DUP, DUPOND par exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Nom = Application.WorksheetFunction.VLookup("DUP", Range("F4:F515"), 1, True)

Ce que je voudrais, mais je n'y arrive pas, c'est de trouver tous les Noms qui commencent par DUP, par exemple: DUPOND, DUPONT, DUPRAT, DUPLOT,...

Si vous pouvez m'aider, MERCI.

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim c As Range, Nom As String, ResAdr As String
Set c = Range("F4:F515").Find("DUP")
If Not c Is Nothing Then
    ResAdr = c.Address
    Do
        Nom = c.Value
        Set c = Range("F4:F515").FindNext(c)
    Loop Until c.Address = ResAdr
End If

[issoram]

Daniel je crois qu'avec ton code tu matches tous les éléments de la colonne qui contiennent DUP pas seulement ceux qui commencent par DUP.

Pour ne récupérer que les noms qui commencent par DUP tu peux essayer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
Dim c As Range
Dim strListeNoms as string
 
strListeNoms=""
 
    For Each c In range("F4:F515").Cells
        If UCase(c.Value) Like "DUP*" Then        'Ucase pour s'affranchir de la casse
            strListeNoms=strListeNoms & " " & c.Value
        End If
    Next c
 
debug.print strListeNoms
 
End Sub

[Daniel.C]

Très juste, au temps pour moi. Personnellement, pour éviter une boucle, je préfère :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim c As Range, Nom As String, ResAdr As String
Set c = Range("F4:F515").Find("DUP")
If Not c Is Nothing Then
    ResAdr = c.Address
    Do
        If LCase(Left(c, 3)) = "dup" Then Nom = c.Value
        Set c = Range("F4:F515").FindNext(c)
    Loop Until c.Address = ResAdr
End If

et, si la casse a une importance :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim c As Range, Nom As String, ResAdr As String
Set c = Range("F4:F515").Find("DUP")
If Not c Is Nothing Then
    ResAdr = c.Address
    Do
        If Left(c, 3) = "DUP" Then Nom = c.Value
        Set c = Range("F4:F515").FindNext(c)
    Loop Until c.Address = ResAdr
End If