Ce navigateur n’est plus pris en charge.
Effectuez une mise à niveau vers Microsoft Edge pour tirer parti des dernières fonctionnalités, des mises à jour de sécurité et du support technique.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Bonjour,
Je suis à créer une gestion budgétaire personnelle avec du VBA et des tableaux croisé dynamique.
Je tente, à partir de ma base de donnée, de regrouper des dates à partir de mon TCD qui prend sa source dans une base de données.
Voici ce que ça donne :
Comme vue à la première image, j'ai créé une 2e base de données et tenter le regroupement des dates :
Succès, ça fonctionne. Dans les deux bases de données j'ai les même formats de date. J'utilise Excel 2016 sur windows 10.
Dans ma BD réel lorsque je glisse date il met automatiquement les dates dans les lignes. Dans ma BD fictive, il regroupe par année et mois. Je dois dissocier puis regrouper selon mes critères et cela est normale.
Des solutions?
Merci
Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.
Tous car ils contiennent tous une date en format suivant :
'Date
Private Sub txtdate_AfterUpdate()
On Error GoTo Message
Me.txtdate = Format(CDate(Me.txtdate), "yyyy-mm-dd")
Exit Sub
Message:
MsgBox ("Vous avez entré le mauvais format de date!")
Me.txtdate = ""
End Sub
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(108.80000000000001, 78%, 20%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3ED%3C/text%3E%3C/svg%3E)
Et refaire les formulaires aussi? :(
Non ! Les modules et les formulaires, tu peux les tirer avec la souris d'un VBAProject à l'autre.
Donc, le problème doit être dans les codes du formulaire non? Quand les dates s'inscrivent dans la BD à partir du formulaire. De plus, j'ai créé se formulaire la semaine dernière.
Quel est le formulaire ?
Daniel
Et refaire les formulaires aussi? :(
Mais explique moi ceci S.T.P
Quand je crée une nouvelle BD dans le même classeur et un TDC, pas de problèmes tout fonctionne. Aucun problème.
Il faut dire que je crée la BD manuellement.
Donc, le problème doit être dans les codes du formulaire non? Quand les dates s'inscrivent dans la BD à partir du formulaire. De plus, j'ai créé se formulaire la semaine dernière.
Bon. Ce classeur est tout nouveau. Je l'ai créé cette semaine.
Et pourquoi dans le TCD je ne peux pas obtenir, en cliquant droit sur une date, la boîte de choix. Mon objectif était de créer un regroupement de date par 2 semaines?
Corrompu?
1967
Au Québec c'était la montée du mouvement indépendantiste. Alors les indépendantistes buvet chacune de ses paroles, car si tu écoute bien, il fait plusieurs allusion à cela. Et l'apogée de sont discours était naturellement Vive le Québec libre.
De l'autre côté, le premier ministre Trudeau rageait et détruisait tout sur son passage. Cela fit un scandale diplomatique et le Canada exerça des représailles à cet effet, mais pas le Québec.
C'est ton classeur qui est moisi. Recopie toutes les feuilles dans un nouveau classeur.Je l'ai fait pour la feuille BD et j'ai un construit un TCD dessus. Pas de problème pour grouper.
Une fois que tu l'auras fait, veille à supprimer les liaisons qui peuvent substister entre les deux classeurs.
Daniel