Microsoft 365 Code VBA pour date DD/MM/YYYY

  • Initiateur de la discussion Initiateur de la discussion dacunha
  • 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 !

dacunha

XLDnaute Nouveau
Bonjour,

N'étant pas experte en VBA je viens vers vous pour un peu d'aide.

J'ai un tableau Excel avec des CheckBox que je coche en fonction des cas.

J'ai créé la macro suivante :
Sub Caseàcocher_Cliquer()
If CaseàcocherB23 = vrai Then result = InputBox("Veuillez entrer la date :")
Range("K22").Value = result
End Sub

Lorsque je clique sur ma case à cocher (ex : CaseàcocherB23) sur ma feuille Excel, une popup s'ouvre, je saisi une date par exemple 02/05/2025 qui ensuite est récupérée en cellule K22.

Mon problème est que dès lors où le n° du jour ne dépasse pas 12, Excel m'inverse les jours et les mois, ce qui est problématique car cela fausse ensuite mes autres cellules Excel qui ont besoin de cette même date dans le bon sens.

Je pense que le problème vient du fait que pour la Macro, le format retenu est le format anglais mm/dd/yyyy. Je ne vois pas où le modifier sur Visual Basic.

Je ne suis pas en UseForm.

Avez-vous une idée car je cherche et tente des choses depuis plusieurs jours mais en vain... je désespère.

Merci pour votre aide
 
Bonjour,
Je ne sais pas faire. Auriez-vous un exemple à me donner que je puisse ensuite l'adapter à mon cas?

Merci
Ca y est, une personne m'a aidé sur un autre forum. Je partage la solution qui fonctionne parfaitement
Sub Caseàcocher_Cliquer()
Dim result
If CaseàcocherB23 = vrai Then result = InputBox("Veuillez entrer la date :")
If result = "" Then Exit Sub
If IsDate(result) Then Range("K22").Value = CDate(result)
End Sub
 
Bonsoir le fil

@dacunha
Pourquoi ne pas avoir continuer dans le fil initial ?
 
- 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

  • Question Question
Microsoft 365 format date
Réponses
3
Affichages
67
Réponses
2
Affichages
411
Réponses
1
Affichages
241
Retour