chaelie2015
XLDnaute Accro
Bonjour Forum
je souhaite dans même code faire séparer les fonctions ( indépendante) est ce que c'est faisable
exemple :
Private Sub Worksheet_Change(ByVal R As Range)
'fonction 1
If R.Address <> [M5].Address Then Exit Sub
Rows("6:10").Hidden = 1
Rows("14:18").Hidden = 1
Rows("5:" & R + 5).Hidden = 0
Rows("13:" & R + 13).Hidden = 0
'fonction 2
If R.Address <> [L23].Address Then Exit Sub
Rows("25:74").Hidden = 1
Rows("24:" & R + 24).Hidden = 0
End Sub
salutations
je souhaite dans même code faire séparer les fonctions ( indépendante) est ce que c'est faisable
exemple :
Private Sub Worksheet_Change(ByVal R As Range)
'fonction 1
If R.Address <> [M5].Address Then Exit Sub
Rows("6:10").Hidden = 1
Rows("14:18").Hidden = 1
Rows("5:" & R + 5).Hidden = 0
Rows("13:" & R + 13).Hidden = 0
'fonction 2
If R.Address <> [L23].Address Then Exit Sub
Rows("25:74").Hidden = 1
Rows("24:" & R + 24).Hidden = 0
End Sub
salutations