Discussion :

[aziz1015]

Bonjour,

J'utilise deux spinbutton pour afficher deux dates dans textbox que j'utilise par la suite pour diverses fonctions :



Ce que j'aimerais faire maintenant, c'est qu'il soit affiché dans les deux textbox vides en bas, à gauche : le premier du mois précédent et à droite le dernier jour du moins précédent (correspondant à date de fin du filtre) !

Je ne peux pas utiliser le spinbutton pour afficher le 1er du mois précédent dans la textbox à cause du code qui utilise private spinbutton !

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
 
 
Private Sub SpinDateF_Change()
 
 
Dim RngF As Range
 
 Set RngF = Range("DateFin") ' Plage des données
    With Me
        .TextBox2 = RngF.Cells(2, 1)
        With .SpinDateF
            .Min = RngF.Rows.Count
            .Max = 1
        End With
    End With
 
    With Me.SpinDateF
        TextBox2 = RngF.Cells(.Value, 1)
    End With
 
End Sub

Auriez vous des idées svp ?

Merci d'avance

[helas]

Bonjour,
Avec une fonction
pour la fin du mois précédent, mettre dans la cellule (dans l'exemple E12)

Code :

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

1
2
 
=("01/" & MOIS(E10) & "/" & ANNEE(E10))-1

et pour le debut du mois précédent, mettre dans la cellule (dans l'exemple C12)

Code :

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

1
2
 
=("01/" & MOIS(E12) & "/" & ANNEE(E12))+0

ici E10 est la cellule fin de filtre
et E12 est la cellule fin du mois precedent
l'ajout du 0 force en numérique
mettre le format date sur les cellules

[aziz1015]

ici E10 est la cellule fin de filtre
et E12 est la cellule fin du mois precedent
l'ajout du 0 force en numérique
mettre le format date sur les cellules

Bonjour,

Merci pour votre aide, vous avez bien compris mon problème, mais j'aimerais beaucoup récupérer les dates directement des textbox plutôt que de les mettre dans des cellules, cela est il possible ?

[mayekeul]

bonjour,

Code :

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

1
2
3
4
5
6
7
 
Dim Debut As Date, Fin As Date, Spin As Date
 
Spin = cdate(textbox_xxx)
Debut = DateAdd("d", -Day(Spin), Spin)
Fin = DateAdd("m", 1, Debut) + 1
...

oups désolé, j'ai mal compris un truc, je recommence

Code :

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

1
2
3
4
5
6
Dim Debut As Date, Fin As Date, Spin As Date
 
Spin = cdate(textbox_xxx.text)
Debut = DateAdd("m", -1, Spin) - Day(Spin) + 1
Fin = DateAdd("m", 1, Debut) - 1
...

ceci dis pourquoi ne pas travailler avec un date picker plutôt?

[aziz1015]

ceci dis pourquoi ne pas travailler avec un date picker plutôt?

Bonjour,

merci pour votre réponse, qu'est ce qu'un date picker ?

En fait, j'avais demandé des idées sur le forum il y a une semaine ou deux pour permettre à l'utilisateur de choisir entre deux dates pour faire des filtres, il m'a été conseillé d'utiliser des spinbutton et d'afficher dans des textbox, les dates choisies, ensuite je les récupère dans chacune de mes procédures dans laquelle je veux faire des filtres ! Je suis donc parti de cette idée mais là j'ai un gros problème.

Quand je veux faire le filtre sur le mois précédent le mois de la date de fin de filtre uniquement, je heurte un mur et vu qu'on m'avait proposé cette idée, j'essaie de continuer sur cette voie ...

Toutefois, je suis ouvert à toute proposition.

Merci pour votre aide

[mayekeul]

Le date picker, c'est un controle pour sélectionner un date dans un calendrier.

ça peut te permettre entre autre de ne pas faire d'erreur de saisie, et de directement lier la date choise à une cellule par exemple.

[bboy-eazy]

bonjour,

à gauche : le premier du mois précédent et à droite le dernier jour du moins précédent (correspondant à date de fin du filtre) !

j'ai pas vraiment compris ce qu'il faut afficher....
Il faut afficher quoi le nom des jours correspondants des deux textbox? si c'est cas voilà ce qu'il vous faut:

Code :

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

Me.TextBox2.Value = Format(DateValue(TextBox1.Value, "dddd"))

[aziz1015]

bonjour,



j'ai pas vraiment compris ce qu'il faut afficher....
[/CODE]

Bonjour,

lorsqu'il y a une date qui est affichée dans la textbox en dessous de "fin filtre", j'aimerais qu'il soit affiché dans les deux textbox en dessous, le 1er du mois précédent le dernier jour du mois précédent. Par exemple, s'il est affiché dans la textbox "fin filtre" 01/07/0215, il faudrait afficher dans les deux textbox en bas, à gauche, le 01/06/2015 et à droite le 30/06/2015

Merci pour votre aide