Discussion :

[Hydatid]

Bonsoir,
Je dois selectionner dans une zone de liste toutes les lignes qui correspondent au lundi!
Ma zone de liste contient une colonne date (Format : Date, complet) et une colonne nombre de personnes. Avec la Function Selectionner (http://access.developpez.com/faq/?page=zdl) j’arrive à selectionner par exemple toutes lignes où le nombre de consultants est égale à un chiffre donné, code :

Code :

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

Selectionner MaListe, 1, "5"

Pour le lundi j’ai mis le code suivant :

Code :

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

'Selectionner MaListe, 0, "Lundi"

Il ne fonctionne pas !
Comment dois je procéder, Merci!

[Invité]

Bonjour
Tu dis que ton champ est au format date. Or apparemment tu recherches une chaine de caractères.

[Hydatid]

Merci pour la remarque,
J’ai essayé avec un jour précis avec les codes suivants, sans succès:

Code :

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

1
2
3
'Selectionner MaListe, 0, "Lundi 11 janvier 2010" 
'Selectionner MaListe, 0, "11 janvier 2010" 
'Selectionner MaListe, 0, "11/01/2010"

Comment dois je procéder, Merci!

[FreeAccess]

Bonjour,

Sauf erreur de ma part, la date est composée de la date + l'heure.....donc dans ton cas, même en tapant complètement cette date tu n'arriveras jamais à sélectionner ce que tu souhaite....

Regarde l'aide sur la fonction Date....(quelques exemples..)
Comment fonctionne le type Date/Heure ?
Comment récupérer les informations d'une date (quantième, trimestre ...) ?

Maintenant, pour ton problème, on peut le contourner de cette façon....

- tu base ta liste sur une requête qui sera composée des champs Date et Nombre de personne.
- dans cette même requête, tu crée un nouveau champ sous la forme :

JourEnClair: Format([ChampDate];"jjjj")

- ce champ 'JourEnClair' va simplement afficher en clair le jour correspondant au champ Date....

- ensuite, tu va te baser sur cette nouvelle colonne de ta zone de liste pour effectuer ta sélection:

Code :

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

Selectionner Me.MaListe, 2, "Lundi"

.....et voilà, ceci est une possibilité.....

[Tofalu]

Il suffit de modifier un peu la fonction Selectionner pour y ajouter la gestion des dates en optionnel

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
Function Selectionner(Liste As ListBox, Colonne As Integer, Chercher As String, Optional EstDateArondie = False)
Dim i As Integer
Dim Trouve As Boolean, critereOK As Boolean
For i = 0 To Liste.ListCount - 1
    If Not EstDateArondie Then
        critereOK = Liste.Column(Colonne, i) = Chercher
    Else
        critereOK = (Format(Liste.Column(Colonne, i), "mm-dd-yyyy")) = Chercher
    End If
    If critereOK Then
        Me.Liste.Selected(i) = True
        If Liste.MultiSelect = 0 Then Exit For
    Else
        Me.Liste.Selected(i) = False
    End If
 
Next i
End Function

Ce qui donne l'appel suivant pour la sélection du 11 janvier 2010:

Code :

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

Selectionner MaListe, 0, "01-11-2010", true

[Hydatid]

Merci
Concernant FreeAccess,
Cela fonctionne bien. J’aurais aimé selectionner certains jours avec des couleurs différentes mais j’ai compris que cela n’est pas possible.
Concernant Tofalu, votre solution fonctionne pour un jour precis or au début j’avais souhaité selectionner toutes les lignes correspondant au lundi!
Encore une fois, Merci à tous!

[Tofalu]

Concernant Tofalu, votre solution fonctionne pour un jour precis or au début j’avais souhaité selectionner toutes les lignes correspondant au lundi!

La fonction s'adapte ...

Voir l'aide sur la fonction Format ou bien encore la fonction Weekday

C'est dommage cette attitude récurrente des utilisateurs Access de ne pas essayer de faire le moindre effort

[Hydatid]

Vous avez parfaitement raison, j'accepte la réprimande.
Merci