appliquer 2 codes différents sur deux zones différentes sur clic droit

[pascal21]

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)On Error Resume Next
If Intersect(Target, Rows("5:14")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Cancel = True
Selection.Interior.ColorIndex = Cells(Target.Row, 1).Interior.ColorIndex


copier 'macro


If Intersect(Target, Rows("17:32")) Is Nothing Then Exit Sub
Coller 'macro
copier 'macro
Application.ScreenUpdating = True




End Sub

bonjour
je cherche comment faire pour appliquer 2 codes différents sur 2 zones différentes avec le clic droit
la 1ere zone sur les lignes 5:14 et la 2eme sur les lignes 17:32
comment faire merci
edit la question est plutôt comment faire appliquer un code en fonction de la zone sélectionnée sur un clic droit

 

[pierrejean]

Re : appliquer 2 codes différents sur deux zones différentes sur clic droit

Bonjour Pascal21

Tu peux t'inspirer de ceci

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 4 And Target.Row < 15 Then
  MsgBox ("Entre 5 et 14")
End If
If Target.Row > 16 And Target.Row < 33 Then
  MsgBox ("Entre 17 et 32 ")
End If
End Sub

Et par pitié pas de on error resume next systématique (ça n’enlève pas les erreurs ,ça les cache !!!!)

 

[pascal21]

Re : appliquer 2 codes différents sur deux zones différentes sur clic droit

bonjour et merci ça marche parfaitement