Code VBA pour date DD/MM/YYYY

VBA
1

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

2

Bonjour,

n’ayant pas un fichier exemple de votre part je vous ai préparé un modèle.
Voir si cela vous convient.
DATES.xlsm (55,2 Ko)

ou alors avec la case à cocher comme vous l’aviez décrit
DATES.xlsm (44,6 Ko)

Rubis

3

bonjour Rubis57, Karine_Gaillard,
vous parlez d’un tableau Excel, donc je suppose que ce seront plusieurs lignes dans un tableau structuré. Avec des Checkboxes, cela demande beaucoup de préparation, souvent c’est mieux d’utiliser le font « WingDings 2 » et les charactères R et S (en majuscules) pour simuler ce checkbox. Puis on a la macro « …Change » dans le module de la feuille
DATES (1).xlsm (45,9 Ko)

4

Bonjour Cow18,

je n’avais pas bien compris sa demande, donc j’ai fais au mieux que j’ai pu.

Pas mal ta proposition.

1 « J'aime »