(RESOLU)Simplifier un code (afficher masquer les lignes)

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

chaelie2015

XLDnaute Accro
BONJOUR FORUM,
Je cherche un code qui soit plus simple a celui-ci
VB:
If Not Intersect(Rows(Target.Row), [M1]) Is Nothing Then
      Application.ScreenUpdating = False
      n = CInt([M1])
      Rows("4:13").Hidden = True
           
      Select Case n
        Case 1
            Rows("4:4").Hidden = False
        Case 2
            Rows("4:5").Hidden = False
        Case 3
            Rows("4:6").Hidden = False
        Case 4
            Rows("4:7").Hidden = False
        Case 5
            Rows("4:8").Hidden = False
        Case 6
            Rows("4:9").Hidden = False
        Case 7
            Rows("4:10").Hidden = False
        Case 8
            Rows("4:11").Hidden = False
        Case 9
            Rows("4:12").Hidden = False
        Case 10
            Rows("4:13").Hidden = False
      End Select
 End If
afficher les lignes de la ligne 4 a la ligne 13 selon le chiffre saisi dans la cellule M1
Salutation
 
Dernière édition:
Re : Simplifier un code (afficher masquer les lignes)

Bonjour Chaelie, si..., bruno,Paf,forum
je te propose
VB:
Rows("16:77").Hidden = 1: Rows("16:" & 16 + Int([V4] + 1)).Hidden = 0 '<===== +1
GRAZIE
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
164
  • Question Question
Power Query Power Query
Réponses
26
Affichages
574
Réponses
0
Affichages
566
Retour