XL 2021 Filtrer sur la ligne active

Constantin · Vendredi à 12:32

Bonjour à tous,
J'ai créé un fichier (en cours de remplissage) qui comporte 2 feuilles.
Dans la Feuil2, un tableau résume les conseils de culture de nombreux légumes ou fleurs.
Pour chaque ligne, il y a de nombreuses cellules vides (mais c'est normal)qui ne facilitent pas la lecture.
Je voulais savoir si, lorsqu'on se positionne sur une ligne (affichage bleu ciel) il serait possible de créer une macro (associée au bouton "Filtrer" qui masquerait les cellules vides de la ligne ? Et par la même, une autre pour "défiltrer" ?
J'ai cherché mais je n'ai pas trouvé ce que je voulais.
Si quelqu'un a une idée, ce serait super !
Bien cordialement,

sylvanu · Vendredi à 14:42

Bonjour,
Un essai en PJ avec :

Code:

Sub Masquer()
    Dim LigneAAnalyser As Range, CellulesVides As Range
    Set LigneAAnalyser = Range(ActiveCell.Row & ":" & ActiveCell.Row)
    Cells.Columns.Hidden = False
    On Error Resume Next ' Cas où toutes cellules pleines
    Set CellulesVides = LigneAAnalyser.SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0
    If Not CellulesVides Is Nothing Then CellulesVides.EntireColumn.Hidden = True
End Sub
Sub Démasquer()
    Columns("A:KC").Hidden = False
End Sub

La macro de NainPorteQuoi concernant la MFC

Nain porte quoi · Vendredi à 13:01

Hello,

essayez ça

sylvanu · Vendredi à 14:42

Bonjour,
Un essai en PJ avec :

Code:

Sub Masquer()
    Dim LigneAAnalyser As Range, CellulesVides As Range
    Set LigneAAnalyser = Range(ActiveCell.Row & ":" & ActiveCell.Row)
    Cells.Columns.Hidden = False
    On Error Resume Next ' Cas où toutes cellules pleines
    Set CellulesVides = LigneAAnalyser.SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0
    If Not CellulesVides Is Nothing Then CellulesVides.EntireColumn.Hidden = True
End Sub
Sub Démasquer()
    Columns("A:KC").Hidden = False
End Sub

La macro de NainPorteQuoi concernant la MFC

Constantin · Vendredi à 15:05

Bonjour Sylvanu,
Je vois bien le principe, mais il faut que cela ne concerne que les valeurs de colonne de la ligne sélectionnée.
J'ai essayé de mettre le code Nain porte quoi dans Feuil2 puis dans Worksheet, mais ça ne donne rien.
Du coup, j'ai remplacé False par true et bien sûr ça me masque les colonnes C à KC de tout le tableau...
Donc ça ne marche pas...
Désolé,
Cordialement,

sylvanu · Vendredi à 15:16

Constantin à dit:
Je voulais savoir si, lorsqu'on se positionne sur une ligne (affichage bleu ciel) il serait possible de créer une macro (associée au bouton "Filtrer" qui masquerait les cellules vides de la ligne ?

C'est ce que la macro fait.
Quand on sélectionne une ligne, toutes les colonnes de cette lignes qui sont vides sont masquées.
Par ex si B3 est sélectionnée cela donne :

Si la macro ne fait pas ce que vous voulez, je ne comprends pas ce que vous entendez par :

Constantin à dit:
cela ne concerne que les valeurs de colonne de la ligne sélectionnée.

Constantin · Vendredi à 15:19

Nain porte quoi à dit:
Hello,

essayez ça

Bonjour Nain Porte quoi,
Merci de votre envoi mais, ou je m'y prends mal ou il y a quelque chose qui m'échappe...
De fait, ça ne fonctionne pas du tout...
Dès que l'on veut saisir une donnée dans le tableau, C à KC se masquent tous seuls. Étonnant, non ?
Je ne vois plus le bouton "Filtrer" qui serait sensé lancer la macro "Feuil2.Masquer_Colonnes_Vides_Ligne_Active"
A bientôt,

Constantin · Vendredi à 15:25

sylvanu à dit:
C'est ce que la macro fait.
Quand on sélectionne une ligne, toutes les colonnes de cette lignes qui sont vides sont masquées.
Par ex si B3 est sélectionnée cela donne :
Regarde la pièce jointe 1228405
Si la macro ne fait pas ce que vous voulez, je ne comprends pas ce que vous entendez par :

Re...
C'est bien ce que je dis, dès que l'on sélectionne une cellule tout se masque. Du coup, impossible de compléter mon tableau.
Pour moi, l'ordre des choses serait :
- interventions sur le tableau possible
- ne masquer que lorsque j'active la macro "Filtrer"
- Afficher tout avec "Défiltrer" et continuer à travailler sur le tableau par exemple...
En matière d'explications, j'ai toujours peur de ne pas être clair...
Merci pour le coup de main

sylvanu · Vendredi à 15:32

Sur ma PJ :

Constantin à dit:
- interventions sur le tableau possible

Un appui sur Défiltrer permet d'intervenir sur le tableau.

Constantin à dit:
ne masquer que lorsque j'active la macro "Filtrer"

Ce qui est le cas, seul un appui sur le bouton Masquer filtre les données

Constantin à dit:
Afficher tout avec "Défiltrer"

Idem, un appui sur Démasquer démasque toutes les colonnes.

Alors, essayez d'expliquer ce qui cloche sur cette V2, et donnez un ex de ce qui ne va pas.

Constantin · Vendredi à 15:35

La V2 de sylvanu marche très bien. Dans le code de Nain Porte quoi j'ai neutralisé le "call etc" dans le private sub et tout fonctionne bien également.
Merci à tous les deux.

Constantin · Vendredi à 15:37

sylvanu à dit:
Sur ma PJ :

Un appui sur Défiltrer permet d'intervenir sur le tableau.

Ce qui est le cas, seul un appui sur le bouton Masquer filtre les données

Idem, un appui sur Démasquer démasque toutes les colonnes.

Alors, essayez d'expliquer ce qui cloche sur cette V2, et donnez un ex de ce qui ne va pas.

Désolé Sylvanu, je n'avais pas vu les nouveau messages. Maintenant, j'ai deux solutions pour le prix d'une !!!
Bonne journée

Nain porte quoi · Vendredi à 17:30

Constantin à dit:
Bonjour Nain Porte quoi,
Merci de votre envoi mais, ou je m'y prends mal ou il y a quelque chose qui m'échappe...
De fait, ça ne fonctionne pas du tout...
Dès que l'on veut saisir une donnée dans le tableau, C à KC se masquent tous seuls. Étonnant, non ?
Je ne vois plus le bouton "Filtrer" qui serait sensé lancer la macro "Feuil2.Masquer_Colonnes_Vides_Ligne_Active"
A bientôt,

Effectivement, j'ai zappé le fait de saisir. 😱
Dés le clic sur une cellule je masquait toutes les colonnes qui ne contiennent pas de données dans la ligne active.

Bon, comme ça ça vous a permis de mettre un peu plus les mains dans le cambouis 😎

Constantin · Vendredi à 17:36

Je suis bien d'accord et ça ne fait pas de mal !!!
Bon week-end !

XL 2021 Filtrer sur la ligne active

Constantin

XLDnaute Occasionnel

Pièces jointes

sylvanu

Nain porte quoi

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Constantin

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Constantin

XLDnaute Occasionnel

Constantin

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Constantin

XLDnaute Occasionnel

Constantin

XLDnaute Occasionnel

Nain porte quoi

XLDnaute Occasionnel

Constantin

XLDnaute Occasionnel

Discussions similaires

XL 2021 Filtrer sur la ligne active

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency