Discussion :

[Tetard69]

Bonjour à tous !

J'ai un commercial qui prospecte et qui fait entrer des clients.
Ces clients passent des commandes.
J'ai besoin de quantifier le nombre de commandes passées par semaine pendant une durée de 15 semaines consécutives.
J'arrive à extraire les données souhaitées avec une requête analyse croisée qui alimente une table temporaire (puisque je l'efface à chaque changement de consultation client).
Cette table comporte le champ du nom du client et des champs de 1 à 52 qui correspondent aux semaines de l'année et dans lesquels sont collées les valeurs correspondant au nombre des commandes passées.
J'ai donc une table qui comporte des champs vides (pour les semaines sans activité) et d'autres qui contiennent le nombre de commandes.

Exemple :
nom : Bidule
1 à 10 : vide
11 (début de la collaboration) à 20 : les valeurs des semaines passées
21 à 26 (fin du suivi) : vides pour l'instant mais qui seront remplis dans les semaine suivantes
27 à 52 : resteront vides … pour ce client !

Bien sûr, chaque client ne commençant pas à la même date, les valeurs de l'exemple sont totalement variables et se décalent donc tout au long de l'année

Mon besoin, dans ce cas, pour un état et un formulaire est de ne faire apparaitre que les champs de 11 à 26 (soit 15 semaines), et qu'ils puissent être alignés à partir de la gauche de l'état et du formulaire.
Quelle que soit la date à laquelle le client commence à passer des commandes, je souhaiterais que le formulaire et l'état commencent à gauche par la première semaine comportant une activité (ce peuvent être n'importe quel champs de 1 à 52)
Il n'y a aussi qu'un seul client par formulaire et état

Je ne sais si j'ai été bien clair !!!?

Si quelqu'un a une idée … je suis preneur !

Merci d'avance

[bertiny]

Bonjour
Je pense que tu dois faire une requête sélection à partir de la table temporaire. C'est à l'aide de celle-ci que tu vas alimenter ton état.
Pour la mise en page il te suffit juste d'ouvrir ton état ou ton formulaire en mode création et tu disposes tes éléments comme tu veux.
Cordialement

[james68]

Salut
Pourquoi ne pas mettre 15 champs dans ton etat ( correspondant aux 15 semaines )
Texte1---->Texte15
et ensuite par le code VBA "jouer" sur les valeurs des champs sources de ta requête en fonction de la semaine a partir de laquelle tu veux affciher les datas ?
Me.Texte1.ControlSource = "NumeroDe1ereSemaine" ( nom du champ de ta requete source )
Me.Texte2.ControlSource = "NumeroDe2emeSemaine"
etc...
et ceci bien sur a l'ouverture de ton état.
En espérant t'avoir donner une piste.
++

[Tetard69]

Merci pour ces réponses !

Salut
Pourquoi ne pas mettre 15 champs dans ton etat ( correspondant aux 15 semaines )
Texte1---->Texte15
et ensuite par le code VBA "jouer" sur les valeurs des champs sources de ta requête en fonction de la semaine a partir de laquelle tu veux affciher les datas ?
Me.Texte1.ControlSource = "NumeroDe1ereSemaine" ( nom du champ de ta requete source )
Me.Texte2.ControlSource = "NumeroDe2emeSemaine"
etc...
et ceci bien sur a l'ouverture de ton état.
En espérant t'avoir donner une piste.
++

Ce serait en effet l'esprit !
La table temporaire est vidée et remplie à chaque changement de client dans une liste déroulante d'un autre formulaire.
J'ai donc invariablement tous les champs de semaine de 1 à 52 et nommés comme tels, la difficulté est donc de pouvoir sélectionner la première semaine et de les coller dans le formulaire ou l'état !
Ci après, 2 exemples pour lesquels la première semaine est différente, la difficulté est bien de faire correspondre dans le 1er, la Semaine 1 avec la valeur S11 de la table et dans le 2ème la Semaine 1 avec la valeur S17

[james68]

Slt
Brut de décoffrage...pas eu le temps de faire la dentelle...
regarde le fichier joint si ca peux correspondre a tes besoins ...
j'ai fait ca a partir de la semaine 10 et sur 5 semaines...
après il faut encore peaufiner...
++

[Tetard69]

Slt
Brut de décoffrage...pas eu le temps de faire la dentelle...
regarde le fichier joint si ca peux correspondre a tes besoins ...
j'ai fait ca a partir de la semaine 10 et sur 5 semaines...
après il faut encore peaufiner...
++

Un grand merci !
J'avais besoin de faire apparaitre les 15 semaines, de les aligner à gauche et de situer la semaine en cours
J'ai donc procédé comme suit (c'est très certainement perfectible … peut être avec une boucle !?) :

Code :

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

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
Private Sub Form_Open(Cancel As Integer)
Dim Sdeb As Integer
Dim Sday As Variant
 
'Extrait les valeurs de référence
 
        Sdeb = DFirst("debut", "TMP_suivi_fidelisation_croisee")
        Sday = Format(Now(), "ww", vbMonday, vbFirstFourDays)
 
'Prépare les valeurs à renvoyer
 
        s1lib = Sdeb
        s2lib = Sdeb + 1
        s3lib = Sdeb + 2
        s4lib = Sdeb + 3
        s5lib = Sdeb + 4
        s6lib = Sdeb + 5
        s7lib = Sdeb + 6
        s8lib = Sdeb + 7
        s9lib = Sdeb + 8
        s10lib = Sdeb + 9
        s11lib = Sdeb + 10
        s12lib = Sdeb + 11
        s13lib = Sdeb + 12
        s14lib = Sdeb + 13
        s15lib = Sdeb + 14
 
'Colle les valeurs
 
        Me.Controls("S1").ControlSource = s1lib
        Me.Controls("S2").ControlSource = s2lib
        Me.Controls("S3").ControlSource = s3lib
        Me.Controls("S4").ControlSource = s4lib
        Me.Controls("S5").ControlSource = s5lib
        Me.Controls("S6").ControlSource = s6lib
        Me.Controls("S7").ControlSource = s7lib
        Me.Controls("S8").ControlSource = s8lib
        Me.Controls("S9").ControlSource = s9lib
        Me.Controls("S10").ControlSource = s10lib
        Me.Controls("S11").ControlSource = s11lib
        Me.Controls("S12").ControlSource = s12lib
        Me.Controls("S13").ControlSource = s13lib
        Me.Controls("S14").ControlSource = s14lib
        Me.Controls("S15").ControlSource = s15lib
 
 
'Change la couleur de fond de la case de la semaine en cours
 
        If Me.Controls("S1").ControlSource = Sday Then
            Me.Controls("S1").BackColor = 13434879
        End If
 
        If Me.Controls("S2").ControlSource = Sday Then
            Me.Controls("S2").BackColor = 13434879
        End If
 
        If Me.Controls("S3").ControlSource = Sday Then
            Me.Controls("S3").BackColor = 13434879
        End If
 
        If Me.Controls("S4").ControlSource = Sday Then
            Me.Controls("S4").BackColor = 13434879
        End If
 
        If Me.Controls("S5").ControlSource = Sday Then
            Me.Controls("S5").BackColor = 13434879
        End If
 
        If Me.Controls("S6").ControlSource = Sday Then
            Me.Controls("S6").BackColor = 13434879
        End If
 
        If Me.Controls("S7").ControlSource = Sday Then
            Me.Controls("S7").BackColor = 13434879
        End If
 
        If Me.Controls("S8").ControlSource = Sday Then
            Me.Controls("S8").BackColor = 13434879
        End If
 
        If Me.Controls("S9").ControlSource = Sday Then
            Me.Controls("S9").BackColor = 13434879
        End If
 
        If Me.Controls("S10").ControlSource = Sday Then
            Me.Controls("S10").BackColor = 13434879
        End If
 
        If Me.Controls("S11").ControlSource = Sday Then
            Me.Controls("S11").BackColor = 13434879
        End If
 
        If Me.Controls("S12").ControlSource = Sday Then
            Me.Controls("S12").BackColor = 13434879
        End If
 
        If Me.Controls("S13").ControlSource = Sday Then
            Me.Controls("S13").BackColor = 13434879
        End If
 
        If Me.Controls("S14").ControlSource = Sday Then
            Me.Controls("S14").BackColor = 13434879
        End If
 
        If Me.Controls("S15").ControlSource = Sday Then
            Me.Controls("S15").BackColor = 13434879
        End If
 
End Sub

Et ça donne ça :

[james68]

oui avec une boucle for to next ca serait plus propre et moins fastidieux a ecrire.
dans l'exemple queje t'ai transmis c'est le cas.

Code :

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

1
2
3
4
5
 
For i = SemaineDebut To SemaineDebut + 5
    Me.Controls("s" & i & "Lib").ControlSource = "S" & i
    Me.Controls("Etiq" & i).Caption = "S" & i
Next i

Si tu as trouvé ta solution , n'oublie pas de mettre en "résolu"... merci.
Si tu as d'autres question a ce sujet n'hesite pas.
Si on peux aider...
A plus et bon courage.
PS : pour les couleurs , une mise en forme conditionnelle serait plus judicieuse et éviterait toutes tes boucles If..Then (temps de traitement plus long).

[Tetard69]

Merci James,
C'est en effet bien plus propre !!!