textbox + 1

[franck17]

BONJOUR A TOUS

Voila mon probleme, dans le code suivant

Private Sub ok_Click()
Dim date1 As String
Dim date2 As String
date1 = Format(TextBox1.Value, "mm/dd/yyyy")
date2 = Format(DateValue(TextBox2.Value), "mm/dd/yyyy")
ActiveCell.Select
Selection.AutoFilter Field:=2, Criteria1:=">=" & date1, Operator:=xlAnd _
, Criteria2:="<" & date2
Unload Me
End Sub

Dans Textbox1 je tape 01/11/06
et dans Textbox2 je voudrais automatiquement 01/11 + 1/06
donc 01/12/06

Si quelqu'un trouve la solution je le remercie d'avance
Et bon dimanche

 

[Pierrot93]

Re : textbox + 1

Bonjour Franck

essaye peut être le code ci dessous :

Dim date1 As Date, date2 As Date
date1 = TextBox1.Value
date2 = DateSerial(Year(date1), Month(date1) + 1, Day(date1))
TextBox2 = date2

@+

 

[myDearFriend!]

Re : textbox + 1

Bonjour franck17, re Pierrot93,

Une autre façon de faire qui devrait être possible :

[SIZE=2]    TextBox2.Text = DateAdd("m", 1, [COLOR=NAVY]CDate[/COLOR](TextBox1.Text))[/SIZE]

Cordialement,

 

[franck17]

Re : textbox + 1

Bonsoir a vous deux

Merci de m'aider.
Mais le probleme c'est que je commence juste sur excel et que je n'arrive pas a faire marcher les codes.Si vous pouvier y jeter un oeil et mettre des explications je serais tres 🙂
Voir fichier joint et encore

MERCI

 

[myDearFriend!]

Re : textbox + 1

Re franck17,

En ajoutant cette procédure à ton code, je pense que ça devrait fonctionner :

[SIZE=2][COLOR=GRAY][B][I]A AJOUTER DANS LE MODULE DE CODE DU USERFORM[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] TextBox1_Change()
    [COLOR=NAVY]If[/COLOR] IsDate(TextBox1.Text) [COLOR=NAVY]Then[/COLOR] TextBox2.Text = DateAdd("m", 1, [COLOR=NAVY]CDate[/COLOR](TextBox1.Text))
[COLOR=NAVY]End Sub[/COLOR]
[/SIZE]

Un conseil toutefois, plutôt que d'écrire :

[SIZE=2]ActiveCell.[COLOR=NAVY]Select[/COLOR]
Selection.AutoFilter ...[/SIZE]

Tu devrais essayer de faire :

[SIZE=2]Sheets("Feuil1").Range("A1").AutoFilter ...[/SIZE]

En effet, généralement la sélection de cellule ou d'objet est inutile en VBA pour pouvoir agir dessus (c'est même déconseillé).

Cordialement,

 

[franck17]

Re : textbox + 1

Bonsoir

MERCI A VOUS 3

Ca marche impeccable pour le mois et pour un jour aussi 😀
Encore merci et vive le Forums