Discussion :

[jackborogar]

Bonjour,

J'ai créé un bouton qui permet d'ajouter un tableau. Le bouton affiche un userform contenant un textbox. Voici le format que l'on doit marquer dans ce textbox:

-2011/2012
-2013/2014
-etc...

J'aimerai créer une condition qui dise: si xxxx"/"xxxx = true alors exécute mon code sinon. Mon problème est de savoir comment dire cela en code.

Quelque chose du genre

Code :

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

1
2
3
4
If TextBox1= Year & "/" & Year + 1 = True Then
 
   'exécute mon code
Else

OU

Code :

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

If TextBox1 = Format(yyyy) & "/" & Format(yyyy) = True Then

Cdt,

[gFZT82]

Bonjour,

Une solution

Code :

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

1
2
3
4
5
6
7
Dim Tablo() As String
    Tablo = Split(Me.TextBox1.Value, "/")
    If Tablo(1) - Tablo(0) = 1 Then
        MsgBox "Correct !"
    Else
        MsgBox "Incorrect !"
    End If

Cordialement.

[jackborogar]

Tout d'abord merci beaucou pour ton temps pris.
J'ai essayé ton code quand je marque bien avec des nombres cela fonctionne parfaitement.

Cad
2012/2013 => If fonctionne
2013/2012=> Else fonctionne
2013/2013=> Else Fonctionne

Cependant il faut également que AZER/IEHD nous renvoi sur le Else que ici sa fait bugger le code.

[rvtoulon]

Bonjour,
c'est un peu tiré par les cheveux mais ceci peu fonctionner

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim chaine1 As Single, chaine2  As Single
'vnom = "ABCD/EFGH" 'ici c'est erreur
vnom = "2012/2013" 'ici c'est OK
On Error Resume Next
chaine1 = CSng(Left(vnom, 4))
chaine2 = CSng(Right(vnom, 4))
chaine3 = Mid(vnom, 5, 1)
If chaine2 = chaine1 + 1 And chaine3 = "/" Then
MsgBox "OK"
Else
MsgBox "erreur"
End If
End Sub

[jackborogar]

Je pense pas que ton code correspond à mes attentes, car je dois intégré mon textbox dans mon IF.

Je ne vois pas dans ton code, une ligne venant chercher la valeur de mon textbox.

Peut être que je me trompe.

Merci,

Cdt

[gFZT82]

Re,

Code :

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

1
2
3
4
5
6
7
Dim Tablo() As String, Msg As String
    Tablo = Split(Me.TextBox1.Value, "/")
    Msg = "Incorrect !"
    If IsNumeric(Tablo(0)) And IsNumeric(Tablo(1)) Then
        If Tablo(1) - Tablo(0) = 1 Then Msg = "Correct !"
    End If
    MsgBox Msg

Cordialement.

[Didier Gonard]

Bonjour,

@jackborogar, en dehors du fait d'arriver à tes fins par ce biais, à la base, ton besoin c'est quoi ?

• Tu as toujours une année de différence entre les 2 ?
• Ta plage d'années à valider possible est de quel ordre ?
• etc....

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[jackborogar]

jackborogar, en dehors du fait d'arriver à tes fins par ce biais, à la base, ton besoin c'est quoi ?

Tu as toujours une année de différence entre les 2 ?
Ta plage d'années à valider possible est de quel ordre ?
etc....

Mes besoins sont de créer des nouveaux tableaux d'engagement en fonction de l'année. J'ouvre un textebox et demande à l'utilisateur d'entrer de la forme "2012/2013", l'exercice d'engagement qu'il souhaite. Si le format est bon (et maintenant on peut le tester) alors le tableau se créer.
Oui il y a toujours une année de diff entre les deux car comme je l'ai dit cela concerne un exercice qui s'effectue que sur un an.

@Gfzt82 , c'est parfait! Merci pour ton temps.