Discussion :

[mumen]

Par contre les boutons sont inactifs.

Arriveras tu à les faire marcher toi même ?

J'ai peaufiné les fonctionnalités sur la V3, il faut supprimer les 3 contrôles droits, les copier coller depuis les gauches et les nommer correctement.

[mumen]

Slt Mathieu
Il est clair que j'en demande pas autant.
J'aurais juste voulu comprendre ta phrase.

il faut supprimer les 3 contrôles droits, les copier coller depuis les gauches et les nommer correctement.

Si tu regardes l'outil, tu vois deux ensembles de contrôles qui supposés être identiques. Pour créer l'outil, j'ai juste mis au point le côté gauche et de temps en temps, je l'ai recopié du côté droit pour voir le résultat. Comme je t'ai envoyé l'outil dans une version en cours, cette mise à jour n'est pas faite.

Je parle de trois contrôles alors que tu en vois bien plus. En fait tous les contrôles de sélection de tournée sont regroupés en un seul. Donc si tu compte, tu vois à gauche un contrôle multiple de sélection de tournée, un contrôle d'affichage et de choix multiple et enfin un contrôle ou s'affiche le compte de patients dans la sélection.

Les trois contrôles de gauche sont la source, ceux de droite la copie. Il faut supprimer ces derniers, puis copier coller les trois restants, ceux de gauche, les placer correctement, puis ne pas oublier de les nommer correctement.

Code :

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

1
2
3
TournéeDroite
PatientDroite
CompteDroite

Et enfin s'assurer que l'évènement sur clic du contrôle TournéeDroite est bien raccordé au code, c'est à dire qu'il contient bien la mention "[Procédure événementielle]".
Et aussi dans le côté droit, je me suis amusé à mettre la sélection multiple différente de celle de gauche (simple ou étendue). Si cela te plait, tu dois aussi le reporter. C'est intéressant de pouvoir avoir les deux méthodes en changeant le sens de déplacement.

C'est ça que j'appelle s'approprier l'outil. Tu dois comprendre comment il fonctionne et être capable d'en modifier les réglages. Comme un mécano qui ne fabriquerait pas lui même sa voiture.

[pascal5]

Enfin j'ai compris.
J'ai tout fait comme tu as dit mais ça ne marche pas. J'ai l'impression que les boutons sont inactifs.

[mumen]

J'ai l'impression que les boutons sont inactifs.

Si tu as bien fait ce que j'ai dit, il te reste à comprendre le code...

J'ai fait en sorte dans cette version que les boutons soient actifs dans une circonstance donnée : que les deux sélections soient différentes. Si ce n'est pas le cas c'est qu'il manque quelque chose à ta duplication, puisque ici ça marche.

[pascal5]

Ca ca marche quand je sélectionne :
une tournée a gauche les boutons apparaissent
ou deux tournées différentes.

[mumen]

Il manque une valeur par défaut aux deux contrôles Tournée pour que les boutons apparaissent à la première exécution. Tu peux choisir ce qui te convient, j'ai mis -2.

[mumen]

Essaye de remplacer le "sub maj" par celui ci :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub maj(strListe As String)
    Dim strCritère      As String
    Dim blnGD           As Boolean
    Dim blnDG           As Boolean
 
    With Me("Tournée" & strListe)
        Select Case .Value
        Case -2
            strCritère = "numerotourne IS NOT NULL"
        Case -1
            strCritère = "selection = True"
        Case 0
            strCritère = "numerotourne IS NULL"
        Case Is > 0
            strCritère = "numerotourne = " & .Value
        Case Else
            strCritère = ""
        End Select
    End With
 
    With Me("Patient" & strListe)
        .RowSource = "SELECT NumClient, numerotourne, LTrim(prenomclient & "" "" & nomclient) AS nomprenomclient FROM T_patients" _
            & IIf(strCritère > "", " WHERE " & strCritère, "") _
            & " ORDER BY numerotourne, nomclient, prenomclient"
        .Requery
    End With
 
    With Me
        blnGD = False
        blnDG = False
        If .TournéeGauche <> .TournéeDroite Then
            If .TournéeGauche > 0 Then
                blnDG = True
            End If
            If .TournéeDroite > 0 Then
                blnGD = True
            End If
        End If
        .BoutonGD.Visible = blnGD
        .BoutonDG.Visible = blnDG
        .PatientGauche.Enabled = blnGD
        .PatientDroite.Enabled = blnDG
    End With
 
    With Me("Compte" & strListe)
        .Value = DCount("*", "T_Patients", strCritère)
    End With
 
End Sub

Dis moi ce que tu penses de la gestion des sélections.

[pascal5]

c'est pas mal le fait de griser les listes des patients, c'est mieux je trouve.
Par contre pour les deux boutons droite gauche qui ne fonctionne pas, que faut il que je fasse ??

[mumen]

Essayes cette version, normalement elle fait tout. du coup ta question est obsolète.

On en reparle!

a+

[pascal5]

Genial c'est tout a fait ce que je cherchais.
Je vais éplucher le code pour essayer de comprendre mais c'est pas gagné.