Impossible de grouper cette sélection

Bonjour,
Je vous remercie d'avance de m'aider à trouver une solution pour ce problème de format de date. Je rappelle en passant que j'ai essayer de chercher sur le forum, si quelqu'un avait déjà eu ce problème et que ça avait été résolu sans trouver. Je ne suis qu'un débutant dans le programmation vba.
Voici mon problème:
Lorsque j'essaie de grouper les dates dans le Tableau croisé dynamique pour sortir un graphique, j'ai le message "Impossible de grouper ce sélection". Et lorsque je ressaisie la date dans la feuille avec un date picker, le problème est corrigé et je peux grouper. Pourtant la date est saisie depuis un masque de saisie et un validation est faite. voici le code vba.

Code:

---

1 2	If IsDate(Me.txtDate) = False Then MsgBox "Entrez une date valide au format jj.mm.aaaa ": Me.txtDate.SetFocus: Exit Sub _ Sheets("Article").Range("B" & DL) = Format(CDate(Me.txtDate.Value), "dd.mm.yyyy")

---

Est ce qu'il y aurait un moyen de forcer le format de date dans la cellule pour que je puisse le grouper dans le tableau croisé dynamique sans être obligé d'aller modifier avec un DatePicker. Je pourrai avoir plus de 10000 entrée dans mon tableau. ça me parait impossible de les parcourir pour modifier la date.

Cordialement

Bonjour,
Tu n'as pas trouvé sur les forums parce-que vraisemblablement tu t'es focalisé sur le fait que le regroupement des dates était refusé dans les tableaux croisés dynamiques.
Le problème ne vient évidemment pas du tableau croisé dynamique mais la manière dont tu écris les valeurs provenant d'un TextBox dans les cellules d'excel

Il suffit de regarder les cellules contenant des dates dans excel pour repérer le problème.
Si l'alignement se fait à gauche, 90% de chance que ce soit du texte et pas une date (les 10 % restant ce serait un alignement forcé par l'utilisateur)

Une autre manière de vérifier et en supposant que la date soit en B2, c'est d'insérer cette fonction

Code:

---

=ESTNUM(B2)

---

si elle ne renvoie pas VRAI, excel ne pourra en aucun cas l'interpréter comme une date et donc le tableau croisé dynamique ne pourra pas regrouper du texte en année, mois et jour

La valeur contenue dans un contrôle TextBox est de type String or une date dans excel est de type Double donc il faut juste passer par une conversion d'une chaîne de caractères en date soit

Code:

---

Sheets("Article").Range("B" & DL).Value = CDate(Me.txtDate.Value)

---

Le test pour vérifier si une date a bien été encodée dans le TextBox est une autre affaire

A lire pour en savoir plus sur les dates dans excel et le VBA

• La faq Sommaire→Les dates et les calendriers
• Les Fonctions Date/Heure
• Comprendre et gérer les dates sous Excel et en VBA

[EDIT]
J'ai oublié cette partie de réponse.
Dans cette portion de ligne de code, tu convertis en date la chaîne de caractères contenue dans txtDate que tu reconvertis aussitôt en chaîne de caractères avec le format dd.mm.yyyy

Code:

---

Format(CDate(Me.txtDate.Value), "dd.mm.yyyy")

---

Si tu regardes l'aide de VBA, la fonction Format a pour but de convertir une valeur numérique (1er argument) en chaîne de caractères dans un format particulier définit par le 2ème argument
La fonction d'excel qui fait exactement la même chose est TEXTE

Merci infiniment pour la promptitude, la réponse, et surtout la pédagogie. En faisant les modifications telles que suggérées, ça a résolu le problème. Cordialement.

Bonjour et merci pour ton retour