Comparaison 2 dates

Bonjour à tous,

au format date dd/mm/aa, la comparaison de 2 dates ne fonctionne pas :

sheets("BD").Range("J1") = Format(TextBox_date.Value, "dd/mm/yy")

en comparant les dates des cellules à ce même format j'arrive au résultat 25/08/18 > 26/08/18

j'ai vu qu'en allant cliquer dans la barre de formule de la cellule J1, le format de date se changeait en format anglais 08/25/18

j'essaie donc de mettre un format numérique en vba, ce que je ne suis pas arrivé à trouver.

si vous voulez éxécuter la macro correspondante, bouton 'Frais ESP & CB perso' avec l'UF userformESP

merci

Fronck

Bonjour,

Je pense que tu devrais remplacer cette ligne de code par:

sheets("BD").Range("J1") = CDate(TextBox_date.Value)

Pour l'affichage "jj/mm/aa" tu peux gérer ça directement dans le format de la cellule J1.

Quand tu utilises Format(), ça renvoie du texte, pas une date, il fallait soit utiliser DATEVAL(J1) pour convertir la valeur en date, soit directement exporter la valeur comme étant une date, j'ai préféré la seconde solution

merci çà fonctionne

c'est l'heure de l'apéro

De rien!

apéro au pop corn à 18h ?

bonne continuation