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

Résolu/Fermé
DeutschWorker Messages postés 26 Date d'inscription vendredi 22 mai 2015 Statut Membre Dernière intervention 12 octobre 2019 - 12 oct. 2019 à 11:57
DeutschWorker Messages postés 26 Date d'inscription vendredi 22 mai 2015 Statut Membre Dernière intervention 12 octobre 2019 - 12 oct. 2019 à 15:56
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

cs_Le Pivert Messages postés 7870 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 23 janvier 2023 723
12 oct. 2019 à 15:16
Bonjour,

en vba à télécharger

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

1
DeutschWorker Messages postés 26 Date d'inscription vendredi 22 mai 2015 Statut Membre Dernière intervention 12 octobre 2019
12 oct. 2019 à 15:37
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 :)
0
cs_Le Pivert Messages postés 7870 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 23 janvier 2023 723
12 oct. 2019 à 15:43
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
0
DeutschWorker Messages postés 26 Date d'inscription vendredi 22 mai 2015 Statut Membre Dernière intervention 12 octobre 2019
12 oct. 2019 à 15:56
Merci Beaucoup pour votre aide !!!
0
JCB40 Messages postés 2703 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 3 février 2023 465
12 oct. 2019 à 12:00
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
0
DeutschWorker Messages postés 26 Date d'inscription vendredi 22 mai 2015 Statut Membre Dernière intervention 12 octobre 2019
12 oct. 2019 à 13:45
0