Discussion :

[Blacktizen]

Bonjour,

j'aimerais faire un bouton qui prendrait toutes les dates de la colonne A (par exemple) qui sont compris entre les dates XX et YY que je mettrais dans des cellules.

En gros je voudrais qu'il sélectionne toutes les colonnes dont les dates sont comprises entre celles que j'aurai défini dans les cellules XX et YY

Voir le fichier Excel joint si possible

Merci beaucoup de votre aide !

[Philippe Tulliez]

Bonjour,
Pourrais-tu être plus précis car il y a ambiguïté dans ta question entre

j'aimerais faire un bouton qui prendrait toutes les dates de la colonne A (par exemple) qui sont compris entre les dates XX et YY

et

En gros je voudrais qu'il sélectionne toutes les colonnes dont les dates sont comprises entre celles que j'aurai défini dans les cellules XX et YY

[Blacktizen]

Oups désolé, qu'il sélectionne juste dans la colonne A les dates qui sont dans la plage que je lui ai défini.

Merci

[Philippe Tulliez]

Bonjour,

sélectionne juste dans la colonne A les dates qui sont dans la plage que je lui ai défini

Mais la plage définie n'est elle pas justement les cellules de la colonne A ?

[BENNASR]

bonjour
ajoute une colonne B avec la formule suivante :
SI(ET(A2>=$E$5;A2<=$F$5);1;0)
à copier vers le bas
puis filtre sur la colonne B avec le code suivant

Code :

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

1
2
3
Sub FilterSurPlace()
  Sheets("feuil1").Range("A1:B100").AutoFilter Field:=2, Criteria1:="1"
End Sub

[patricktoulon]

bonjour
testé sur ton fichier
j'ai ajouté un bouton (activX)

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub CommandButton1_Click()
    With ActiveSheet.Range("A2", Cells(Rows.Count, 1).End(xlUp))
        .AutoFilter Field:=1, Criteria1:=">" & CLng(CDate(.Parent.Cells(5, "E").Value)), Operator:=xlAnd, Criteria2:="<" & CLng(CDate(.Parent.Cells(5, "F").Value))
        Set Rng = .SpecialCells(xlVisible)
        .AutoFilter
    End With
MsgBox "address des cellules valide pour les dates en E5 et F5 " & vbCrLf & Rng.Address
End Sub

ta plage se definit d'elle meme par le filtre