Discussion :

[folkien]

bonjour,

dans un U.S. je veux qu'en fonction du choix dans une ckbox, il y ai un resultat dans une txbox au format date

ex:

si ckbox = 1 alors txbox = date du jour + 1 semaine
si ckbox = 2 alors txbox = date du jour + 1 mois

etc..

merci a tous ceux qui pourront m'aider

[jfontaine]

Reste a apporter les modifs sur le format de date a retourner

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
 
 
Dim Dte As Date
 
Dte = Now
 
TextBox1.Text = ""
 
If ComboBox1.Value = 2 Then
 
    If Month(Dte) < 12 Then
        TextBox1.Text = Day(Dte) & "/" & Month(Dte) + 1 & "/" & Year(Dte)
    Else
        TextBox1.Text = Day(Dte) & "/" & "01" & "/" & Year(Dte) + 1
    End If
 
Else
    Dte = Dte + 7
    TextBox1.Text = Day(Dte) & "/" & Month(Dte) & "/" & Year(Dte)
 
End If

[jfontaine]

Si tu ajoutes des choix dans le combobox utilise un select case plutot qu'un si

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
 
Select Case ComboBox1.Value
    Case 1
 
        If Month(Dte) < 12 Then
            TextBox1.Text = Day(Dte) & "/" & Month(Dte) + 1 & "/" & Year(Dte)
        Else
            TextBox1.Text = Day(Dte) & "/" & "01" & "/" & Year(Dte) + 1
        End If
 
    Case 2
        Dte = Dte + 7
        TextBox1.Text = Day(Dte) & "/" & Month(Dte) & "/" & Year(Dte)
 
    Case 3
        '...
 
End Select

[folkien]

je vais tester ca
et je te tiens au courant

merci bcp