Afficher / Masquer des lignes en fonction d'une cellule / liste déroulante
Résolu
DeutschWorker
Messages postés
27
Statut
Membre
-
DeutschWorker Messages postés 27 Statut Membre -
DeutschWorker Messages postés 27 Statut Membre -
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.
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
-
Bonjour,
en vba à télécharger
https://www.cjoint.com/c/IJmnpORYZeQ
-
-
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 -
-
-
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 -
