Discussion :

[stefan69]

Bonjour,

Cela fait plusieurs mois que je me promène sur votre site et grâce à vous j’ai pu développer un outil de gestion d’intervention sous VBA Excel 2003 (tout en userform : saisie, recherche multicritère, alarme, sauvegarde, archivage automatique …).
Depuis 15 jours je cherche à mettre au point un module de statistique.
L’objectif final est de permettre à l’utilisateur de saisir ces besoins dans une userform (sélection multicritère) et dans obtenir une extraction dans une feuille ( et non pas dans une userform car j’ai un message de sécurité activeX au démarrage de l’application (un peu casse pied), modification de la registry faite)

Description :

Pour ce faire, je possède dans une feuille (interventions) les champs suivant (sous forme de colonne) :

- Intervenants (le nom du tech)
- Type d’interventions (Maintenance, Travaux, Devis, Dépense conrolé …)
- Bâtiment (A, B, C …)
- Équipements (Ventilation, Clim, Chauffage)
- Bureaux (B1, B2, B3) .
Pour ces 2 derniers, ils sont lié à un bâtiment.
- Date d’intervention (dont l’affichage peut ce faire par mois, trimestre, semestre, année)

Problématiques :

1) C'est que je ne métrise pas du tout les TCD en VBA excel

2) J’arrive à créer un TCD manuellement cela fonctionne sans pb, par contre, je n’arrive pas le créer en VBA excel 2003 dans une feuille (Statistique).
J’ai étudié la FAQ de SilkyRoad du 25/06/2006 à 19h50 et j’ai l’erreur suivante : Erreur définie par l’application ou par l’objet.
Je pointe bien au bonne endroit et il me crée un début de TCD, mais vide.

Code :

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

1
2
3
4
    ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        [Interventions!A1].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
        TableDestination:="Statistique!R3C1", _
        TableName:="Mon TCD"

3) Mon autre pb: comment faire pour que l’ensemble soit dynamique ?
CAD : Lors de la sélection, dans la userform, l’utilisateur précisera si il veut ces infos en ligne ou en colonne.

Est-ce que c’est réalisable ou dois-je imposer une trame prédéfinie avec une batterie de TCD dans une feuille et ressortir celle demandée ?


Stefan

[Access Newbie]

Bonjour,

Concernant le TCD dynamiques, j'ai rencontré les mêmes problèmes. J'ai retenue comme solution un TCD que je met sur une feuille que je cache puis ensuite je fais mes manipulations de champ en lignes et colonnes via du vba. Puis en faisant des copier coller de valeurs (et de la mise en forme).

l’utilisateur précisera si il veut ces infos en ligne ou en colonne

C'est exactement ce qui m'était demandé et j'ai reussi à m'en sortir avec la méthode citée plus haut.

PS : dans cet exercice, l'éditeur de macro te sera d'une aide précieuse

[stefan69]

Hello Access Newbie,

Merci pour ta réponse , je m'y mets sur le champs. Nous allons bien voire si je suis à la hauteur de la tâche

Pour ce module, c'est un défi perso que je me lance, rien ne m'a été demandé

Encore merci,
Stefan