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

anthoYS · 7 Janvier 2015

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 · 7 Janvier 2015

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

A+

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

anthoYS

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

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

anthoYS

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency