Code Condition IF

Version imprimable

25/05/2012, 11h01
jackborogar

Code Condition IF
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:

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

Code:

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

Cdt,

Bonjour,

Une solution

Code:

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.

25/05/2012, 11h34
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.

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

Code:

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

25/05/2012, 12h39
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

Re,

Code:

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.

25/05/2012, 12h40
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
25/05/2012, 12h49
jackborogar

Citation:

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.
25/05/2012, 13h14
Didier Gonard

Bonjour,

ma question se situait en aval de ta question originelle et est conceptuelle au vu de ce qu'on peut deviner au 1er abord ;)

Le souci de base quand on fait une interface utilisateur est toujours ergonomique, la simplicité d'emploi et l’élimination maxi des risques d'erreurs en font donc partie...

Si tu n'as qu'une année d"écart par exemple, il est peut-être inutile d'imposer à l'utilisateur la saisie de 2 années avec une syntaxe complexe en plus : un slash, pas d'espaces etc...
Il est possible de ne demander que l'année de départ, ce qui simplifiera grandement les choses quitte à mettre à côté de la case de saisie une autre case non modifiable avec

Code:

contenu = txtbox1.value & "/" & txtbox1.value+1

reste à vérifier que l'année saisie est bien en format correct, d'où ma question N° 2 du post précédent, la liste de années est-elle finie ?

Car au lieu de faire saisir, une date tu peux peut-être proposer une list ou combobox, si x années en arrière, c'est fixe, si x année en avant, c'est fixe avec une fourchette calculée en dynamique selon l'année en cours pour ne mas alourdir l'ensemble 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

sans chercher de polémique

Citation:

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

un minimum d'adaptation à mon code donne ceci :
Code:

1 2 3 4 5 6 7 8 9 10 Dim chaine1 As Single, chaine2 As Single On Error Resume Next chaine1 = CSng(Left(Me.TextBox1.Value, 4)) chaine2 = CSng(Right(Me.TextBox1.Value, 4)) chaine3 = Mid(Me.TextBox1.Value, 5, 1) If chaine2 = chaine1 + 1 And chaine3 = "/" Then MsgBox "OK" Else MsgBox "erreur" End If
certes c'est pas top mais si dans textox1 tu as ABCD/EFGH il te diras erreur

25/05/2012, 14h45
jackborogar

Merci Ormonth pour ta réponse,

On peut voir que tu as tout de suite le bon raisonnement, et que tu vas direct dans la simplicité. Codant depuis seulement 4 semaines, il est vrai que je n'ai pas encore ces automatismes.
Mais justement des critiques/remarques comme les tiennes ne font qu'enrichir mon savoir et perfectionne mon codage.

Je laisserai donc comme j'ai fait au début puisque tout s'enchaine sur le format "2013/2014" sinon je suis obligé de tout refaire, mais effectivement ton idée aurait été beaucoup plus simple.

En te remerciant,

Cdt