Dates dans USF

[guitou77]

Bonjour à tous,
J'ai fait un USF à partir d'une liste de dates (de C2 à C40), au format "jour/mois/année".
Mais les dates apparaissent dans l' USF au format "mois/jour/année"
et c'elle choisie se recopie de même dans la cellule (G5).
Y a t-il une manipulation à faire au niveau des propriétés de la listbox1, afin d'avoir la date correcte dans l'USF et à la recopie dans la cellule.

Avec tous mes remerciements, à plus.

 

[PascalXLD]

Re : Dates dans USF

Bonjour

pour manipuler les date il faut passer par cdate

du gnere

textbox1=CDate(range("A1"))

et

Range("A1")=CDate(textbox1)

Bon courage

 

[MJ13]

Re : Dates dans USF

Bonjour,
C'est un bug connu de Microsoft.
Voir:
XL2000 : fonction de format peut renvoyer une date incorrecte

Je joins un exemple:
Si quelqu'un de plus spécialiste que moi dans les formules pouvait s'y intéresser.
Il faudrait pouvoir extraire par macro la valeur de la date par rapport à la date entrée de type jj/mm/aa (voir pièce jointe).

Merci d'avance.


Salutations
Michel

 

[Pierrot93]

Re : Dates dans USF

Bonjour Guytou, Pascal, Michel

Michel pour ton problème, un peu different puiqu il s agit de passer la date au filtre automatique, j'ai modifié une partie de ton code en utilisant la fonction "format".

A voir et à tester si ca marche dans tous les cas.

Dim datedeb As Date, datefin As Date
datedeb = CDate(InputBox("Date début: jj/mm/aa"))
datefin = CDate(InputBox("Date fin: jj/mm/aa"))
Selection.AutoFilter Field:=1, Criteria1:=">" & Format(datedeb, "mm/dd/yyyy"), Operator:=xlAnd, _
Criteria2:="<" & Format(datefin, "mm/dd/yyyy")

Bon après midi
@+

 

[MJ13]

Re : Dates dans USF

Merci à Pierrot 93, c'est tout à fait ce qu'il me fallait (je ne l'aurais pas trouvé tout seul).
Cela devrait servir à pas mal de personnes qui doivent souvent avoir ce type de problèmes de date.

Bon wek-end
Michel

 

[guitou77]

Re : Dates dans USF

Bonjour Pascal76, Mj13, Pierrot 93, et tous,

Merci, Pascal76, mais en A1 ne s'affiche que l'heure et celà ne change en rien
mon problème.
MJ 13 et Pierrot 93, je ne vois pas comment je pourrais intégrer cette macro .

Merci à tous et à +.

 

[PascalXLD]

Re : Dates dans USF

Re

Euh Guitou il faut faire un petit effort j'ai mis "du genre"

Il faut donc adapter à ton cas

Bien sur ce ne sera pas A1 mais le but est de comprendre la manoeuvre. De toute façon comment veux-tu qu'on aille plus loin on a pas de fichier. donc je te donne le process avec CDate et adaptes un petit peu

Bonne soirée

 

[guitou77]

Re : Dates dans USF

Bonjour Pascal,
Excuse moi, mais je croyais avoir mis le fichier, autant pour moi.

Merci beaucoup

 

[bqtr]

Re : Dates dans USF

Bonsoir tous le monde

Modifie cette ligne :

ListBox1.AddItem Range("Dates")(i)

Comme ceci :

ListBox1.AddItem Format(Range("Dates")(i), "dd/mm/yyyy")

pour avoir la date sous la forme 01/12/2006 par exemple.

Un autre exemple 😛our avoir la date sous la forme vendredi 03 novembre 2006 met :
"dddd dd mmmm yyyy"

Bonne soirée

P.O

 

[PascalXLD]

Re : Dates dans USF

Re

ton code avec ce que je te disais

Private Sub CommandButton1_Click()
    Cells(5, 7) = CDate(ListBox1)
End Sub


Private Sub UserForm_Activate()
 
   For i = 1 To Range("Dates").Count
     ListBox1.AddItem CDate(Range("Dates")(i))
   Next
End Sub

 

[guitou77]

Re : Dates dans USF

Bonjour à tout le forum,

Merci à bqtr pour son code qui fonctionne très bien.
Merci à Pascal76 pour le sien,mais celui-ci ne fonctionne pas. Je joint le dossier modifié pour que tu voies le résultat.

Merci encore à vous deux et à +.

 

[Bebere]

Re : Dates dans USF

bonjour Guitou,Pascal,Bqtr
pour doc une autre manière
à bientôt

 

[PascalXLD]

Re : Dates dans USF

Re

Tu peux me dire ce qui ne fonctionne pas car perso tout marche noickel avec mon code

 

[bqtr]

Re : Dates dans USF

Re bonjour tous le monde,

Effectivement le code de Pascal76 fonctionnne trés bien.

Ce que tu veux c'est la date sous la forme 1 janvier 2007 dans la listbox1 ?
Si c'est ca modifie comme cela :

ListBox1.AddItem Format(CDate(Range("Dates")(i)), " d mmmm yyyy")

Par contre il faut que dans ta plage nommée "Dates" il n'y ait pas de cellules vides sinon cela te mets des dates erronées.
Pour éviter ca modifie comme cela :

Private Sub UserForm_Activate()
For i = 1 To Range("Dates").Count
If Range("Dates")(i).Value <> "" Then
ListBox1.AddItem Format(CDate(Range("Dates")(i)), " d mmmm yyyy")
End If
Next i
End Sub

A+

P.O

 

[guitou77]

Re : Dates dans USF

Re bonjour tout le monde,

Merci à vous trois, Pascal76, bqtr, bébère, vos formules fonctionnent bien.
Ce que je voulais dire Pascal76, c'est que lorsque l'on choisi dans l'USF le
10-1-2006 (qui est le 1 Octobre 2006 dans la liste), l'affichage est 10 Janvier 2006 dans la cellule G5. Avec la modification de bqtr tout redevient normal.

Encore mille fois merci à vous trois, bon appétit et à +.