Public Cible As Range
If Not Cible Is Nothing Then Cible.Value = Temps / 86400
With New UFmChrono: .Caption = NomDeLaPersonne: Set .Cible = LaCellule: .Left = Rnd * 100 + 50: .Top = Rnd * 100 + 50: End With
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Me.[TabChrono], Target(1, 1)) Is Nothing Then Exit Sub
Set Target = Intersect(Me.[TabChrono], Target(1, 1).EntireRow)
With New UFmChrono
.Caption = Target.Columns(1).Value
Set .Cible = Target.Columns(2)
.Left = 200 * Rnd + 500
.Top = 200 * Rnd + 200
End With
End Sub