Discussion :

[Majordaneau]

J'ai un projet en faire en vb dans le cadre de mon cours de prog. Le projet est fini mais pour que mon code soit accepté, il me faut un private sub personnalisé. Depuis une semaine, je ne dort pas en essayant de regler mon probleme. Je sais que sur développez on ne donne pas les solutions tout cuit dans le bec mais pouvez-vous m'aider?

voici mon code

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
 
  If oct1.Length = 3 And CDbl(oct1) <= 9 Then  ' Vérification si oct1 est soit 00#|0##|0# et adaptation du txtAddresse
                                        oct1 = oct1.Substring(2, 1)
                                        txtAddresse.Text = oct1 + "." + oct2 + "." + oct3 + "." + oct4
                                    ElseIf oct1.Length = 3 And CDbl(oct1) >= 10 And CDbl(oct1) <= 99 Then
                                        oct1 = oct1.Substring(1, 2)
                                        txtAddresse.Text = oct1 + "." + oct2 + "." + oct3 + "." + oct4
                                    ElseIf oct1.Length = 2 And CDbl(oct1) <= 9 Then
                                        oct1 = oct1.Substring(1, 1)
                                        txtAddresse.Text = oct1 + "." + oct2 + "." + oct3 + "." + oct4
 
                                    End If
 
                                    If oct2.Length = 3 And CDbl(oct2) <= 9 Then  ' Vérification si oct2 est soit 00#|0##|0# et adaptation du txtAddresse
                                        oct2 = oct2.Substring(2, 1)
                                        txtAddresse.Text = oct1 + "." + oct2 + "." + oct3 + "." + oct4
                                    ElseIf oct2.Length = 3 And CDbl(oct2) >= 10 And CDbl(oct1) <= 99 Then
                                        oct2 = oct2.Substring(1, 2)
                                        txtAddresse.Text = oct1 + "." + oct2 + "." + oct3 + "." + oct4
                                    ElseIf oct2.Length = 2 And CDbl(oct2) <= 9 Then
                                        oct2 = oct2.Substring(1, 1)
                                        txtAddresse.Text = oct1 + "." + oct2 + "." + oct3 + "." + oct4
 
                                    End If
 
 
                                    If oct3.Length = 3 And CDbl(oct3) <= 9 Then  ' Vérification si oct3 est soit 00#|0##|0# et adaptation du txtAddresse
                                        oct3 = oct3.Substring(2, 1)
                                        txtAddresse.Text = oct1 + "." + oct2 + "." + oct3 + "." + oct4
                                    ElseIf oct3.Length = 3 And CDbl(oct3) >= 10 And CDbl(oct3) <= 99 Then
                                        oct3 = oct3.Substring(1, 2)
                                        txtAddresse.Text = oct1 + "." + oct2 + "." + oct3 + "." + oct4
                                    ElseIf oct3.Length = 2 And CDbl(oct3) <= 9 Then
                                        oct3 = oct3.Substring(1, 1)
                                        txtAddresse.Text = oct1 + "." + oct2 + "." + oct3 + "." + oct4
 
                                    End If
 
 
                                    If oct4.Length = 3 And CDbl(oct4) <= 9 Then  ' Vérification si oct4 est soit 00#|0##|0# et adaptation du txtAddresse
                                        oct4 = oct4.Substring(2, 1)
                                        txtAddresse.Text = oct1 + "." + oct2 + "." + oct3 + "." + oct4
                                    ElseIf oct4.Length = 3 And CDbl(oct4) >= 10 And CDbl(oct4) <= 99 Then
                                        oct4 = oct4.Substring(1, 2)
                                        txtAddresse.Text = oct1 + "." + oct2 + "." + oct3 + "." + oct4
                                    ElseIf oct4.Length = 2 And CDbl(oct4) <= 9 Then
                                        oct4 = oct4.Substring(1, 1)
                                        txtAddresse.Text = oct1 + "." + oct2 + "." + oct3 + "." + oct4
 
                                    End If

Merci davance
Major

[clementmarcotte]

Ben quoi ?

Private sub Urgent()
ton code
end sub

Si ton professeur ne t'as pas expliqué cela, c'est un imbécile. Ou bien, ce n'est pas cela la question.

P.S. Les messages avec Urgent sont universellement détestés.

P.P.S Est-ce que le zouave vous a parlé de quelque chose qui pourrait ressembler à cela:

Code :

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

1
2
3
4
5
6
7
8
9
if Julien  = "Épais" then
   Bergevin = "Nouille"
elseif Bergevin = "Aveugle" then
   Timmins = "Borné"
elseif Bergevin = "Incompétent crasse" then
   Bergevin = "Dehors"
else
   Molson = "Profiteur"
End if

À adapter pour l'Impact et les Alouettes.

[WaterTwelve21]

Ben quoi ?

Code :

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

1
2
3
4
5
6
7
8
9
if Julien  = "Épais" then
   Bergevin = "Nouille"
elseif Bergevin = "Aveugle" then
   Timmins = "Borné"
elseif Bergevin = "Incompétent crasse" then
   Bergevin = "Dehors"
else
   Molson = "Profiteur"
End if

À adapter pour l'Impact et les Alouettes.

Merci Clément pour ce bon moment de rigolade tu voulais pas rajouter les habs aussi ?
Bon c'est pas le sujet du thread , donc on ne va pas commencer une discution, mais merci.

[Majordaneau3]

Merci de cette blague vraiment hilarante *wink wink* mais j'ai trouvé ce que je cherchais
Bonne journée <a tous!