Discussion :

[Gabout]

Bonjour,

J'ai un état représentant sous forme de tableau des données. Parmi ces données, je dispose d'un champ Mémo. Pour afficher les données, j'ai mis sa propriété Autoextensible à Oui.

Comment dimensionner les autres champs à la même hauteur que ce champ Mémo (variable selon le contenu) ?

Cordialement,

[Invité]

Salut Gabout

Tu peux peut-être t'inspirer de cela : http://starec.developpez.com/tuto/ec...retats/#LIII-E

Philippe

[Gabout]

Bonjour Philippe,

Ta réponse correspond parfaitement à mon problème.

Il subsiste cependant 2 difficultés :

1. pour les champs cachés, un cadre est également dessiné : en jouant sur la propriété du champ (ou sur la largeur) je devrais arriver à solutionner...
2. pour les champs auxquels est appliquée un mise en forme conditionnelle, cette mise en forme prend le dessus sur le cadre dessiné... et là je ne vois pas comment faire !

Une idée ?

[Invité]

Re

pour les champs auxquels est appliquée un mise en forme conditionnelle, cette mise en forme prend le dessus sur le cadre dessiné... et là je ne vois pas comment faire !

Comment fais-tu ta mise en forme conditionnelle ? Par l'outil fourni avec Access ?

Essayes de la faire en VBA pour l'inclure dans le code qui t'aidera à gérer ta hauteur.

Je pense que c'est un problème d'ordre d"évènement et que la MFC se fait avant le code du tuto, donc il n'y aura pas de recalcul par rapport à la MFC.

Philippe

[Gabout]

Bonjour Philippe,

Bien vu ! J'ai donc sélectionné les couleurs en les appliquant au rectangle dessiné... et cela fonctionne très bien.

Ci-dessous un exemple de code pour les intéressés...

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
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
  Dim oCtrl As Control
  For Each oCtrl In Me.Section(acDetail).Controls  ' on parcours toutes les zones de texte de la section
    If TypeOf oCtrl Is TextBox Then                ' on teste si ce sont des textbox
      oCtrl.BorderStyle = 0                        ' on rend la bordure invisible
      oCtrl.BackStyle = 0                          ' on rend le fond transparent
      If oCtrl.Name = "tacpri" Then
        Select Case Me.tacpri
          Case 0
            Me.FillStyle = 1
          Case 1
            Me.FillStyle = 0
            Me.FillColor = RGB(255, 0, 0)
          Case 2
            Me.FillStyle = 0
            Me.FillColor = RGB(255, 153, 0)
          Case 3
            Me.FillStyle = 0
            Me.FillColor = RGB(0, 128, 0)
        End Select
      End If
      Me.Line (oCtrl.Left, oCtrl.Top)-(oCtrl.Left + oCtrl.Width, Me.tacdes.Height), RGB(128, 128, 128), B
    End If
  Next oCtrl
End Sub
End Sub

Merci de ton aide, A+

[Gabout]

Bonjour Philippe,

Bien vu ! J'ai donc sélectionné les couleurs en les appliquant au rectangle dessiné... et cela fonctionne très bien.

Ci-dessous un exemple de code pour les intéressés...

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
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
  Dim oCtrl As Control
  For Each oCtrl In Me.Section(acDetail).Controls  ' on parcourt toutes les zones de texte de la section
    If TypeOf oCtrl Is TextBox Then                ' on teste si ce sont des textbox
      oCtrl.BorderStyle = 0                        ' on rend la bordure invisible
      oCtrl.BackStyle = 0                          ' on rend le fond transparent
      If oCtrl.Name = "tacpri" Then
        Select Case Me.tacpri
          Case 0
            Me.FillStyle = 1
          Case 1
            Me.FillStyle = 0
            Me.FillColor = RGB(255, 0, 0)
          Case 2
            Me.FillStyle = 0
            Me.FillColor = RGB(255, 153, 0)
          Case 3
            Me.FillStyle = 0
            Me.FillColor = RGB(0, 128, 0)
        End Select
      End If
      Me.Line (oCtrl.Left, oCtrl.Top)-(oCtrl.Left + oCtrl.Width, Me.tacdes.Height), RGB(128, 128, 128), B
    End If
  Next oCtrl
End Sub

Merci de ton aide, A+