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é.
Pourquoi?
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
Partager