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

Créer une discussion
Répondre

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 !

S'inscrire
chaelie2015

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:
Trier par date Trier par votes
Re : Simplifier un code (afficher masquer les lignes)

Bonjour chaelie2015

Tout simplement
Code: 
  If Not Intersect(Rows(Target.Row), [M1]) Is Nothing Then
    Application.ScreenUpdating = False
    n = CInt([M1])
    Rows("4:13").Hidden = True
    Rows("4:" & 3 + n).Hidden = False
  End If

A+
 
Vote positif 0 Vote négatif
Re : Simplifier un code (afficher masquer les lignes)

Bonjour chaelie2015, BrunoM45

ou bien

Code: 
If Not Intersect(Rows(Target.Row), [M1]) Is Nothing Then
      Application.ScreenUpdating = False
      n = CInt([M1])
      Rows(4 + n & ":13").Hidden = True
End If

A+

Edit: Ah ben non ! ça ne marche qu'une fois et encore, pas pour toutes les valeurs.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Simplifier un code (afficher masquer les lignes)

Bonjour bruno, paf
merci pour vos réponses , c'est exactement ce que je cherchais, je souhaite encore développer ce code
avec d'autre lignes c a d
Code: 
If Not Intersect(Rows(Target.Row), [M1]) Is Nothing Then
    Application.ScreenUpdating = False
    n = CInt([M1])
    Rows("4:13").Hidden = True
    Rows("4:" & 3 + n).Hidden = False
    End If

If Not Intersect(Rows(Target.Row), [V4]) Is Nothing Then    
Application.ScreenUpdating = False
    n1 = CInt([V4])
    Rows("16:77").Hidden = True
    Rows("16:" & 15 + n1).Hidden = False
End If
MAIS ça n'a pas marché
SALUTATIONS
 
Vote positif 0 Vote négatif
Re : Simplifier un code (afficher masquer les lignes)

Re
j'explique mon souci
le 1er code :
j'affiche nombre de ligne ( de 4-13) selon le chiffre saisié dans la cellule M1 ===> ça fonctionne
2eme code :
je souhaite concatener au code précédent ce code
j'affiche nombre de ligne (de 16 a 77) selon le chiffre saisié dans la cellule V4 ====> ça n'a pas fonctionné pour les deux code
SALUTATIONS
 
Vote positif 0 Vote négatif
Re : Simplifier un code (afficher masquer les lignes)

BrunoM45 à dit:
Re,


Ca ne peut pas être le même principe puisque de 4 à 13 ça fait 10 possibilités
et de 16 à 77 ça en fait 62 !?
Cliquez pour agrandir...

Re
Désolé de ne pas etre tres clair, je suis entrain de vous explique mon sousci pour etre plus clair, mais si vous permettez selon votre réponse du poste 2, je n'arrive pas a comprendre ou est le lien entre le nombre de possibilité?
MERCI PAR AVANCE
 
Vote positif 0 Vote négatif
Re : Simplifier un code (afficher masquer les lignes)

Bonjour forum, Bruno
Je re explique mon souci avec un fichier rattaché
Je souhaite afficher ou masquer les lignes selon le nombre saisié dans la cellule
si je saisi dans la cellule M1 un chiffre ( exemple) 4 j’aurai les ligne de A4 a A7 affichées et les autres de A8 a A13 masqués et si je saisi mnt un chiffre dans la cellule V4 un chiffre (exemple) 5 j’aurais les lignes de A16 au A20 affichés et les autre masqués
Salutations
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Simplifier un code (afficher masquer les lignes)

Re
ci joint le code proposé
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim n
Dim n1
 

 If Not Intersect(Rows(Target.Row), [M1]) Is Nothing Then
    Application.ScreenUpdating = False
    n = CInt([M1])
    Rows("4:13").Hidden = True
    Rows("3:" & 3 + n).Hidden = False
  Exit Sub
 End If
 
 

 If Not Intersect(Rows(Target.Row), [V4]) Is Nothing Then
    Application.ScreenUpdating = False
    n1 = CInt([V4])
   Rows("16:77").Hidden = True
    Rows("15:" & 15 + n1).Hidden = False
 Exit Sub
 End If
 
 
 
 
 End Sub
Mais ça n'a pas marché ....
Salutations
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Simplifier un code (afficher masquer les lignes)

salut
à essayer (pas d'erreur, quelque soit le type saisi dans les 2 cellules)
VB: 
Private Sub Worksheet_Change(ByVal R As Range)
  Application.EnableEvents = 0
  If R.Address = "$M$1" Then
    If Not IsNumeric(R) Or R = 0 Then
      R = "": Rows("4:13").Hidden = 0
    Else
      Rows("4:13").Hidden = 1: Rows("3:" & 3 + Int(R)).Hidden = 0
    End If
  End If
  If R.Address = "$V$4" Then
    If Not IsNumeric(R) Or R = 0 Then
      R = "": Rows("16:77").Hidden = 0
    Else
      Rows("16:77").Hidden = 1: Rows("15:" & 15 + Int(R)).Hidden = 0
    End If
  End If
  Application.EnableEvents = 1
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Simplifier un code (afficher masquer les lignes)

Bonjour SI, forum
Merci c’est excellent, mais je souhaite si les deux cellules (M1 et V4) sont vides masquer toutes les lignes
et dans le cas les deux cellules non vide alors afficher seulement les lignes saisie dans ces deux cellules.
NB : la cellule V4 est une formule.

Salutations
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Simplifier un code (afficher masquer les lignes)

Bonjour si …., forum
Merci pour la réponse, c’est nickel, exactement ce que j’ai souhaité, donc je peux généraliser ton code avec plusieurs tableaux ;la dernier question comment faire pour commencer l’affichage quand je saisi 1 l’affichage du tableau débute de la 3 ligne
J’ai pu faire ça

VB: 
'TAB1
  If Not Intersect(R, [C4:I4]) Is Nothing Then
    If [V4] = "" Then
      Rows("16:77").Hidden = 1
    Else
      Rows("16:77").Hidden = 1: Rows("16:" & 16 + Int([V4])).Hidden = 0  '<===== ça mais il affiche que deux ligne si je saise1???
    End If
  End If

mais il débute de 2eme ligne ???
MERCI
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
643
candido57
C
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
133
Yogean
Y
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
165
CortoXls
C
T
  • Question Question
XL 2016 Erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range
Réponses
3
Affichages
440
Phil69970
Phil69970
S
  • Question Question
XL 2021 Afficher et masquer des colonnes
Réponses
3
Affichages
476
job75
job75
Electron24
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
146
Electron24
Electron24
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
1 K
Webperegrino
W
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Code afficher/Masquer problème
Réponses
10
Affichages
600
chaelie2015
chaelie2015
B
  • Question Question
Power Query Power Query
2
Réponses
26
Affichages
575
Brissou33
B
chaelie2015
  • Question Question
XL 2013 Réduire un code
Réponses
0
Affichages
566
chaelie2015
chaelie2015
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
104
vazvaz
V
chaelie2015
  • Résolu(e)
Autres (RESOLU) Protéger la feuille code afficher masquer ne fonctionne pas
Réponses
3
Affichages
515
chaelie2015
chaelie2015
piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
231
piga25
piga25
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
651
Gestionnaire_rh
G
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
202
sylvanu
sylvanu
U
  • Question Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
822
un internaute
U
frederio
  • Question Question
XL 2019 texte vide et bordure bouton masquer vba
2 3 4
Réponses
46
Affichages
948
AtTheOne
AtTheOne
Y
  • Question Question
Microsoft 365 Insérer des lignes selon variable
Réponses
1
Affichages
469
gbinforme
G
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
495
telemarrk
T
PatFr38
  • Résolu(e)
Microsoft 365 Code VBA pour vérifier si lignes masquées le sont bien
2
Réponses
16
Affichages
2 K
PatFr38
PatFr38
Retour