Afficher / Masquer des lignes en fonction d'une cellule / liste déroulante

Résolu/Fermé
Signaler
Messages postés
26
Date d'inscription
vendredi 22 mai 2015
Statut
Membre
Dernière intervention
12 octobre 2019
-
Messages postés
26
Date d'inscription
vendredi 22 mai 2015
Statut
Membre
Dernière intervention
12 octobre 2019
-
Bonjour,

Je vous sollicite aujourd'hui car je n'arrive pas à réaliser ce que je souhaite.

En effet, en cellule G1 j'ai créé une liste déroulante de périodes (qui d'ailleurs contient des blancs ...).

En dessous de cette cellule, j'ai créé un tableau avec des semaines où je référence des heures supp.

Je souhaiterai qu'en fonction de ce qui est affiché dans la cellule G1, il ne reste dans le tableau que les lignes qui correspondent à la période.

Soit : Période du 1 Octobre au 28 Octobre, qu'il ne reste que les 4 semaines de cette période dans le tableau.

Donc masquer les autres lignes j'imagine.

Pouvez vous m'aider à résoudre ce cas ? :/

Merci beaucoup,
Cordialement.



3 réponses

Messages postés
7611
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
27 novembre 2021
670
Bonjour,

en vba à télécharger

https://www.cjoint.com/c/IJmnpORYZeQ

1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Messages postés
26
Date d'inscription
vendredi 22 mai 2015
Statut
Membre
Dernière intervention
12 octobre 2019

Bonjour,

Merci beaucoup pour votre réponse !

Pouvez vous me partager la vba ici ? je ne peux pas transférer par mail des fichiers avec macro sur mon poste de travail......

Merci :)
Messages postés
7611
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
27 novembre 2021
670
Mettre un Bouton avec ce code :

Option Explicit
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Private Sub CommandButton1_Click()
For_X_to_Next_Ligne
End Sub
Sub For_X_to_Next_Ligne()
    Set FL1 = Worksheets("Feuil1")
    NoCol = 3 'lecture de la colonne C
    For NoLig = 7 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        If Range("G2") = Var Then
        Rows("7:71").EntireRow.Hidden = True
       Rows(NoLig & ":" & NoLig + 4).EntireRow.Hidden = False
        End If
    Next
    Set FL1 = Nothing
End Sub




ATTENTION dans la liste déroulante il manque un 8 à 2018

Voilà

@+ Le Pivert
Messages postés
26
Date d'inscription
vendredi 22 mai 2015
Statut
Membre
Dernière intervention
12 octobre 2019

Merci Beaucoup pour votre aide !!!
Messages postés
2486
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
22 novembre 2021
450
Bonjour,
Un exemple de votre fichier serait le bienvenu mieux qu'une photo
Pour transmettre un fichier,
Veillez à ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Cordialement
Messages postés
26
Date d'inscription
vendredi 22 mai 2015
Statut
Membre
Dernière intervention
12 octobre 2019