Somme date d'une textbox avec un nombre de jour
Bonjour,
Je dispose sur une feuille 1 de plusieurs textbox et combobox qui doivent être remplis par l'utilisateur. Après validation avec un bouton, ces données forment alors un tableau dans une autre feuille constituant une base de données.
Seul problème ma textbox 2 est une date rentrée de la forme (05/07/2011).
Je souhaite que dans la colonne 10 de ma base de données j'obtienne cette date plus 90 jours toujours de la forme précédente. J'ai essayé avec Val pour convertir la date en numérique mais sans grand succès. Auriez vous donc une astuce à me proposer ?
Merci d'avance.
Voici mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Dim RNG As Variant
Dim i As Byte
RNG = Array(TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, ComboBox1, ComboBox2, TextBox8, (Val(TextBox2) + 90))
With Sheets("Base de Données")
.Rows(15).Insert
.Rows(15).Interior.Color = RGB(255, 255, 255)
.Rows(15).Font.Bold = False
For i = 0 To 10
.Cells(15, i + 1).Value = RNG(i).Value
.Cells(15, i + 1).Borders.Weight = xlThin
Next i
End With |
