Discussion :

[bastien]

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?

[Soraphiroth]

A quelle ligne est l'erreur ? La valeur cherchée peut-elle s'écrire A0 ?

[bastien]

Bonjour,

Je viens de trouver mon erreur, comme à chaque fois au moment où je poste
L'erreur était à la ligne 9 sur la boucle for each ... next.

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 = 9 ' pour la colonne I
 
    With Worksheets("Nouveau Calendrier")
        For Each c In .Range(Cells(6, colonne), Cells(38, colonne))
            MsgBox c.value & " - " & 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

Merci

[mercatog]

Utilise plutôt

Code :

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

For Each c In .Columns(9).Cells

!!Toutes le cellules de la colonnes seront scrutées. mauvaise idée.

Ou bien pour tenir compte seulement des cellules comportant des valeurs (une colonne vide engendre une erreur)

Code :

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

For Each c In .Columns(9).SpecialCells(xlCellTypeConstants)

PS, Dans ta réponse, attention à l'écriture, il fallait faire

Code :

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

.Range(.Cells(6, colonne), .Cells(38, colonne))

les points avant Cells sont "obligatoires"