Discussion :

[Invité]

Bonjour à tous,
J’ai dans un fichier des feuilles nommées (septembre, octobre,…, décembre) et qui contiennent des cellules dont certaines avec des dates. Je voudrais trouver l'adresse de la cellule qui contient la même date qui se trouve dans un tableau dans une autre feuille nommée « param » pour masquer toutes lignes se trouvant sous cette date, et là je n'y arrive pas. Voici Mon fichier exemple :
Nb : les dates du tableau sont des dates vacances scolaires et la date recherché n’est pas toujours dans la même cellule tout dépend de la date du début dans le mois septembre.

[Menhir]

J’ai dans un fichier des feuilles nommées (septembre, octobre,…, décembre)

Ca, c'est une mauvaise idée.
Il serait préférable d'intégrer la donnée "mois" dans tes données et n'avoir qu'une seule liste.
Ca simplifierait énormément les processus.

[Invité]

bonjour, Menhir
Merci bien pour ta réponse
Je suis un peu moyen dans ce domaine (vba)
Merci de donner un exemple si cela est possible.

[Menhir]

Je suis un peu moyen dans ce domaine (vba)

Je ne parlais pas de VBA mais de structuration de tes données dans Excel.
Je n'ai pas ouvert ton fichier pour les raisons expliquées ici : https://www.developpez.net/forums/d8...s-discussions/
Mais je suis à peu près persuadé que ce que tu souhaites pourrait se faire sans VBA si tes données étaient correctement structurées.

[Invité]

Mon fichier est avec sa vrai structure mais très simplifié
pour but avoir une solution à mon problème en vba

[ARTURO83]

Bonjour,

Exemple en fonction de votre fichier, mais comme toutes les cellules sont vides, on ne sait pas dans quelle colonne de la feuille du mois se trouve la date à rechercher.
Pour l'exemple, j'ai supposé que les dates étaient en colonne A, à vous de l'adapter.
Faire un double clic sur l'une des dates de la feuille "Param". Résultat: toutes les lignes trouvées après cette date dans la feuille du mois sont masquées.
macro dans module de la feuille "Param":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B2:F8")) Is Nothing And Target.Value <> "" Then
        Date_Choisie = Target.Value
        Mois = Choose(Month(Target), "janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", "septembre", "octobre", "novembre", "décembre")
        Recherche_date
    End If
End Sub

Macro dans un module standard(module 1):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Text
Public Mois As String
Public Date_Choisie As Date
 
Sub Recherche_date()
    Application.ScreenUpdating = False
    Set Sh = Sheets(Mois)
    DerLig = Sh.[A10000].End(xlUp).Row '
    Set M = Sh.Columns("A").Find(Date_Choisie, LookIn:=xlFormulas, lookat:=xlWhole) 'en supposant que les dates soient en colonne "A", sinon changer la lettre
    Sh.Rows(M.Row + 1 & ":" & DerLig).Hidden = True
    Sh.Select
End Sub

Le fichier:
Pièce jointe 500489

Cdlt

[anasecu]

Bonjour,

Mon fichier est avec sa vrai structure mais très simplifié

Plutôt simpliste et difficile à saisir dans son utilité car les cadres sans la moindre donnée ne renseignent pas beaucoup.

pour but avoir une solution à mon problème en vba

Comme te le dis Menhir (que je salue), "n'avoir qu'une seule liste. Ca simplifierait énormément les processus. "
Au lieu de se lancer dans un VBA que l'on ne maitrise pas, il serait plus judicieux
de s'appliquer à rationaliser la conception de la structure du classeur, cela éviterait d'avoir une usine à gaz non maitrisable.