pascal21
XLDnaute Barbatruc
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
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