Discussion :

[Olivierporcinet]

Bonsoir,

Dans mon tableau Excel, je souhaiterais sélectionner une année (par ex. 2023 ou 2024) via un inputbox et afficher uniquement les lignes correspondantes.

A savoir : colonne A : Dates au format dd/mm/aaaa


Voici mon 1er code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
    Dim Dat As String
Application.ScreenUpdating = False
 
    Dat = InputBox("Entrez l’année")
    If IsDate(Dat) Then
        Var = CDate(Dat)
        c = Application.Match(CDate(Dat) * 1, [A:A], 0)
        If IsNumeric(c) Then
            Cells(c, 1).Select
   End If
 
     Application.ScreenUpdating = True
End Sub

Est-t-il également possible d'afficher les lignes voulues choisies entre 2 dates, (ex. entre le 01/01/2023 et le 02/02/2024) ?

Qui peut m'aider ?

Merci.

Bonne soirée.

[a_diard]

dans ton code, il manque un end if.

[Olivierporcinet]

Bonjour,


Comment afficher uniquement les lignes de, par exemple 2023 ou 2024, ..... ?

Merci

[Franc]

Bonjour, voici 2 macros qui devraient faire l'affaire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub FiltrerParAnnee()
    Dim annee As Variant
    Dim ws As Worksheet
    Dim rng As Range
 
    annee = InputBox("Veuillez entrer l'année à filtrer :")
 
    If annee = "" Then Exit Sub
 
    Set ws = ThisWorkbook.Sheets("Feuil1") ' Modifier le nom de la feuille si nécessaire
    Set rng = ws.Range("A1:A50") ' Modifier la plage si nécessaire
 
    rng.AutoFilter Field:=1, Criteria1:="<=" & DateSerial(annee + 1, 1, 1), Operator:=xlAnd, Criteria2:=">=" & DateSerial(annee, 1, 1)
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub FiltrerEntreDeuxDates()
    Dim dateDebut As String
    Dim dateFin As String
    Dim ws As Worksheet
    Dim rng As Range
    Dim elements() As String
 
    dateDebut = InputBox("Veuillez entrer la date de début (JJ/MM/AAAA) :")
    dateFin = InputBox("Veuillez entrer la date de fin (JJ/MM/AAAA) :")
 
    If dateDebut = "" Or dateFin = "" Then Exit Sub
 
    ' Convertir les dates de début et de fin en format américain
    ' VBA utilise ce format pour les opérations de filtrage
    elements = Split(dateDebut, "/")
    dateDebut = elements(2) & "/" & elements(1) & "/" & elements(0)
    elements = Split(dateFin, "/")
    dateFin = elements(2) & "/" & elements(1) & "/" & elements(0)
 
    Set ws = ThisWorkbook.Sheets("Feuil1") ' Modifier le nom de la feuille si nécessaire
    Set rng = ws.Range("A1:A50") ' Modifier la plage si nécessaire
 
    rng.AutoFilter Field:=1, Criteria1:=">=" & dateDebut, Operator:=xlAnd, Criteria2:="<=" & dateFin
 
End Sub

[Olivierporcinet]

Merci.


J'ai un autre code pour afficher les lignes mais ça ne fonctionne pas après les filtres proposés

Code :

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

1
2
3
Sub Bouton2_Cliquer()
Worksheets("Feuil1").Rows.Hidden = False
End Sub

Aussi, quand je filtre sur 2025, la date du 01/01/2024 (mise en A3 reste affichée), idem lorsque je filtre entre 2 dates.

Ma première date du tableau se trouve en A3 (j'ai modifié la plage

Code :

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

Set rng = ws.Range("A3:A900")

Merci

[Franc]

Voici pour afficher les lignes:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Bouton2_Cliquer()
 
    Dim ws As Worksheet
 
    Set ws = ThisWorkbook.Sheets("Feuil1") ' Utiliser la feuille "Feuil1"
 
    ' Vérifier si un filtre est appliqué
    If ws.AutoFilterMode Then
        ' Si un filtre est appliqué, afficher toutes les lignes masquées
        ws.AutoFilter.ShowAllData
    End If
 
End Sub

Pour ton deuxième problème, j'ai testé et j'ai le même comportement pour la première cellule de la plage, même si j'applique le filtre manuellement.
J'ai donc essayé en laissant la première cellule de la plage, vide ou en inscrivant un entête et ça fonctionne alors.