Discussion :

[avyrex]

Bonjour à tous,

Sur un document excel avec interface VB, je veux faire une recherche entre 2 dates, Soit pour la colone C ou la colone D, selon mon choix. Ex: entre le 11 novembre 2005 et le 11 novembre 2006.

Donc dans mon UserForm, j'ai 2 DTPicker et un bouton recherche.

Comment faire pour réaliser cela?

Voici à quoi resemble le fichier excel.

Merci beaucoup

[ouskel'n'or]

Code :

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

1
2
If cdate(Cells(NoLigne,Nocol).value) < cdate(Cells(NoLigne,Nocol2).value) then
'... ce que tu veux faire dans ce cas là...

A vrai dire je n'ai pas compris quelle type de recherche tu souhaites faire
Mais tu vas nous expliquer ça

[avyrex]

Bien en réalité, ce que je veux faire c’est d’entrer 2 dates au choix dans les 2 DTPicker du UserForm et en cliquant sur le bouton,je voudrait qu'il me filtre la liste des employé (le nom, la formation, la date de formation et la prochaine formation) qui ont eu des formations entre les 2 dates dans le fichier excel et cela en

Code :

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

ActiveWorkbook.WebPagePreview

Dans le but d'éviter que les gens travail dans le fichier excel.

[avyrex]

Re bonjour,
J'ai essayé avec ce 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
15
16
17
18
Private Sub CommandButton1_Click()
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("Formation employé").Select
    Range("A28:D234").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Unprotect
    Selection.AutoFilter
    ActiveWindow.SmallScroll Down:=-30
    Range("C28").Select
    Selection.AutoFilter Field:=3, Criteria1:=(">DTPicker1"), Operator:=xlOr _
        , Criteria2:=("<DTPicker2")
    ActiveWorkbook.WebPagePreview
    Selection.AutoFilter
    ActiveWindow.SmallScroll Down:=-24
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Accueil").Select
 
End Sub

Par contre il ne me donne aucune info.

Il ne cherche pas les données entre les 2 DTPickers.

Je continue de chercher tout en attentant votre précieuse aide.

Merci.

[SfJ5Rpw8]

avec ce code tu met comm filtre la chaine de caractére
">DTPicker1" et pas la valeur issue ... du contrôle...

essai de ton code du genre

Code :

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

Criteria1:=">" &  DTPicker1

[avyrex]

Merci pour les idées maintenant, j'ai des données qui apparaissent. Le problème est que maintenant, il m'affiche tous les données.même ceux qui ne sont pas entre les 2 date


Voici comment j'ai écrit le 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
15
16
17
18
Private Sub CommandButton1_Click()
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("Formation employé").Select
    Range("A28:D234").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Unprotect
    Selection.AutoFilter
    ActiveWindow.SmallScroll Down:=-30
    Range("C28").Select
    Selection.AutoFilter Field:=3, Criteria1:=">" & DTPicker1, Operator:=xlOr _
        , Criteria2:="<" & DTPicker2
    ActiveWorkbook.WebPagePreview
    Selection.AutoFilter
    ActiveWindow.SmallScroll Down:=-24
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Accueil").Select
 
End Sub

Je continue toujours à chercher moi aussi.

[ouskel'n'or]

Révise tes opérateurs ! Ce n'est pas Operator:=xlOr mais xland
"Or", ça veut dire "ou" en Anglais...

[avyrex]

Super, tous fonctionne à 100% avec

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
Private Sub CommandButton1_Click()
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("Formation employé").Select
    Range("A28:D234").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Unprotect
    Selection.AutoFilter
    ActiveWindow.SmallScroll Down:=-30
    Range("C28").Select
    Selection.AutoFilter Field:=3, Criteria1:=">" & "=" & DTPicker1, Operator:=xlAnd _
        , Criteria2:="<" & "=" & DTPicker2
    ActiveWorkbook.WebPagePreview
    Selection.AutoFilter
    ActiveWindow.SmallScroll Down:=-24
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Accueil").Select
 
End Sub

Merci beaucoup encore une fois.