Discussion :

[isabelle b]

Bonjour

j'ai un autre petit souci avec le code suivant sur un état :

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
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
 
Dim MonControl As Control
Dim X1 As Single
    For Each MonControl In Détail.Controls  'Parcour tous les control de la zonne détail
 
        If MonControl.ControlType = acLine Then  ' dans le cas de la ligne déssine une ligne verticale à droite
            X1 = [MonControl].Left + [MonControl].Width
        Else
           X1 = [MonControl].Left 'dans les autres cas se place à gauche des controls
        End If
 
        If MonControl.Visible = True And MonControl.ControlType <> acCheckBox Then
        'Me.DrawStyle = 0
        'Me.DrawWidth = 10
        Me.Line (X1, 0)-(X1, Me.Height), vbBlack ' Dessine une ligne verticale
        End If
 
    Next
 
End Sub

Ce code permet d'adapter la hauteur du quadrillage de mon tableau en fonction du contenu des cellules. Toutefois si ma cellule fait plus de deux lignes il laisse un espace entre la ligne et la suivante, alors que je lui demande d'adapter la hauteur de la ligne verticale en fonction de la hauteur de la section détail. Savez vous d'où cela peut il venir ?

Merci de votre aide

isabelle

[Simplifi]

hello
j'ai l'impression, à première vue que le pb vient de Me.Height
je ne suis pas sûr qu'à ce moment Me soit le détail
pose un point d'arrêt, F9, un espion et vérifie qui est Me et quelle est la valeur de Me.Height

A+

[isabelle b]

Bonjour

merci pour ta réponse

oui et non, j'ai agrandi un peu la zone de détail et cette fois, ca marche

mais je ne comprends pas pourquoi alors que la zone est autoextensible et reductible, il y avait besoin de lui donner un hauteur un peu plus grande pour qu'il consente à s'agrandir au delà de trois lignes

en tous les cas mon problème pour ce cas est résolu

merci

isabelle