Dim c As Range
Set c = ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.TopLeftCell
Bonsoir Éric, Dranret,
Merci Danret, j'ai consulté le classeur que vous avez eu l'amabilité de partager. Malheureusement, je ne peux difficilement l'adapter à ce projet. Les chronos ne répondent pas entièrement à la fonctionnalité recherchée. D'autre part mes connaissances en VBA étant très pauvres, je ne comprends pas et ne voit vraiment comment l'apprivoiser.
Mais merci tout de même...
Bonsoir Éric,
J'ai renommé les images, introduit à taton la variante et le set , ( et retouché les macros)
Mais je n'arrive toujours pas à contrôler les chronos indépendamment. (Maintenant, je controle le premier chrono à partir de n'importe quel autre)
Apparemment, quelque chose m'a échappé…
Mais je continue mes recherches
Sub Test()
Dim N&
For N = 1 To 7
With New UFmChrono: .Lancer: .Stopper
.Left = 100: .Top = N * .Height + 100: End With
Next N
End Sub
Private Sub UserForm_Initialize()
Set RythRaff = New Rythmeur
QueryPerformanceFrequency Fréq
ImgBtnVert.ZOrder
Me.Show
End Sub
Option Explicit
Private TUFmChrono(1 To 7) As UFmChrono
Private Sub Worksheet_Activate()
Dim N As Long
For N = 1 To 7
Set TUFmChrono(N) = New UFmChrono
With TUFmChrono(N): .Left = 100: .Top = N * .Height + 100: End With
Next N
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim N As Long
N = Target.Row \ 5
If N >= 1 And N <= 7 Then Target.Value = TUFmChrono(N).Value
End Sub
Private Sub Worksheet_Deactivate()
Dim N As Long
For N = 1 To 7
Unload TUFmChrono(N)
Next N
End Sub