Discussion :

[macjs]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[macjs]

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.

[Philippe Tulliez]

Bonjour et merci pour ton retour