Génération de rectangles par VBA sous ACCESS 2000

**keketteboy** · 27/05/2008, 17h44

Bonjour,

Je suis sous ACCESS 2000, et j'aimerais pouvoir créer des rectangles qui seront coloriés par la suite mais tout ça en passant par du code VBA sans avoir à le dessiner à la main car je dois générer un nombre assez conséquent de rectangles donc les dessiner tous à la main serait une trop grande perte de temps (il y en a 365 x 3 à faire), les 365 rectangles doivent être générés les uns à la suite des autres puis se colorier en fonction de paramètres que je rentrerai par la suite.
Quelqu'un pourrait-il me dire si c'est possible ou dois-je me taper toute la création à la main?

Merci d'avance.

**FreeAccess** · 27/05/2008, 19h08

Bonjour......

Est-ce que tes 365 rectangles seront visibles tous en même temps..

Car tu peux très bien "créer" en "dur" tes 3 x 365 rectangles avec leur propriété Visible = non et les afficher (les rendre visible) à la demande.

Sinon, en fonction de ce que tu souhaite faire, tu peux envisager la création "dynamique" de ton formulaire et des rectangles necessaires...

Un peu plus de précision serait bienvenue.....

Invité · 27/05/2008, 20h02

Bonjour

Heu petit problème, Access (du moins la version 2002) n'accepte que 754 contrôles dans un formulaire, hors 365*3 = 1095.

Problème, revoit ce que tu veux faire.

Starec

**keketteboy** · 28/05/2008, 10h55

Bonjour et merci de vous intéresser à mon cas.

Je souhaiterais, en fait, faire une sorte de planification sous ACCESS : pour un produit, j'ai 3 types de tests {test01, test02, test03} à réaliser à une certaine fréquence dans l'année, respectivement {n, m, p} fois. Donc pour visualiser l'avancée des tests, je dois voir une ligne de rectangles représentant les jours de l'année (d'où les 365 carrés). C'est pourquoi je souhaiterais pouvoir générer par le code VBA tous les rectangles car ils devront être coloriés en fonction du nombre de tests à faire.

Sinon je voulais savoir si le fait d'utiliser les sous-formulaires réglait le problème du nombre de contrôles d'ACCESS, par exemple, comme sur l'image jointe, plutôt que de mettre la barre des 3 tests sur le même formulaire, découper chaque ligne (donc les 365 contrôles) dans un sous-formulaire, ainsi j'aurai bien mes 3 x 365 contrôles mais répartis dans 3 sous-formulaires différents compris dans un formulaire qui regrouperait les 3 autres.

Si cela ne marche pas,je ne raisonnerai plus par jours mais par semaines ainsi je n'aurais que 52 x 3 = 156 rectangles à générer pour un produit.

Légende de la figure : les couleurs importent peu, c'est seulement pour dire qu'on est dans une autre période donc on a un test par couleur, par exemple, pour le test01, il y a 4 couleurs différentes donc 4 test01 à réaliser, et ainsi de suite.

Petit récapitulatif de mes problèmes :
1) Utiliser des sous-formulaires me permet-il de dépasser la limite du nombre de contrôles imposé par ACCESS 2000 ?
2) Comment générer par code VBA ces rectangles afin de leur affecter un numéro (n° rectangle = n° jour) ?
3) Comment colorier ces rectangles par code VBA ?

Merci encore une fois de bien vouloir me consacrer du temps.

**micniv** · 28/05/2008, 12h48

Si tu peux n'afficher que par semestre ça peut être une application de cet exemple de planning
http://www.developpez.net/forums/sho...d.php?t=281969

Et par la suite, si j'étais toi j'envisagerais une autre @ mail ...

**keketteboy** · 28/05/2008, 14h46

Désolé pour le pseudo mais rien à voir avec la connotation qu'on pourrait lui prêter. Sinon, la visualisation se fait forcément sur une année et non sur un semestre et ce détail est assez important. Mais merci quand même.

**keketteboy** · 28/05/2008, 18h29

J'ai résolu au moins une de mes 3 questions : on peut effectivement régler le problème de la limite du nombre de contrôles par des sous-formulaires : je mets chacun des types de tests dans un sous-formulaire du coup ça me donne 365 x 3 contrôles mais répartis dans 3 sous-formulaires contenus dans un formulaire ... maintenant, reste le problème de les générer par le code VBA et non à la main, puis de les colorier par code, toujours.

Invité · 28/05/2008, 18h30

Bonjour

Regarde dans l'aide VB du coté de CreateControl

Starec.

**ClaudeLELOUP** · 28/05/2008, 19h41

Si le formulaire s'appelle "Formulaire1" et que l'on a dessiné un rectangle "modèle" appelé "1" dans la section "Détail", la fonction suivante va juxtaposer 364 rectangles identiques à la droite du rectangle "modèle"
Ces rectangles seront appelés 2,3 ... (sans doute pratique pour la suite)

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub créerRectangle()
Dim R  As Control
Dim i As Integer
For i = 2 To 364
 
Set R = CreateControl("Formulaire1", acRectangle, , , , _
    Forms!Formulaire1("1").Left + (i - 1) * Forms!Formulaire1("1").Width, Forms!Formulaire1("1").Top, Forms!Formulaire1("1").Width, Forms!Formulaire1("1").Height)
R.Name = i
Next i
End Sub

Remarque : avant d'exécuter, il faut ouvrir "Formulaire1" en mode création.

**ClaudeLELOUP** · 28/05/2008, 21h13

Dans le même contexte

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
Public Sub ColorierLesRectangles()
Dim R  As Control
Dim i As Integer
For i = 1 To 3
Forms.Formulaire1("" & i & "").BackColor = vbBlack
Forms.Formulaire1("" & i & "").BackStyle = 1
Next i
For i = 4 To 6
Forms.Formulaire1("" & i & "").BackColor = vbYellow
Forms.Formulaire1("" & i & "").BackStyle = 1
Next i
For i = 7 To 9
Forms.Formulaire1("" & i & "").BackColor = vbRed
Forms.Formulaire1("" & i & "").BackStyle = 1
Next i
'NB sans doute un test belge!
End Sub

**ClaudeLELOUP** · 29/05/2008, 05h41

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
Public Sub ColorierLesRectanglesVariante()
Dim R  As Control
For Each R In Forms.Formulaire1.Controls
  Select Case R.Name
    Case 1 To 3
    R.BackColor = vbBlue
    R.BackStyle = 1
    Case 4 To 6
    R.BackColor = vbWhite
    R.BackStyle = 1
    Case 7 To 9
    R.BackColor = vbRed
    R.BackStyle = 1
  End Select
Next R
MsgBox "Allons enfants ...", vbExclamation, "Claude Joseph Rouget de Lisle"
End Sub

Remarque : le formulaire doit être ouvert