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

probleme de date en vba

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion BASSDINGUE
  • 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 !

S'inscrire
B

BASSDINGUE

XLDnaute Occasionnel
bonjour le forum,

j'ai fait un recherche sur mon pb de date, j'ai essayer les differentes propositions faites mais ... j'ai toujours le pb
c'est a dire que quand je met une date dans une textbox sous la forme:"jj/mm/aaaa" quand j'enregistre l'info sur une feuille excel le format devient:"mm/jj/aaaa"
en fait il inverse les jours avec les mois alors que sur la feuille excel j'ai bien defini le bon format
je pense que c'est au mmoment de l'envoi de l'info vers la feuille qu'il y a un schmurtz, mais je vois pas ou.
Si vous avez des idees n'hesitez à les envoyer je les essayerai toute
merci et bonne journee
bassdingue
 
Trier par date Trier par votes
Re : probleme de date en vba

re,

tu rajoutes cette fonction dans le module :
Code: 
Public Function MonCDate(laDate As String) As Date
Dim tabStr() As String
tabStr = Split(laDate, "/")
MonCDate = DateSerial(tabStr(2), tabStr(1), tabStr(0))
End Function

et tu l'utilises tel quel :
Code: 
.Range("CD" & lresult) = MonCDate(TBF14)
avec "TBF14" au format "jj/mm/aaaa"

a+
 
Vote positif 0 Vote négatif
Re : probleme de date en vba

merci à romain et pascal c'est sympa

Pour ma par j'ai essaye car j'ai cru remarquer que si il n'y a rien au format date dans la textbox et que je clique dessus: ca plante
et la ben ca marche, a verifier si il n'inverse pas les dates inferieur 12/mm

With Sheets("T_CLT_FORMATION")
On Error Resume Next
.Range("CD" & lresult) = CDate(TBF14)
If TBF14.Value = "" Then .Range("CD" & lresult) = ""
End With

a la place de

With Sheets("T_CLT_FORMATION")
.Range("CD" & lresult) = TBF14
End With

et ca a l'air de fonctionner, si ca plante j'utiliserai la technique a romain
BONNE SOIREE
A+
bassdingue
 
Vote positif 0 Vote négatif
Re : probleme de date en vba

re

à ta place j'aurais fait

Code: 
With Sheets("T_CLT_FORMATION")
If TBF14.Value = "" Then 
.Range("CD" & lresult) = ""
Else
   .Range("CD" & lresult) = CDate(TBF14)
End if
End With
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
860
nat54
O
  • Question Question
XL 2013 Planification automatique des rdv d'intervention en fonction des dates disponibles
Réponses
3
Affichages
468
cathodique
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
655
Staple1600
B
  • Question Question
Microsoft 365 erreur de date
Réponses
2
Affichages
590
cp4
F
  • Question Question
XL 2019 Report de données avec SOMME SI
Réponses
7
Affichages
816
chris
P
  • Question Question
Autres Finalisation de projet VBA pour planning quotidien
2
Réponses
15
Affichages
966
vgendron
M
  • Résolu(e)
Microsoft 365 Récupération de la ienne date d'une plage
Réponses
3
Affichages
733
MJD001
M
C
  • Résolu(e)
XL 2016 VBA : inversion de Date sur Range.Resize ... = Tableau après Transpose du Tableau
Réponses
2
Affichages
346
crocrocro
C
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
669
Chaton77
J
  • Question Question
Microsoft 365 incrémenter numéro en fonction du mois
Réponses
8
Affichages
653
Phil69970
T
  • Question Question
Microsoft 365 Empêcher Excel de formater automatiquement les dates
Réponses
2
Affichages
999
Phil69970
  • Question Question
XL 2016 Problème de valeur avec une formule de date
Réponses
3
Affichages
679
Hasco
  • Question Question
XL 2016 Aide pour maj auto de la date + selection multiple dans une liste déroulante
Réponses
5
Affichages
849
fanch55
S
  • Résolu(e)
Microsoft 365 Recherche de date en VBA
Réponses
6
Affichages
768
sylvanu
N
  • Résolu(e)
XL 2021 erreur Vba
2
Réponses
21
Affichages
2 K
Oneida
A
  • Résolu(e)
Microsoft 365 Empecher date de s'enregistrer au format américain
Réponses
2
Affichages
952
Arnnaud
A
M
  • Résolu(e)
Microsoft 365 Prendre les 10 1ère valeur d'une plage en fonction de 2 critères
2 3
Réponses
43
Affichages
3 K
merinos-BernardEtang
L
  • Question Question
Microsoft 365 VBA format date donnée msgbox
Réponses
4
Affichages
2 K
Lucie44
L
  • Question Question
XL 2021 comment convertir et enregistrer en pdf tout en conservant la date d'une textbox vba
Réponses
2
Affichages
664
AugusteP
B
  • Question Question
Microsoft 365 [Résolu] VBA Filtre date en fonction d'une cellule
Réponses
6
Affichages
2 K
Benoit84
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…