C'est absolument génial. J'ai un bug en la faisant tourner ça me met ça : Pt = Split(T0(idx, 2), "|") en jaune dans le code suivant:
Sub Dessin_Traits(Optional x As Byte)
Dim Crd1 As Coord, Crd2 As Coord, Pt As Variant
Dim idx As Integer, i As Integer
For i = 2 To UBound(T1)
idx = Idx_T2D(T0, CStr(T1(i, 1)), 1)
Debug.Print idx
Pt = Split(T0(idx, 2), "|")
Crd1 = XY(CSng(Pt(0)), CSng(Pt(1)))
idx = Idx_T2D(T0, CStr(T1(i, 2)), 1)
Pt = Split(T0(idx, 2), "|")
Crd2 = XY(CSng(Pt(0)), CSng(Pt(1)))
Trait Crd1.x, Crd1.y, Crd2.x, Crd2.y, CSng(T1(i, 3)), T1(i, 1) & T1(i, 2)
Next i
End Sub
Ca doit etre un probleme avec les barres verticales
Merci!!