Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
Cancel = True
If c.Address = "$D$12" Then
If Range("d14") < 32 Then
c = c + 1
Else
c = c
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("d14") > 32 Then With Range("d12"): .Value = .Value - 1: End With
End Sub
...j'ai mis une forme dans ma feuille excel, j'ai copié ta macro dans le mode VBA et je l'ai affectée a la forme sur la feuille excel mais ca ne fonctionne pas... est-ce une macro automatique...
Re-bonjour,
Je sais comment procéder.
A bientôt
Private Sub Worksheet_SelectionChange(ByVal R As Range)
If R.Address <> "$D$12" Then Exit Sub
R = 0
Do While [D14] < 26
R = R + 1
Application.Wait (Now + TimeValue("0:00:01")) 'tempo pas nécessaire
Loop
R(1, 2).Select
End Sub
...Je sais comment procéder...
...Je ne sais comment procéder...