Re : un double clic pour afficher une valeur après l'autre (en boucle)
Bonsoir anthoYS,
Code:
Dim n As Byte 'mémorise
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A1:S16]) Is Nothing Then Exit Sub
Cancel = True
n = n + 1
Target = n
If n = 3 Then n = 0
End Sub
Si nécessaire on peut compliquer avec remise à zéro à chaque nouvelle cellule...