[XL-2007] identifier format d'un text dans une cellule [Résolu]

[octane]

Bonjour la communauté,
J'ai des difficultés à programmer un controle de format de cellule.
Je voudrais verifier que le contenu d'une cellule est du format :
3 lettres - 3 lettres - 6 chiffres - 1 chiffre et n'importe quoi apres
Ex :
EQU-TAT-111102-1X

si ce format est respecté je ne fait rien sinon je copie le contenu de la cellule dans un autre onglet.
Comment detecter si le format est respecté?
Merci

[AlainTech]

Bonjour,

Les Expressions rationnelles sont tout-à-fait indiquées pour ce genre de vérification.

Fais une recherche dans le forum et/ou sur Google avec le mot clé regexp.

[octane]

c'est quoi une expression rationnelle.
regexp d'apres certain site ce sont des expression regulieres.
C'est la meme chose ?

[octane]

j'ai ecrit un code grace a ta recommendation avec la fonction reg exp.
Mon code marche mais renvoie faux pour la variable trouve alors que le format est bon type AAA-AAA-111111-1

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Set rationelleExp = CreateObject("vbscript.regexp")
LastLig1 = Worksheets("2011 Livraison").Cells(Worksheets("2011 Livraison").Rows.Count, "A").End(xlUp).Row
rationelleExp.Global = True
rationelleExp.Pattern = "(^[A-Z]{3}-[A-Z]{3}-[0-9]\d{6}-[0-9]\d{1,2}[A-Z]{0,2}$)"
For Each c In sh4.Range("A2:A" & LastLig1)
    If c.Value <> "" Then
    machaine = c.Value
    trouve = rationelleExp.test(machaine)
        If trouve = 1 Then
        Else
        Set dest = Sheets("anomalies").Range("A65536").End(xlUp).Offset(1, 0)
        dest = machaine
        dest.Offset(0, 1) = "Format du numero de transaction non conforme "
        End If
    Else
    End If
Next c

Mon pattern est faux?
En gros la question est mon patern est il bon pour un format type:
AAA-AAA-111111-1
apres le -1 je peux, mais ce n'est pas systématique, avoir -AA

[Qwazerty]

Salut
essai comme ça

Code :

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
Sub ExpressionReguliere()
'Activer les références Outils->Références et cocher dans la liste Microsoft VBScript RegularExpression
Dim RationelleExp As New RegExp
Dim LastLig1 As Integer
Dim c As Range, Dest As Range
Dim MaChaine As String
Dim Trouve As Boolean
'Set RationelleExp = CreateObject("vbscript.regexp")
 
With ThisWorkbook.Worksheets("2011 Livraison")
    LastLig1 = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
 
RationelleExp.Global = True
RationelleExp.Pattern = "(^[A-Z]{3}-[A-Z]{3}-[0-9]{6}-[0-9]{1,2}[A-Z]{0,2}$)"
For Each c In Feuil1.Range("A2:A" & LastLig1)
    If c.Value <> "" Then
    MaChaine = c.Value
    Trouve = RationelleExp.test(MaChaine)
        If Trouve Then
        Else
            With ThisWorkbook.Sheets("anomalies").Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0)
                .Value = MaChaine
                .Offset(0, 1) = "Format du numero de transaction non conforme "
            End With
        End If
    Else
    End If
Next c
 
End Sub

J'ai activé la référence correspondante et modifié un peu le code, mais si ça te pose problème, prend juste l'expression régulière corrigée

++
Qwaz

[octane]

impec ca marche merci