Discussion :

[byloute]

Bonjour,

Avant, avec le code ci-dessous, je pouvais supprimer la chaine "ABCD0012345".
Or maintenant, ma cellule contient 2 fois une chaine de ce type. Du coup, c'est la première qui est supprimée au lieu de la dernière uniquement.

Sauriez-vous me dire quel petit ajustement je peux faire pour que seule la 2e et dernière chaine "ABCDxxxxxxx" soit supprimée dans ma cellule ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim regEx As Object
        Dim strInputs As Variant
        Dim strInput, strOutput As String
            strInputs = Array(ActiveCell.Offset(0, 3).Value)
            Set regEx = CreateObject("VBScript.RegExp")
 
            regEx.Pattern = "ABCD[0-9]{7}"
 
            For Each strInput In strInputs
                    strOutput = regEx.Replace(strInput, "")
                    ActiveCell.Offset(0, 3).Value = strOutput
            Next

Merci à tous pour votre aide,
Laurent

[Nullosse]

Salut,
j'ai une solution à proposer mais ce n'est certainement la plus optimisée :

Code :

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

1
2
3
4
5
6
7
8
9
Sub TestSuppression()
Dim regEx As Object
Dim strInput, strOutput As String
Set regEx = CreateObject("VBScript.RegExp")
regEx.Pattern = "(ABCD[0-9]{7})(.*?)(ABCD[0-9]{7})(.*)"
strInput = "ABCD0012345KKABCD1156789EIEIE1293"
strOutput = regEx.Replace(strInput, "$1$2$4")
Debug.Print strOutput
End Sub

le résultat est :

ABCD0012345KKEIEIE1293

Le principe est de capturer des groupes et de pas restituer le groupe 3

Nullosse le plus nul des apprentis programmeurs