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

pascal21 · 22 Juin 2013

Code:

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 · 22 Juin 2013

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

Bonjour Pascal21

Tu peux t'inspirer de ceci

Code:

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 · 22 Juin 2013

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

bonjour et merci ça marche parfaitement

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

pascal21

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

Discussions similaires

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

pascal21

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency