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

chaelie2015 · 20 Septembre 2018

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 · 20 Septembre 2018

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 · 20 Septembre 2018

Dranreb à dit:

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+

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

chaelie2015

XLDnaute Accro

Dranreb

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Discussions similaires