Extraction de chiffres et opérateurs avec REGEX
Bonjour à tous,
J'aimerais ressortir d'une chaines de caractères >=4 && <5 les chiffres 4 et 5 et les opérateurs >= et <.
J'ai essayé avec les expressions régulières mais je n'obtient que le le premier chiffre (4) et le premier opérateur (>=).
regexValeurs.Pattern = "[0-9]+"
regexOperateurs.Pattern = "[\+\-\*\/\>\<\=]+|>=|<="Merci d'avance de votre aide.
Bonjour,
Ceci:
Function RegexChiffresOperateurs(valComp As String, plg As Range)
Dim regexValeurs As Object
Dim regexOperateurs As Object
Dim inputString As String
Dim valeursMatches As Object
Dim operateursMatches As Object
Set regexValeurs = CreateObject("VBScript.RegExp")
Set regexOperateurs = CreateObject("VBScript.RegExp")
regexValeurs.Pattern = "[0-9]+"
regexOperateurs.Pattern = "[\+\-\*\/\>\<\=]+|>=|<="
valeurs = plg.Value
' Parcourir les valeurs pour évaluer la condition
For i = 1 To UBound(valeurs, 2)
' Chaîne d'exemple avec une condition
inputString = valeurs(1, i)
' Extraire les valeurs de la condition
Set valeursMatches = regexValeurs.Execute(inputString)
' Parcourir et afficher les valeurs extraites
For Each valeurMatch In valeursMatches
'Debug.Print "valeur extraite : " & valeurMatch.Value
valeur = valeur & ", " & valeurMatch.Value
Next valeurMatch
' Extraire les opérateurs de la condition
Set operateursMatches = regexOperateurs.Execute(inputString)
' Parcourir et afficher les opérateurs extraits
For Each operateurMatch In operateursMatches
'Debug.Print "Opérateur extrait : " & operateurMatch.Value
operateur = operateur & ", " & operateurMatch.Value
Next operateurMatch
Next i
RegexChiffresOperateurs = "Valeur extraite : " & valeur & Chr(10) & "Opérateur extrait : " & operateur
End FunctionCdlt
Bonjour Arturo,
Merci pour ton retour.
J'obtiens l'erreur : #NOM?
Bonjour,
Pourtant dans le fichier joint, il n'y a pas d'erreur, voir le résultat en image ci-dessous.
- Avez-vous modifier quelque chose?
Cdlt
Bonsoir Arturo,
Après avoir retéléchargé le fichier, j'ai constaté que le pattern n'extrait que la partie gauche de la condition.
Par exemple, si la condition est >=19 && <20, le regex n'extrait que la première valeur trouvée, soit 19, ainsi que le premier opérateur, soit >=
Salut,
Tu as de bon testeurs de RegExpression notamment celui-ci ou tu as pas mal d'exemples.
Bonjour,
voici la partie modifiée!
regexValeurs.Global = True
regexValeurs.Pattern = "[0-9]+"
regexOperateurs.Global = True
regexOperateurs.Pattern = "([><]=?)|\b=" Cependant, il subsiste un petit problème, dans la colonne "A", il ne peut pas détecter le signe"=" dans la chaîne "=0", car apparemment le format n'est pas bon, normalement le contenu de la cellule devrait être "0", le signe "=" ne doit pas apparaitre, il ne l'est pas dans les autres colonnes où c'est =0)
Cdlt
Bonjour Arturo,
Merci pour tes modifications.
normalement le contenu de la cellule devrait être "0", le signe "=" ne doit pas apparaitreLe signe "=" devant "0", ou tout autre signe devant des nombres, je m'en sers pour évaluer, par exemple, l'expression "5,5=0" à la ligne 6 ou
"0=0" à la ligne 7, sinon on finira par se trouver devant une expression
incorrecte, même si on devrais comparer l'expression "0 0".
Comme le signe "=" est également affiché dans le tableau. Il est donc logique qu'il soit extrait dans les résultats.
Le signe "=" devant "0", ou tout autre signe devant des nombres, je m'en sers pour évaluer, par exemple, l'expression "5,5=0" à la ligne 6 ou
"0=0" à la ligne 7, sinon on finira par se trouver devant une expression
Si le signe est compris entre 2 valeurs comme vous le signalé, il n'y a pas de problème et il est récupéré, or dans le tableau, à la ligne 6 ou 7, il y a "=0", donc, rien devant "=", et c'est uniquement dans ce cas que le signe "=" n'est pas détecté.
Re,
il y a "=0", donc, rien devant "=", et c'est uniquement dans ce cas que le signe "=" n'est pas détecté.Une idée pour permettre de détecter le signe "=" ?
Ceci devrait aller:
regexOperateurs.Pattern = "([=><]=?)|\b="Merci Arturo.
Tous les éléments, valeurs et opérateurs, sont extraits.
Merci Arturo et merci Jean-Paul pour le lien de tests des REGEX.
bonjour
avec ce pattern j'ai tout les matchs des opérandes
"([^\w]{1,2})(\d+)"traduction
un caractère particulier et peut être un autre + une valeur numerique (le tout collé)
les valeurs numerique isolées sont exeptées
mais après pour diséquer
Function regx(txt As String) As String
'patricktoulon
Set regex = CreateObject("VBScript.RegExp")
With regex
.Global = True
.MultiLine = True
.IgnoreCase = False
.Pattern = "([^\w]{1,2})(\d+)"
End With
Set matchs = regex.Execute(txt)
Debug.Print "occurences " & matchs.Count
If matchs.Count > 0 Then
For i = 0 To matchs.Count - 1
Debug.Print matchs(i)
Next
End If
Debug.Print "********************"
End Function
Sub test()
regx [a2].Text
regx [b2].Text
regx [c2].Text
regx [d2].Text
regx [e2].Text
End Sub
Re,
Dernier petit commentaire. Comme il faut toujours mieux prévenir que guérir, je te conseille fortement de tester ton Expression avant de lancer un Execute. Ceci afin d'éviter toutes déconvenues qui pourraient surgir.
Bonsoir Patrick, Jean-Paul, le forum,
Merci pour ton code, Patrick.
Cependant, les résultats que j'ai obtenus diffèrent des tiens.
J'ai tenté de créer une autre fonction basée sur ton code, afin de comparer les valeurs de la colonne F avec la plage A:E, mais je n'ai pas obtenu le résultat attendu.
Jean-Paul :
je te conseille fortement de tester ton Expression avant de lancer un ExecuteComment faire cela ?
Merci.
Re,
Tu as la méthode .Test pour tester si l'expression renvoie quelque-chose.
Bonjour,
J'ai essayé d'utiliser le résultat du test logique pour afficher une couleur et un message d'alerte correspondant, cependant la nouvelle fonction personnalisée adaptée me retourne l'erreur #VALEUR!
Merci d’avance.
Salut,
Tu le sort d'où sColEntete ?
Cette variable me sert pour récupérer l'en-tête de la colonne ou le test a été concluant.
Re,
Cette variable me sert pour récupérer l'en-tête de la colonne ou le test a été concluant.
Déclarée en public ?