Récupérer date dans textbox

Bonjour,

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

Pièce jointe 186855

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:

---

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

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

Code:

---

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:

---

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

bonjour,

Citation:

---

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

---

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

---

Citation:

---

Envoyé par bboy-eazy

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

Citation:

---

Envoyé par helas

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 ?

bonjour,

Code:

---

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:

---

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?

Citation:

---

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

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.

Citation:

---

Envoyé par 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 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 :

Pièce jointe 187036


J'ai fait ça :

Code:

---

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

---

quel est la version d'excel?

2007

D'abord tu selectionnne le controle
Pièce jointe 187041
Pièce jointe 187042
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.

Citation:

---

Envoyé par mayekeul

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

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.

Pièce jointe 187121

Bonjour,

Citation:

---

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

Merci 8-)

bonjour j'arrives un peut dard mais bon!

Code:

---

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

---