séparation des fonction dans le même code(RÉSOLU)

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
 

Dranreb

XLDnaute Barbatruc
bonsoir.
Essayez comme ça :
VB:
Private Sub Worksheet_Change(ByVal R As Range)
Select Case R.Address
   Case [M5].Address
      Rows("6:10").Hidden = 1
      Rows("14:18").Hidden = 1
      Rows("5:" & R + 5).Hidden = 0
      Rows("13:" & R + 13).Hidden = 0
   Case [L23].Address
      Rows("25:74").Hidden = 1
      Rows("24:" & R + 24).Hidden = 0
   End Select
End Sub
 

chaelie2015

XLDnaute Accro
bonsoir.
Essayez comme ça :
VB:
Private Sub Worksheet_Change(ByVal R As Range)
Select Case R.Address
   Case [M5].Address
      Rows("6:10").Hidden = 1
      Rows("14:18").Hidden = 1
      Rows("5:" & R + 5).Hidden = 0
      Rows("13:" & R + 13).Hidden = 0
   Case [L23].Address
      Rows("25:74").Hidden = 1
      Rows("24:" & R + 24).Hidden = 0
   End Select
End Sub
Bonjour BERNARD
Merci pour la réponse ,c'est exactement ce que je cherchais.
A+
 

Discussions similaires

Statistiques des forums

Discussions
311 737
Messages
2 082 030
Membres
101 876
dernier inscrit
JULIEN21370