Bonjour Forum,

je reviens avec un besoin d'être plus précis dans ce sous programme ou l'on recherche la présence d'une chaine caractère dans colonne contenant des abréviations. Le problème est qu'il trouve toute les occurences et que je voudrais seulement ceux qui débutent par cette chaine de caractère.

exemple : recherche RA : trouve RA, ICRA, FRA .

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
16
17
18
19
20
21
22
Function NbOccurrences(ByVal strMot As String) As Integer

' strMot : Mot recherché

Dim i As Integer
Dim Xls As Worksheet
Set Xls = ThisWorkbook.Worksheets("Résultats")
Set c = Xls.Columns(6).Find(strMot, LookIn:=xlValues, lookat:=xlPart)

    If Not c Is Nothing Then
        firstAddress = c.Address
        fmInterfaceSec.ListView2.ListItems.Clear
        Do
         '   MsgBox (c.Address)
            With fmInterfaceSec.ListView2
                .ListItems.Add , , Xls.Cells(c.row, 6) ' abrev
                ...etc...
                End With
               Set c = ActiveSheet.Columns(6).FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
End Function
je crains de devoir les vérifier un à un...et je ne vois pas comment

Merci de votre aide

Bo