[VBA-E] Tableau de synthèse

Version imprimable

13/03/2007, 15h07
encoupe

[VBA-E] Tableau de synthèse
Bonjour,

Je souhaiterai créé un tableau de synthèse avec des données issues d'un premier tableau de données :
Je m'explique :

Tableau de données
Code:

1 2 3 Date Marque Couleur 10/01/2007 citroen blanche 10/03/2007 renault noire
Tableau de synthèse :
Code:

1 2 3 4 5 Janvier Février Mars Citroen 1 Renault 1 Blanche 1 Noire 1
Pas très cohérents ces tableaux, mais c'est pour l'exemple.

Je souhaite donc, pour un mois donné, compter le nombre de citroen, de rENAULT .....

J'ai essayé de le faire en utilisant les fonctions Excel, mais je n'y suis pas arrivé.
Ce doit-être faisable en VB, mais malheureusement je n'y connait rien.

Quelqu'un peut'il m'aiguiller.

Merci
13/03/2007, 15h37
doringen

Utilises un tableau croisé dynamique, rapide, précis et flexible comme tout :roi:
13/03/2007, 15h53
Alqualonde

Effectivement un Tableau croisé dynamique semble tout indiqué ici !

Je pense toutefois qu'il te faudra créer une variable date qui soit homogène pour pouvoir agréger correctement les valeurs. Avec les fonctions mois(), jour() ... tu devrais t'en sortir !
13/03/2007, 16h00
illight

Citation:

Envoyé par doringen

Utilises un tableau croisé dynamique, rapide, précis et flexible comme tout :roi:

Je confirme :mrgreen: :mouarf1:
13/03/2007, 16h01
encoupe

Merci à tous les deux.

Je n'ai jamais utlisé de tableau croisé dynamique.
Je ne vois pas comment créer une colonne pour chaque mois de l'année.
Après je pense qu'il faut que je jongle entre zone de données quand je veux le nombre total d'une colonne, et zone de ligne lorsque je veux les totaux détaillés des éléments de la colonne.

Si vous pouvez m'indiquer comment créer ces colonnes pour chaque mois de l'année.

Merci
13/03/2007, 16h09
illight

1 pièce(s) jointe(s)

Une tite idée de la chose avec la pièce jointe : sur la feuil1, tu as les données, sur la feuil4 tu as le TCD :) a toi de faire joujou avec et comprendre comment il marche :)
13/03/2007, 16h12
doringen

le problème, c´est que comme semble être foutue ta source de données, il ne te créera jamais une colonne par mois mais une colonne par date dans ta source.
Pour ce que tu cherches, il faut que dans ta source tu ajoutes une colonne où tu extrais le mois de chaque date ( formule: =MOIS(CelluleOuEstLaDate) ) et que tu joues sur cette colonne dans le tableau croisé dynamique.
Pour utiliser les tableaux croisés dynamiques, il existe sûrement des tutoriaux bien faits sur le Ouèbe :google: , bien que je trouve que l´utilisation d´un TCD soit relativement intuitive.
13/03/2007, 16h18
Alqualonde
Si tu utilises le tableau croisé dynamique tu n'auras pas besoin de créer une colonne pour chaque mois. Il te suffit juste de créer une colonne à côté de ta colonne date qui contienne non plus la date mais seulement le mois (et éventuellement l'année si tu as des données qui se chevauchent sur plusieurs)

Ex :

Tu avais
Code:

1 2 3 Date Marque Couleur 10/01/2007 citroen blanche 10/03/2007 renault noire
Il faudrait obtenir un truc du genre
Code:

1 2 3 Date Mois Marque Couleur 10/01/2007 Janvier2007 citroen blanche 10/03/2007 Mars2007 renault noire
Ensuite tu fais un tableau croisé dynamique à partir de ces données, comme ça tu pourras croiser tes données en fonction du mois et non pas d'une date particulière.
13/03/2007, 16h23
encoupe

Merci a tous les deux, au moins vous êtes d'accord sur la réponse.
Pas de pb pour l'utilisation d'un TCD, mais c'est plus sur les petites astuces de programmation que je coince.

Une dernière petite question : Est-il possible dans un TCD, de rajouter indépendant de la plage d'origine.

Encore merci
13/03/2007, 16h52
Alqualonde
Montre nous ce que tu as essayé qu'on puisse essayer de te guider :)

Sinon un truc que j'ai pas compris, tu veux programmer ça pour un but précis ou c'est pour une utilisation occasionnelle ?

Si ça s'inscrit dans un but d'automatisation qui au final te fournit le tableau de synthèse, oui effectivement tu peux coder ton TDC et t'arranger pour que la plage choisie soit indépendante de tes données.

Faut juste que tu saches où trouver tes données, tu recherches la première donnée puis tu fais une extension de la sélection par des :
Code:

1 2 Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select
Et après le TCD et le tour est joué.
13/03/2007, 18h14
encoupe

1 pièce(s) jointe(s)

Je veux programmer ça dans un but bien précis, et pour utilisation quotidienne par des utilisateurs qui ne maitrise pas excel. Donc tout doit être automatisé.

Je joint un exemple du tableau de synthèse dont j'ai besoin avec la provenance des données.
J'espère que cela sera plus clair.

Existe t'il une fonction qui me permette d'affecter pour chaque mois en chiffre, l'équivalent en lettre (SI = 1 alors Janvier) Malheureusement, on ne peut imbriquer que 7 SI à la suite.

Merci
13/03/2007, 18h43
AlainTech

Citation:

Envoyé par encoupe

Existe t'il une fonction qui me permette d'affecter pour chaque mois en chiffre, l'équivalent en lettre (SI = 1 alors Janvier)

Oui, ça s'appelle un tableau (Array).

dans la série des "JeVaisYAllerCommeUnVeau", j´ai cru comprendre que tu voulais une fonction à pour voir utiliser dans les cellules de ton tableau, alors voilà :marteau: :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Public Function datez(source) As String
Dim erreur As Boolean
erreur = False
Select Case source
Case Is = "janvier"
datez = "1"
erreur = True
Case Is = "fevrier"
datez = "2"
erreur = True
Case Is = "mars"
datez = "3"
erreur = True
Case Is = "avril"
datez = "4"
erreur = True
Case Is = "mai"
datez = "5"
erreur = True
Case Is = "juin"
datez = "6"
erreur = True
Case Is = "juillet"
datez = "7"
erreur = True
Case Is = "aout"
datez = "8"
erreur = True
Case Is = "septembre"
datez = "9"
erreur = True
Case Is = "octobre"
datez = "10"
erreur = True
Case Is = "novembre"
datez = "11"
erreur = True
Case Is = "decembre"
datez = "12"
erreur = True
End Select
If erreur = False Then datez = "#ERREUR"
End Function

Et là, c´est le moment que je redoute où vous m´annoncez que j´aurais pu coder cette fonction en seulement 5 lignes...:aie:

13/03/2007, 19h55
encoupe

Merci Doringen, pour la fonction, elle marche parfaitement. Dans mon cas j'ai juste inversé le case et la source. :D

Avec un tableau:

Code:

1
2
3
4
5
6
Function Mois(i As Integer) As String
  Dim aMois
  aMois = Array("", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", _
                "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
  Mois = aMois(i)
End Function

Pour l'utiliser:

Code:

1
2
3
Sub test()
  MsgBox Mois(3)
End Sub