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

[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

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

[aziz1015]

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 choisie à une cellule par exemple.

Ok, je vois, pourrais je s'il vous plaît avoir un tutoriel ? Est ce que je pourrais utiliser les datepicker directement sur la feuille excel sans passer par un formulaire ? j'ai par ailleurs un problème pour afficher le premier jour du mois et le dernier jour du mois précédent respectivement dans les textbox3 et textbox4 lorsque la date de fin du filtre change, je dois d'abord exécuter la procédure ! Comme ceci :




J'ai fait ça :

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
22
23
24
25
 
 
Sub Moisprecedent()
 
Dim Debut As Date, Fin As Date, Spin As Date
 
Spin = CDate(TextBox2.Text)
Debut = DateAdd("m", -1, Spin) - Day(Spin) + 1
Fin = DateAdd("m", 1, Debut) - 1
 
MsgBox Debut
MsgBox Fin
TextBox3.Value = Debut
TextBox4.Value = Fin
End Sub
 
'Private Sub TextBox3_Change()
'Call Moisprecedent
'Me.TextBox3.Value = Debut
'End Sub
'
'Private Sub TextBox4_Change()
'Call Moisprecedent
'Me.TextBox4.Value = Fin
'End Sub

[mayekeul]

quel est la version d'excel?

[aziz1015]

2007

[mayekeul]

D'abord tu selectionnne le controle


clique sur ok et dessinne sur la feuille le datepicker

tu peux ensuite régler les propriété à ta guise et y faire référence comme à une textbox par exemple.

[aziz1015]

tu peux ensuite régler les propriété à ta guise et y faire référence comme à une textbox par exemple.

Bonjour,

Merci pour votre aide, tout est parfait, le code pour le mois précédent fonctionne bien, en cherchant plus j'hésite entre utiliser monthview et dtpicker !


Merci pour votre aide

[mayekeul]

bonjour,

monthview peut aussi t'aider effectivement il possede un e fonctionalité assez intéressante dans ton cas... c'est que l'on peut l'autoriser sélectionner une plage de date.

[Philippe Tulliez]

Bonjour,

Ok, je vois, pourrais je s'il vous plaît avoir un tutoriel ?

de Didier Gonard Comprendre et gérer les dates sous Excel et en VBA et de Silkyroad Utiliser les fonctions Date et Heure sous Excel 2007

[aziz1015]

Merci

[Invité]

bonjour j'arrives un peut dard mais bon!

Code :

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

1
2
der = CDate(Format("28/07/2015", "yyyy-mm-01")) - 1
Prems = CDate(Format(CDate(Format("28/07/2015", "yyyy-mm-01")) - 1, "yyyy-mm-01"))