Discussion :

[justin74]

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 :

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
 
    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

[amnorian]

essaye de la convertir en date avec Cdate(textbox2)

la textbox met de base la valeur en string donc il faut modifier le format

[jfontaine]

Bonjour

L'instruction DateAdd me semble bien adaptée

Code :

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

DateAdd("d", 90, cdate(textbox2.text))