fonction SI en VBA

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

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

Code:

---

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

---

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

Code:

---

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

---

je vais tester ca
et je te tiens au courant

merci bcp