Discussion :

[Michel_M]

Bonjour,

Peu habitué aux relations régulières, j'essaie de vérifier la bonne syntaxe de mesures de poids par ex: 100G ou 1,5L ou 5KG... en me basant sur le tuto de Cafeine (merci)

j'ai donc écris

Code :

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

reg.Pattern = "([0-9]|\,|G|KG|L|CL|ML)"

cela fonctionne mais si il y a une erreur de saisie, par ex 5G9 , elle n'est pas détectée et renvoie 5G9.

j'ai essayé avec les symboles ^ en début et $ à la fin mais...

D'avance merci

[Menhir]

Euh... et quel est le rapport avec Excel ou VBA Excel ?

[Michel_M]

Bonjour Menhir,

en VBA excel (forum macros et VBA excel)

[patricktoulon]

re
c'est normal ton pattern est faux
"([0-9]|\,|G|KG|L|CL|ML)"

la tu demande 1 chiffre je dit bien 1 et un caractere tu rajoute derriere toutes les possibilité de caractere

sauf que le premier "OU"representé par"|" suit le nombre autrement dit il pourrais presque te sortir toutes les combinaison il
toute les combi contenant un chiffre et au moins 1 lettre ou un autre caractre (,.: etc....)

1.5L= 1chiffre 1caractere 1chiffre,1caractere
5K=1chiffre 1caractere

je srait toi puisqu' apparement il te faudrait 2 patern je ferait autrement avec un simple split
a mediter

[patricktoulon]

re

un truc plus simple du genre

Code :

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

1
2
3
4
5
6
7
Sub test()
    maVar = "j'ai acheté 5Kg de bannanes pour mon singe et 2.5L litres de lait pour mon chat et 100K de salade ma tortue adore ca"
    tabl = Split(maVar, " ")
    For i = 1 To UBound(tabl)
        If Val(tabl(i)) > 0 Then Debug.Print tabl(i)
    Next
End Sub

[Michel_M]

Merci de ta réponse:

Ok pour le split (c'était déjà fait)mais ce que je voudrais c'est vérifier la bonne syntaxe par ex saisie:1,5L correct 1L,5 incorrect-->#valeur

concernant ta remarque: "la tu demande 1 chiffre je dit bien 1 " ma bidouille fonctionne avec plusieurs chiffres par ex 105K fonctionne

[patricktoulon]

oui ta bidouille fonctionne peu etre mais pas avec un decimal c'est ce que j'essayais de te dire
il te faut 2 pattern
d'ailleur je me demande bien comment elle fonctionne car chez moi les matchs sont les memes nombre que le len complet

pour verifier c'est simple tu a la fonction right

[patricktoulon]

regarde

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
Sub test()
    maVar = "j'ai acheté 5Kg de bannanes pour mon singe et 2L,5 litres de lait pour mon chat et 100K de salade ma tortue adore ca puis 3,4L litre de bierre pour moi"
    tabl = Split(maVar, " ")
    For i = 1 To UBound(tabl)
        If Val(tabl(i)) > 0 Then
            n = tabl(i)
            If n Like "*,*" Then
            If IsNumeric(Split(n, ",")(0)) Then Debug.Print n Else Debug.Print n & "  " & "faux"
            Else
            If Val(n) > 0 Then Debug.Print n
 
            End If
     End If
   Next
End Sub