un double clic pour afficher une valeur après l'autre (en boucle)

[anthoYS]

Bonjour,


Admettons sur la plage A1:S16, je double clique on affiche 1, ensuite 2, puis 3, on revient à 1 si double clic.


Merci
à+

 

[job75]

Re : un double clic pour afficher une valeur après l'autre (en boucle)

Bonsoir anthoYS,

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...

A+