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

Masquer Lignes et Colonnes hors plage courante

Créer une discussion

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

cathodique

XLDnaute Barbatruc
Bonjour,

Comment pourrais-je masquer les lignes et les colonnes qui sont en dehors de la plage courante.

Sur mon fichier (assez volumineux) par userform je fais apparaitre des données sur une feuille, généralement les colonnes sont fixes et les lignes variables.

Je voudrai un code à mettre dans l’évènement "change" de cette feuille ou toutes autres solutions plus adéquate.

En vous remerciant par avance.

Cordialement,
 
Trier par date Trier par votes
Re : Masquer Lignes et Colonnes hors plage courante

Bonsoir,

essaye peut être comme ceci :
Code: 
Option Explicit
Sub test()
With Application
    .ScreenUpdating = False
    With ActiveSheet
        With .Cells
            .EntireColumn.Hidden = True
            .EntireRow.Hidden = True
        End With
        With .UsedRange
            .EntireColumn.Hidden = False
            .EntireRow.Hidden = False
        End With
    End With
    .ScreenUpdating = True
End With
End Sub

bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : Masquer Lignes et Colonnes hors plage courante

Salut Pierrot93,

Je te remercie beaucoup, j'ai essayé ton code tel quel. il ne masque que les lignes. en mettant "currentregion" ça bug dessus (arret sur With .Currentregion).

Cordialement,
 
Vote positif 0 Vote négatif
Re : Masquer Lignes et Colonnes hors plage courante

bonsoir tous 🙂🙂 l'ami pierrot🙂
un code basique qui le fait

Code: 
Columns(Cells.Find("*", , , , xlByColumns, xlPrevious).Column + 1).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.EntireColumn.Hidden = 1 '0 pour afficher
    Rows(Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.Hidden = 1 '0 pour afficher
 
Vote positif 0 Vote négatif
Re : Masquer Lignes et Colonnes hors plage courante

Bonsoir Laetitia90, 🙂🙂😱

Je te remercie pour ton aide. j'ai mis ton code dans l'evenement change de la feuille et ça fonctionne bien pour masquer les colonnes et les lignes. par contre pour l'affichage, c'est impossible et ce malgré avoir remplacer les "1" par des "0". voici comment j'ai testé ton code:
Code: 
Private Sub Worksheet_Activate()
Columns(Cells.Find("*", , , , xlByColumns, xlPrevious).Column + 1).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.EntireColumn.Hidden = 0  '0 pour afficher
    Rows(Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.Hidden = 0  '0 pour afficher
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Columns(Cells.Find("*", , , , xlByColumns, xlPrevious).Column + 1).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.EntireColumn.Hidden = 1 '0 pour afficher
    Rows(Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.Hidden = 1 '0 pour afficher
End Sub
ça m'embête un peu car cette plage est variable,via un userform je récupère des données à partir d'une BD. donc avant chaque choix, je dois réafficher toutes les colonnes et lignes.

je te remercie beaucoup. un grand merci au forum qui me permet d'avancer tout en apprenant beaucoup de choses.

Bonne soirée.

Cordialement,
 
Vote positif 0 Vote négatif
Re : Masquer Lignes et Colonnes hors plage courante

Bonjour,
Salut Laetitia🙂

Je te remercie beaucoup, j'ai essayé ton code tel quel. il ne masque que les lignes. en mettant "currentregion" ça bug dessus (arret sur With .Currentregion).
Cliquez pour agrandir...

oui, normal en fait "currentregion" s'applique à un objet "range" et non à un objet "sheet"... "usedrange" fonctionne ttrès bien chez moi... Après, sans voir comment tu l'a appliqué et sur quel structure, difficile d'en dire plus...

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Masquer Lignes et Colonnes hors plage courante

Re,

sur l'idée du "find" de Laetitia🙂, ici le "codename" de la feuille est utilisé et non son nom :
Code: 
Option Explicit
Sub Masquer()
Dim p As Range
With Application
    .ScreenUpdating = False
    With Feuil1
        Set p = .Range(.Cells(.Cells.Find("*", , xlValues, , 1, 1, 0).Row, .Cells.Find("*", , xlValues, , 2, 1, 0).Column), _
                .Cells(.Cells.Find("*", , xlValues, , 1, 2, 0).Row, .Cells.Find("*", , xlValues, , 2, 2, 0).Column))
        With .Cells
            .EntireColumn.Hidden = True
            .EntireRow.Hidden = True
        End With
        With p
            .EntireColumn.Hidden = False
            .EntireRow.Hidden = False
        End With
    End With
    .Goto p(1), True
    .ScreenUpdating = True
End With
End Sub
Sub Afficher()
With Feuil1.Cells
    .EntireColumn.Hidden = False
    .EntireRow.Hidden = False
End With
End Sub
 
Vote positif 0 Vote négatif
Re : Masquer Lignes et Colonnes hors plage courante

bonjour tous 🙂🙂🙂
je viens de tester le code de l'ami pierrot 🙂 marche tres bien avec excel 2007

de plus code plus abouti tiens compte de la 1 colonne utilise & formule renvoyant nothing
 
Vote positif 0 Vote négatif
[Résolu] : Masquer Lignes et Colonnes hors plage courante

Bonjour Laetitia90 , bonjour Pierrot93,🙂🙂

Je vous remercie beaucoup pour votre aide et vos explications. Ce dernier code de Pierrot93 fonctionne très bien.

Encore merci à vous deux.

Cordialement,
 
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

Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
560
Yogean
Y
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
2 K
Webperegrino
W
C
  • Question Question
XL 2016 Excel Macro permettant de masquer une ligne lorsque les cellules de 2 colonnes contigües sont vides
Réponses
11
Affichages
659
chris63
C
I
  • Question Question
XL pour MAC Xlsm - Fichier permettant de gérer un cross d'établissement scolaire
Réponses
8
Affichages
706
iruri
I
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
T
  • Résolu(e)
XL 2021 Masquer des colonnes et affichage avec MDP
Réponses
11
Affichages
1 K
ThomAnalyses
T
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
852
AtTheOne
  • Résolu(e)
XL 2013 (RESOLU) Masquer et/ou afficher des colonnes selon une valeur
Réponses
5
Affichages
932
chaelie2015
  • Question Question
XL 2016 Masquer et afficher lignes
Réponses
3
Affichages
564
gbinforme
G
  • Résolu(e)
XL 2010 Sauts de page
2
Réponses
18
Affichages
1 K
TooFatBoy
  • Question Question
XL 2021 Références "Relatives" Graphique
Réponses
2
Affichages
274
vgendron
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
375
StéphaneDeLà
S
C
  • Résolu(e)
Copier/Masquer des lignes de couleur pour alimenter un tableau
Réponses
9
Affichages
931
vgendron
  • Question Question
Microsoft 365 Copier une plage vers une autre feuille depuis un USF
Réponses
4
Affichages
410
chris6999
  • 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
A
  • Résolu(e)
XL 2019 Filtre avancé avec critères et résultat dans une autre feuille (VBA)
Réponses
2
Affichages
522
Amilo
A
  • Résolu(e)
XL 2010 Utilisation API
2
Réponses
22
Affichages
2 K
patricktoulon
  • Résolu(e)
Microsoft 365 Masquer des colonnes aux cellules avec valeurs données selon sélection d'une liste déroulante
Réponses
5
Affichages
1 K
PatFr38
G
  • Question Question
Microsoft 365 Choix et export de données (Résolu)
Réponses
4
Affichages
964
GClaire
G
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
456
sebastien176
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…