je fais un filtre automatique avec des crit=E8res de dates, ok.
Est-ce qu'il existe un moyen (en vba) de savoir si le filtre renvoie ou
pas des
donn=E9es pour les crit=E8res voulus ? (en gros est-ce qu'il y a des
donn=E9es
correspondantes ?)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Oui, la barre d'état d'Excel affiche brièvement en bas à gauche le nombre d'enregistrements trouvés. Si ce n'est pas le cas, il y a peut-être des formules dans les données filtrées, auquel cas il faut forcer un recalcul par F9. Sinon, il est aussi possible que la barre d'état d'Excel ne soit pas affichée, dans ce cas : Outils, Options, Affichage,et cocher Barre d'état puis valider sur OK.
Cordialement Pascal
"Alfred WALLACE" a écrit dans le message de news:
Bonjour :-)
je fais un filtre automatique avec des critères de dates, ok.
Est-ce qu'il existe un moyen (en vba) de savoir si le filtre renvoie ou pas des données pour les critères voulus ? (en gros est-ce qu'il y a des données correspondantes ?)
Merci
bon'ap !
José
Bonjour
Oui, la barre d'état d'Excel affiche brièvement en bas à gauche le nombre
d'enregistrements trouvés.
Si ce n'est pas le cas, il y a peut-être des formules dans les données
filtrées, auquel cas il faut forcer un recalcul par F9.
Sinon, il est aussi possible que la barre d'état d'Excel ne soit pas
affichée, dans ce cas : Outils, Options, Affichage,et cocher Barre d'état
puis valider sur OK.
Cordialement
Pascal
"Alfred WALLACE" <jose6a@gmail.com> a écrit dans le message de news:
1151489374.636116.192970@m73g2000cwd.googlegroups.com...
Bonjour :-)
je fais un filtre automatique avec des critères de dates, ok.
Est-ce qu'il existe un moyen (en vba) de savoir si le filtre renvoie ou
pas des
données pour les critères voulus ? (en gros est-ce qu'il y a des
données
correspondantes ?)
Bonjour Oui, la barre d'état d'Excel affiche brièvement en bas à gauche le nombre d'enregistrements trouvés. Si ce n'est pas le cas, il y a peut-être des formules dans les données filtrées, auquel cas il faut forcer un recalcul par F9. Sinon, il est aussi possible que la barre d'état d'Excel ne soit pas affichée, dans ce cas : Outils, Options, Affichage,et cocher Barre d'état puis valider sur OK.
Cordialement Pascal
"Alfred WALLACE" a écrit dans le message de news:
Bonjour :-)
je fais un filtre automatique avec des critères de dates, ok.
Est-ce qu'il existe un moyen (en vba) de savoir si le filtre renvoie ou pas des données pour les critères voulus ? (en gros est-ce qu'il y a des données correspondantes ?)
Merci
bon'ap !
José
JB
Bonjour,
n = Application.Subtotal(3, [A2:A10000])
Cordialement JB
Bonjour :-)
je fais un filtre automatique avec des critères de dates, ok.
Est-ce qu'il existe un moyen (en vba) de savoir si le filtre renvoie ou pas des données pour les critères voulus ? (en gros est-ce qu'il y a des données correspondantes ?)
Merci
bon'ap !
José
Bonjour,
n = Application.Subtotal(3, [A2:A10000])
Cordialement JB
Bonjour :-)
je fais un filtre automatique avec des critères de dates, ok.
Est-ce qu'il existe un moyen (en vba) de savoir si le filtre renvoie ou
pas des
données pour les critères voulus ? (en gros est-ce qu'il y a des
données
correspondantes ?)
je fais un filtre automatique avec des critères de dates, ok.
Est-ce qu'il existe un moyen (en vba) de savoir si le filtre renvoie ou pas des données pour les critères voulus ? (en gros est-ce qu'il y a des données correspondantes ?)
Sub premiere_ligne() With ActiveSheet.AutoFilter.Range.Columns(1) adr = .Cells(1).Address Set C = .Columns(1).Find("*") End With Num_ligne = C.Row End Sub Sub derniere_ligne() With ActiveSheet.AutoFilter.Range.Columns(1) Set C = .Columns(1).Find("*") adr = .Cells(1).Address Do Set C = .FindNext(C) Loop Until C.Address = adr Set C = .FindPrevious(C) End With Num_ligne = C.Row End Sub
tu peut essayer quelques chose comme cela...
Sub premiere_ligne()
With ActiveSheet.AutoFilter.Range.Columns(1)
adr = .Cells(1).Address
Set C = .Columns(1).Find("*")
End With
Num_ligne = C.Row
End Sub
Sub derniere_ligne()
With ActiveSheet.AutoFilter.Range.Columns(1)
Set C = .Columns(1).Find("*")
adr = .Cells(1).Address
Do
Set C = .FindNext(C)
Loop Until C.Address = adr
Set C = .FindPrevious(C)
End With
Num_ligne = C.Row
End Sub
Sub premiere_ligne() With ActiveSheet.AutoFilter.Range.Columns(1) adr = .Cells(1).Address Set C = .Columns(1).Find("*") End With Num_ligne = C.Row End Sub Sub derniere_ligne() With ActiveSheet.AutoFilter.Range.Columns(1) Set C = .Columns(1).Find("*") adr = .Cells(1).Address Do Set C = .FindNext(C) Loop Until C.Address = adr Set C = .FindPrevious(C) End With Num_ligne = C.Row End Sub
