Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA : Masquer toutes les lignes sauf 3

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion cibleo
  • Date de début Date de début

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

cibleo

XLDnaute Impliqué
Bonsoir le forum,

Le tableau présenté comporte 5040 lignes et j'aimerais par macro (pas d'événementielle) masquer toutes les lignes sauf 2.

2 cas se présentent :

1er cas : la cellule active se trouve entre la ligne 1 et 2520 ( la 1ère partie de mon tableau )
Devront rester visibles la ligne de la cellule active + celle située 2520 lignes plus bas.
Exemple : cellule active en ligne 100, seules les lignes 100 et 2620 devront rester visibles (100 + 2520)

2ème cas : la cellule active se trouve entre la ligne 2521 et 5040 ( la 2ème partie de mon tableau )
Devront rester visibles la ligne de la cellule active + celle située 2520 lignes plus haut.
Exemple : cellule active en ligne 3000, seules les lignes 3000 et 480 devront rester visibles. (3000 -2520)

Pouvez vous m'aider à résoudre ce petit problème 😱

Merci Cibleo
 

Pièces jointes

Trier par date Trier par votes
Re : VBA : Masquer toutes les lignes sauf 2

Bonsoir Cibleo,

Voici un code que tu peux utiliser pour répondre à ta demande :
VB: 
Sub Masquer()
    Dim i
    i = ActiveCell.Row
    If i < 2521 Then
        If i > 1 Then
            Range("1:" & i - 1 & "," & i + 1 & ":" & 2519 + i & "," & 2521 + i & ":5040").EntireRow.Hidden = True
        Else
            Range("2:2520,2522:5040").EntireRow.Hidden = True
        End If
    ElseIf i < 5041 Then
        If i > 2521 Then
            Range("1:" & i - 2521 & "," & i - 2519 & ":" & i - 1 & "," & i + 1 & ":5040").EntireRow.Hidden = True
        Else
            Range("2:2520,2522:5040").EntireRow.Hidden = True
        End If
    End If
End Sub

A+
 
Vote positif 0 Vote négatif
Re : VBA : Masquer toutes les lignes sauf 2

Bonsoir Fred0o et merci

C'est presque ça mais ça cloche dans les 2 cas suivants :
Quand je me place en ligne 2520 ou 5040 (soit les 2 extrémités) cela ne fonctionne pas.

Placé en 2520 ou 5040 seule la ligne 2520 est visible 😕 au lieu de 2520 et 5040

En complément j'aimerais que la ligne 1 soit toujours visible.
Cibleo
 
Dernière édition:
Vote positif 0 Vote négatif
Re : VBA : Masquer toutes les lignes sauf 2

Bonjour cibleo,

Voici le code modifié :
VB: 
Sub Masquer()
    Dim i
    i = ActiveCell.Row
    If i < 2521 Then
        If i > 2 Then
            If i = 2520 Then
                Range("2:2519,2521:5039").EntireRow.Hidden = True
            Else
                Range("2:" & i - 1 & "," & i + 1 & ":" & 2519 + i & "," & 2521 + i & ":5040").EntireRow.Hidden = True
            End If
        Else
            Range("3:2520,2522:5040").EntireRow.Hidden = True
        End If
    ElseIf i < 5041 Then
        If i > 2521 Then
            If i = 5040 Then
                Range("2:2519,2521:5039").EntireRow.Hidden = True
            Else
                Range("2:" & i - 2521 & "," & i - 2519 & ":" & i - 1 & "," & i + 1 & ":5040").EntireRow.Hidden = True
            End If
        Else
            Range("3:2520,2522:5040").EntireRow.Hidden = True
        End If
    End If
End Sub

A+
 
Vote positif 0 Vote négatif
Re : VBA : Masquer toutes les lignes sauf 2

Bonjour à tous,
Bonjour Fred0o,

J'ai remis le fichier avec un bouton bascule (Afficher/Masquer) pour un dernier petit ajustement.

- Placé en ligne 1, seule la ligne 1 et 2521 doivent rester visibles, or la ligne 2 reste visible aussi. (c'est le seul cas ou 2 lignes doivent rester visibles)

- Placé en ligne 2, seules les lignes 1, 2 et 2522 doivent rester visibles mais c'est la ligne 2521 qui apparaît à la place de 2522.

Sinon c'est exactement le résultat souhaité.

Un dernier coup de pouce.
Merci Cibleo
 

Pièces jointes

Vote positif 0 Vote négatif
Re : VBA : Masquer toutes les lignes sauf 2

Bonsoir cibleo,

Franchement, t'aurais bien pu essayer de faire la correction par toi même, cela t'aurais permis de progresser dans la compréhension du code. Surtout que ce n'était pas bien compliqué...

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : VBA : Masquer toutes les lignes sauf 3

Bonsoir Fred0o,

Je commençais à m'empêtrer au milieu de toutes ces conditions 🙁

Mille mercis, c'est parfait 🙂

Au plaisir Cibleo
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

  • Résolu(e)
Microsoft 365 Cohabitation des listbox avec des lignes "gelées"
Réponses
8
Affichages
344
fanch55
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
561
Yogean
Y
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
  • Question Question
XL 2016 Masquer et afficher lignes
Réponses
3
Affichages
564
gbinforme
G
O
  • Question Question
Autres VBA test et action selon valeur de la première cellule visible en colonne A après un tri
Réponses
8
Affichages
1 K
Oko
O
  • Résolu(e)
XL 2021 Affecter la valeur "ok" en colonne "F" uniquement sur les lignes visibles
Réponses
6
Affichages
707
Usine à gaz
C
  • Résolu(e)
XL 2016 Répartir dans des Groupes d'Effectifs Aléatoires ... mais pas trop
Réponses
2
Affichages
600
crocrocro
C
  • Résolu(e)
XL 2013 (RESOLU) Afficher / Masquer des lignes et des colonnes selon les valeurs de deux cellules
Réponses
2
Affichages
668
chaelie2015
D
  • Résolu(e)
XL 2016 VAB : Masquer les lignes si la cellule en J contient "clôturée"
Réponses
3
Affichages
666
daviddemetz72
D
R
  • Question Question
Microsoft 365 VBA supprimer toutes les parenthèses sauf les 2 dernieres
2
Réponses
26
Affichages
2 K
patricktoulon
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
  • Question Question
XL 2016 Afficher les lignes du mois courant sauf avec critères "En cours" macro VBA excel
Réponses
3
Affichages
816
Wayki
  • Question Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
4 K
Nicolas JACQUIN
M
  • Question Question
XL 2019 Code VBA
Réponses
12
Affichages
939
MarieLN
M
M
  • Question Question
XL 2019 VBA Range().SpecialCells(xlCellTypeVisible).Rows
2
Réponses
29
Affichages
12 K
ChTi160
P
  • Question Question
XL 2016 Créer un fichier texte contenant toutes les lignes d'un fichier excel
Réponses
3
Affichages
588
job75
D
  • Question Question
Microsoft 365 Code VBA pour insérer/Supprimer ligne dans un Tableau
2
Réponses
18
Affichages
4 K
djkev76
D
  • Question Question
XL 2016 VBA - Comment empêcher l'extension de la modification à toutes les lignes
Réponses
8
Affichages
1 K
TooFatBoy
F
  • Question Question
XL 2019 Masquer des lignes avec VBA si supérieures ou inférieures à une date définie
3 4 5
Réponses
72
Affichages
7 K
FloASF63
F
R
  • Question Question
Microsoft 365 VBA - rechercher une ligne en fonction de 2 critères sur 2 colonnes différentes
Réponses
9
Affichages
2 K
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…