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

Résolu
DeutschWorker Messages postés 26 Date d'inscription   Statut Membre Dernière intervention   -  
DeutschWorker Messages postés 26 Date d'inscription   Statut Membre Dernière intervention   -
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.



A voir également:

3 réponses

cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

en vba à télécharger

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

1
DeutschWorker Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
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 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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   Statut Membre Dernière intervention  
 
Merci Beaucoup pour votre aide !!!
0
JCB40 Messages postés 3013 Date d'inscription   Statut Membre Dernière intervention   463
 
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   Statut Membre Dernière intervention  
 
0