Bonjour,

Ce code me permet de tracer des traits à gauche de chaque zone de texte de la section détail :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
For Each MonControl In Détail.Controls
        X1 = [MonControl].Left
        Me.Line (X1, 0)-(X1, Détail.Height)
La partie suivante me permet de tracer un trait plus grand pour toutes les zones de texte de la ligne au cas ou une zone de texte serait plus grand que le détail (mes zones de texte et le détail sont autoextensibles)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
        If ZoneDeTexte1.Height > Détail.Height Then
              Me.Line (X1, 0)-(X1, ZoneDeTexte1.Height)
        End If
        If ZoneDeTexte2.Height > ZoneDeTexte1.Height Then
              Me.Line (X1, 0)-(X1, ZoneDeTexte2.Height)
        End If
        If ZoneDeTexte3.Height > ZoneDeTexte2.Height Then
              Me.Line (X1, 0)-(X1, ZoneDeTexte3.Height)
        End If
        'etc avec toutes les autres zones de texte
Next
Ce que je voudrais, c'est pouvoir mettre ce code dans tous mes états et donc faire une boucle sur toutes mes zones de textes pour trouver la plus grande...
Quand je prends MonControl.height, il me donne la hauteur du contrôle mais pas sa valeur quand celui-ci est plus grand que prévu (autoextensible)
J'espère avoir été clair.
Quelqu'un saurait comment s'y prendre?

Merci de votre aide.