XL 2010 rechercher dans une colonne une valeur spécifique et sélectionner toutes les lignes dont la valeur a été trouvée

Staple1600 à dit:

Bonsoir le fil, djedjeto

•>djedjeto
Suggestion (en attendant que ma soupe refroidisse)
Pourquoi donc ne pas simplement utiliser le filtre automatique?
(et notamment ses options chronologiques nombreuses et natives)

Cliquez pour agrandir...

Staple1600 à dit:

Bonsoir le fil, djedjeto

•>djedjeto
Suggestion (en attendant que ma soupe refroidisse)
Pourquoi donc ne pas simplement utiliser le filtre automatique?
(et notamment ses options chronologiques nombreuses et natives)

Cliquez pour agrandir...

Staple1600 à dit:

Re

Apres la soupe, il y a le petit fricthi
puis une petite bière
et pour finir du sucré
Jen suis à la bière
Mais pendant que je graille rien ne t'empêche de filtrer automatiquement tout en laissant tourner l’enregistreur de macros

PS: Après le manger, faut que je me brosse les dents, et que j'enfile mon pyjama en pilou

Cliquez pour agrandir...

djedjeto à dit:

Regarde la pièce jointe 1058892Regarde la pièce jointe 1058892Regarde la pièce jointe 1058892Regarde la pièce jointe 1058892
[/QUOTE

djedjeto à dit:

Regarde la pièce jointe 1058892Regarde la pièce jointe 1058892Regarde la pièce jointe 1058892Regarde la pièce jointe 1058892

Cliquez pour agrandir...

je serai la oooo. même s'il faut sous le lit

Cliquez pour agrandir...

Staple1600 à dit:

Re

j'en suis à la seconde bière;
Donc, mouille un peu le maillot, camarade !
Utilises l’enregistreur de macros, palsambleu

Cliquez pour agrandir...

Staple1600 à dit:

Re

•>djedjeto
Tu serais pas à ta cinquième bière, toi ? (lol)
Parce que ta PJ est passée à la trappe !

Cliquez pour agrandir...

Staple1600 à dit:

Re

Alors je viens de faire de l'enregistreur de macros
(alors que j'ai encore de la figue séchée entre les dents!)
Cela m'a pris moins de 2 minutes

VB:

Sub Macro1()
ActiveSheet.Range("$A$1:$A$704").AutoFilter Field:=1, Criteria1:=xlFilterThisMonth, Operator:=xlFilterDynamic
End Sub
Sub Macro2()
ActiveSheet.Range("$A$1:$A$704").AutoFilter Field:=1, Criteria1:=">=01/03/2020", Operator:=xlAnd, Criteria2:="<=15/03/2020"
End Sub

Cliquez pour agrandir...

Staple1600 à dit:

Re

Alors en voyant, ta PJ, j'ai pensé aussitôt TCD
Qu'en penses-tu?
Regarde la pièce jointe 1058896

Cliquez pour agrandir...