Discussion :

[luke38]

Bonjour,

je débute en VBA et je suis en train de faire une BDD dans laquelle j'ai besoin de tester que l'utilisateur (via un formulaire que je suis en train de créer) rentre bien une adresse MAC. c'est à dire 12 caractères au format hexadécimal.

je n'arrive pas a trouver comment faire, j'ai tester si les valeurs etait numerique puis si elles etaient bien comprises entre "a" et "f" mais je n'arrive pas a tester sur les 12 caracteres...

Merci de votre aide

[Invité]

Bonjour,

Ta solution se trouve ici : http://www.commentcamarche.com/faq/4...nnelleshttp://

Cdlt,

Sophie

[Invité]

Le bon lien ci-dessous. Désolée

http://www.commentcamarche.com/faq/41005-vba-initiation-aux-expressions-rationnelles

Sophie

[patricktoulon]

bonjour
12 caracteres ? tu est sur?
je dirais plutot 17 non? avec les separateurs ?????

cela dit je comprend pas bien ton test 1 si numeric .ce sont des nombres au format hex donc c'est des nombres

clochette te dirige vers un regex oui ok mais il y a beaucoup plus simple

un split sur le separateur le ubound doit te donner 6
et si su veux tester plus grand qua a ou f
dans une boucle des elements du split

Code :

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

if "&H"& split adressemac(i)> "&ha" then blablabla

et pareil pour le "f"
pourrait on avoir 2 ou 3 model d'adresse

[luke38]

Bonjour,

@patricktoulon
oui effectivement je viens de voir avec mon chef et ce sera bien avec les séparateur donc 17 caractères
un exemple d'adresse MAC = D8:80:39:D9:DF:C5

voilà le bout de test que j'avais essayer de taper mais qui ne fonctionne pas dans mon cas

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Private Sub Txt_Adresse_MAC_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
'teste si la valeur est bien une adresse Mac
If isMACadress("Txt_Adresse_MAC") = True Then
    Exit Sub
Else
    MsgBox ("Entrez une adresse MAC en 12 caractères Hexadécimaux")
    Cancel = True
End If
 
End Sub
 
Function isMACadress(Chaine As String)
 
'cette fonction renvoie
'- "1" si tous les caracteres de la chaine sont hexadecimaux
'- "0" si la chaine est vide ou si elle contient un charactere non hexadecimal
 
'test chaine vide
If Chaine = "" Then
isMACadress = 0
End If
 
'test isCharHex sur chaque caractere de la chaine
 
For i = 1 To 12
 
    If isCharHex(Mid(Chaine, i, 1)) = 0 Then
        isMACadress = 0
        Exit For
    Else: isMACadress = 1
    End If
 
Next
 
End Function
 
 
Function isCharHex(Char As String)
'cette fonction renvoie
'- "1" si Char est un nombre hexadecimal
'- "0" sinon
 
isCharHex = 0
 
'test si char est un chiffre (attention Inumeric renvoie "True" si char est vide!)
If (IsNumeric(Char) = True) And (Char <> "") Then
    isCharHex = 1
End If
 
 
'test si Char est une lettre comprise entre "a" et "f"
Select Case Char
    Case Is = "a", "b", "c", "d", "e", "f"
    isCharHex = 1
End Select
 
End Function

Merci pour vos conseils

[patricktoulon]

re
essaie plutot ceci:

sub de teste

Code :

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

1
2
3
4
5
Sub test()
    MsgBox isValidAdressMac("D8:80:39:E9:DF:C5")
    MsgBox isValidAdressMac("D8:80:39:H9:DF:C5")
 
End Sub

la fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
Function isValidAdressMac(adressMac)
    Dim tabl, i As Long, crit1 As Boolean, crit2 As Boolean
    tabl = Split(adressMac, ":")
    isValidAdressMac = True
    For i = 0 To UBound(tabl)
        crit1 = Mid(tabl(i), 1, 1) Like "[A-F]*" Or Mid(tabl(i), 1, 1) Like "[0-9]"
        crit2 = Mid(tabl(i), 2, 1) Like "[A-F]*" Or Mid(tabl(i), 2, 1) Like "[0-9]"
        If crit1 = False Or crit2 = False Then isValidAdressMac = False: Exit Function
    Next
End Function

EDIT:
petit bonus

j'ai ajouté le nombre de segment obligatoire pour la conformité (6 segments)
j'ai ajouté la conformité en terme de longueur de chaine pour chaque segments
encore plus de tests

Code :

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

1
2
3
4
5
6
Sub test()
    MsgBox isValidAdressMac("D8:80:39:E9:DF:C5")
    MsgBox isValidAdressMac("D8:80:39:H9:DF:C5")
    MsgBox isValidAdressMac("D8:80:39:E9:DF")
    MsgBox isValidAdressMac("D8:80:39:DE9:DF:C5")
End Sub

la fonction mise a jour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function isValidAdressMac(adressMac)
    Dim tabl, i As Long, crit1 As Boolean, crit2 As Boolean, crit3 As Boolean
    tabl = Split(adressMac, ":")
    If UBound(tabl) <> 5 Then isValidAdressMac = False: Exit Function
    isValidAdressMac = True
    For i = 0 To UBound(tabl)
        crit1 = Mid(tabl(i), 1, 1) Like "[A-F]" Or Mid(tabl(i), 1, 1) Like "[0-9]"
        crit2 = Mid(tabl(i), 2, 1) Like "[A-F]" Or Mid(tabl(i), 2, 1) Like "[0-9]"
        crit3 = Len(tabl(i)) = 2
        If crit1 = False Or crit2 = False Or crit3 = False Then isValidAdressMac = False: Exit Function
    Next
End Function

[Pierre Fauconnier]

Oui, Marc, ma remarque n'était pas une critique. Juste un complément d'informations sur une fonction concise et qui fait le job

Et qui en plus, comme le dit clochete, met en évidence la puissance des regexp.

[Marc-L]

J'avais loupé ta modification et découvre dans Like même sans virgule entre chaque série de caractères cela fonctionne ! …