Inputbox - année

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:

---

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.

dans ton code, il manque un end if.

Bonjour,


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

Merci

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

Code:

---

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:

---

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

---

Merci.


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

Code:

---

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:

---

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

---

Merci

Voici pour afficher les lignes:

Code:

---

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.

Merci

Le code pour afficher les lignes fonctionne très bien pour le filtre mais plus avec mes autres codes.

Ex. : Travaux finis --> j'ai les lignes concernées affichées mais lorsque je veux afficher toutes les lignes, rien ne se passe (avant oui)

Y-a-t'il moyen de combiner les 2 codes ? (afficher lignes et afficher lignes après le tri) ?


Pour le 2ème code, j'ai une en-tête en A1 et A2 (cellules fusionnées).

Merci.

autre solution... mais..... ça commence à être chargé de boutons....

Je crée un bouton supplémentaire avec code qui efface uniquement les filtres et de ce fait, mon code pour afficher toutes les lignes reste intact et me sert pour le reste.


Mais j'ai toujours dans la première colonne la petite flèche avec le filtre qui reste.

D'autres idées ?

Merci

Rebonjour

peut être effacer le filtre avant de demander l'année.

Bonjour,

Oui, effacer le filtre merci.

Pas possible de mettre 2 programmations sur "Afficher lignes" ?

Pas de solution pour le 2ème point (lors du tri, la 1ère ligne reste affichée même si pas voulue dans le filtre )?

Merci.

Bonne journée.