Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème avec les dates

  • Initiateur de la discussion Initiateur de la discussion nikess
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

N

nikess

Guest
Bonjour à tous,

Je bloque sur un détail.... Qui peut provoquer des grosses erreurs

Je veux rentrer une date dans une de mes cellules à partir de mon userform.
je la rentre sous la forme jour/mois/année.
Code:
Range("A1").Value = Format(day1 & "/" & month1 & "/" & year1, "dd/mm/yyyy")

en ayant définie :
Code:
day1 = Day(UserForm1.TextBox1.Value)
month1 = Month(UserForm1.TextBox1.Value)
year1 = Year(UserForm1.TextBox1.Value)

le problème sous ma feuille Excel est qu'il me l'affiche au format anglais : mois/jour/année.
et je veux par la suite comparer cette date par rapport à une autre.
(Cette erreur ne se fait que quand le numéro du jour est <=12)

(j'ai mis la petite application en pièce jointe)


Si quelqu'un a une idée ?

Merci d'avance.
 

Pièces jointes

Re : Problème avec les dates

bonjour

employer ceci

Private Sub CommandButton1_Click()
Sheets("Feuil1").Select

t = Split(Me.TextBox1.Value, "/")
Sheets(1).Range("A1").Value = DateSerial(Day:=t(0), Month:=t(1), Year:=t(2))

Range("A1").Select
Selection.Copy

Range("A20").Select
ActiveSheet.Paste
End Sub
 
Re : Problème avec les dates

Tu y étais presque :
Range("A1").Value = Format(month1 & "/" & day1 & "/" & year1, "dd/mm/yyyy")
il fallait inverser pas dans le format mais dans ce qu'on écrivait.

Merci A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
927
Réponses
6
Affichages
655
Réponses
12
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…