ouverture sous condition de format

[Zlopeck]

Bonjour,
Je rencontre un problème pour l'ouverture de l'userform2.
En effet, je suis amené à saisir des références de type XXX-XXXX-X composées de chiffres et de lettres ou de références de formats différents mais sans tiret.
Lorsque je saisi une référence de type XXX-XXXX-X j'ai besoin d'ouvrir l'userform2. J'ai réussi à trouver un code mais celui ci ne fonctionne que si je ne rentre que des chiffres.(voir fichier joint)
Y a t-il une solution pour qu'il fonctionne avec des références composées de chiffres et de lettres (de type STR-2569-T par exemple)?
Merci de votre aide.

 

[jp14]

Re : ouverture sous condition de format

Bonjour

Un bout de code qui devrait répondre à la question pour le format désiré

Dim Data1() As String
Dim Trouve As Byte
If InStr(3, TextBox1, "-") = 4 And InStr(9, TextBox1, "-") = 10 Then
Data1 = Split(TextBox1, "-")
If UBound(Data1) - LBound(Data1) = 2 Then
If Len(Data1(LBound(Data1))) = 3 Then Trouve = Trouve + 1
If Len(Data1(LBound(Data1) + 1)) = 5 Then Trouve = Trouve + 1
If Len(Data1(UBound(Data1))) = 1 Then Trouve = Trouve + 1
End If

If Trouve = 3 Then UserForm2.Show
End If

A tester


JP

 

[Zlopeck]

Re : ouverture sous condition de format

Bonsoir jp14 et le forum,
Cette solution me convient parfaitement et donne le résultat souhaité. Donc, pour moi, solution adoptée, mais quelqu'un pourrait il m'expliquer pourquoi mon code ne fonctionnait qu'avec des chiffres?
Merci