Bonjour
j'ai un autre petit souci avec le code suivant sur un état :
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 ?
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
Merci de votre aide
isabelle
Partager