Plage cellule avec clic droit

[glm]

Rebonsoir à tous,
Est-ce possible de définir une plage de cellules qui fonctionnerais avec cette macro
Ex9:AH26
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = 'CP' Or Target.Value = 'RC' Or Target.Value = '' Or Target.Value = 'REC' Or Target.Value = 'CPA' Or Target.Value = 'CE' Then
MsgBox 'Il est en repos!'
Cancel = True
Else
convertisseur.Show
Cancel = True
End If
End Sub
Tout le reste de la feuille serait libre
Merci pour vos idées
Bonne Soirée
A+

 

[Dan]

Bonsoir,

Après PRIVATE SUB .....;place cette instruction :

If Not Application.Intersect(Target, Range('D9:AH26')) Is Nothing Then

et après END IF tu remets un nouveau END IF

 

[glm]

Un grand merci dan,
quel talent
Bonne soirée
A+
glm

 

[Dan]

Bonsoir,

Pas de quoi Gims.

Bon WE

 

[Robert]

Bonsoir glm, Dan, bonsoir le forum,

Si, si y'a de quoi Dan car pour ma part je n'avais même pas compris ce que glm demandait...

glm, je t'ai fait une proposition sur un autre de tes fils concernant la gestion des ComboBoxes...

 

[Dan]

Re,


LOL !! Robert