Comment eviter de cliquer

Salut a tous, forum

Comment SVp éviter un click droit pour voir un résultat

Sauf que dans ce cas je suis obliger de cliquer droit pour voir le résultat

On ne peut pas avoir le résultat sans avoir a cliquer ???

J'ai mis Public Rtt as integer dans un module c'est ok

-------------------------------------------------------------------------------------------------
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If Rtt = 5 Then Msgbox Rtt >>> j'ai bien 5 mais il faut que je click a chaque fois

le vrai test sera en fait

If Rtt = 5 Then gosub AfficheDate
---------------------------------------
Donc ce serai mieux si je n'ai pas a cliquer a chaque fois

Merci a tous

bonne fin d'après midi
Raymond