C’est top je vais teste maintenant de remettre dans les fichiers CVS , je vous cache pas que je dois travaille encore un peu dessus pour gagne en visiblité sur le fonctionnement
Juste quand je lance « Lignes Nouvelles » , les donnes s’efface dans le tbl_ligne_N.
Sub Lignes_Nouvelles()
Set LO = Range("TBL_Lignes_Nouvelles").ListObject
'If LO.ListRows.Count Then LO.DataBodyRange.Delete 'ignorer cette ligne avec ce ' en face
LO.ListRows.Add 'ajouter une ligne vierge entre les nouvelles lignes et les anciennes
For Each shp In Sheets("Visuel_segment").Shapes
If LCase(shp.Name) Like "ligne*" Then
With shp
LO.ListRows.Add.Range.Value = Array(.Name, .Left, .Top, .Left + .Width, .Top + .Height)
End With
End If
Next
Application.Goto LO.Range, 1
End Sub
juste pour m’amuser, un faux segment 1 dans la zone 6 Forum_Location_formeV3.xlsm (208,4 Ko)
Celui avec la fleche dans le centre, les coins les plus proches sont BR et TL (BottomRight et TopLeft), et je n’ai pas programmé ce cas
Donc, le segment peut croiser les racks un petit peut, tant que vous ne dépassez pas la moitié du rack avec le segment, je ne pense pas que la fleche se trompera, mais naturellement, c’est mieux d"éviter cela.