Bonjour,

Je cherche au final à récupérer la ligne des cellules dont le contenu contient des valeurs texte particulières du type, A1, A2, A2, ....,ou A9
Le code suivant m'indique une erreur d'incompatibilité.
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
23
24
25
26
27
28
29
30
31
32
Private Sub Actualisation()
    'On actualise les résultats avec les valeurs des cellules de la feuille Nouveau Calendrier
    Dim colonne As Integer
    Dim plage As Range
    Dim c As Range
    colonne = 2 ' pour la colonne B
 
    With Worksheets("Nouveau Calendrier")
        For Each c In Columns(9)
            MsgBox MYMATCH(c.value, "A[0-9]{1}")
        Next c
    End With
End Sub
 
Function MYMATCH(strValue As String, strPattern As String, Optional blnCase As Boolean = True) As String
    Dim objRegEx As Object
    Dim strPosition As Integer
    Dim RegMC
 
    ' Create regular expression.
    Set objRegEx = CreateObject("VBScript.RegExp")
    With objRegEx
        .Pattern = strPattern
        .IgnoreCase = blnCase
        If .test(strValue) Then
            Set RegMC = .Execute(strValue)
            MYMATCH = RegMC(0).firstindex + 1
        Else
            MYMATCH = "no match"
        End If
    End With
End Function
Pourquoi?