VBA Double click

Bonjour,

Avec la fonction double click, je souhaiterais pouvoir afficher 4 valeurs différentes dans la même cellule d'une feuille :

1er double click = Valeur 1

2ème double click = Valeur 2

3éme double click = Valeur 3

4ème double click = Valeur 4

5ème double click = Valeur 1 (boucle)

Je connais la formule pour 2 valeurs mais pas 4.

Merci de votre aide.

Cdt

Bonjour,

Une proposition à placer dans le module VBA de la feuille concernée :

Dim Boucle As Integer
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Address = "$A$1" Then 'Cellule cible
    Boucle = Boucle + 1 'Compteur de clic
    Select Case (Boucle Mod 4)
        Case 0
            Target = "Texte 4"
        Case 1
            Target = "Texte 1"
        Case 2
            Target = "Texte 2"
        Case 3
            Target = "Texte 3"
    End Select
    Cancel = True 'Permet de recommencer l'opération "double clic" sans changer de cellule
End If

End Sub

Bonjour

C'est parfait ! Merci beaucoup.

Bonne fin de journée

Arnaud

Arnaud92 a écrit :

Bonjour

C'est parfait ! Merci beaucoup.

Bonne fin de journée

Arnaud

Content d'avoir pu apporter mon aide.

PS : le compteur est remis à 0 à la fermeture du fichier.