Discussion :

[GAMBERGE]

Bonjour,

J'ai créé une base access pour gérer des rendez-vous dans un planning, en utilisant le planning hedomadaire "Agenda d'entreprise" de l'excellent User (que je salue et remercie grandement au passage pour ses explications très claires pour le modeste initié VBA que je suis).

Le planning initial couvrait la plage horaire journalière 8:00/20:00 que j'ai dû étendre pour des raisons pratiques à 7:00/22:00. Pour cela, j'ai ajouté un certain nombre de lignes supplémentaires dans le formulaire planning et modifié en conséquence les codes VBA qui s'y rapportent.

Tout fonctionne correctement à la prise des rendez-vous, tant que leur plage ne franchit pas les 20:00 et 21:00. Plus exactement, la colorisation du rendez-vous qui dépasserait ces heures précises stoppe net. Pour être encore plus clair, un rendez-vous pris par exemple de 19:00 à 21:00 (bien que pris en compte) colorise uniquement la plage 19:00 à 20:00. Par contre, un rendez-vous pris de 20:00 à 21:00 colorise correctement. En gros, la colorisation se heurte aux heures entières que j'ai ajoutées, elle ne les franchit pas.

Je suppose qu'un des paramètres du codage doit être modifié, mais malgré maintes relectures, je ne vois pas lequel jouerait ce rôle.

J'ai reproduit ce phénomène dans la base exemple "Agenda d'entreprise" que j'avais téléchargé. S'il faut vous la transmettre, je le ferai volontiers.

A votre disposition pour tout renseignement complémentaire et merci d'avance de m'avoir lu,

Cordialement,

Gamberge

[User]

Bonjour et merci,

Je crois comprendre votre souci :

Les tranches horaires de "19:00-20:00" se glissent sous les tranches "20:00-21:00", car les tranches "20:00-21:00" ont été crées après les tranches "19:00-20:00" :



Pour que les labels "19:00-20:00" viennent se positionner par dessus les labels "20:00-21:00" quand ils s'agrandissent en hauteur, ils faut que les labels "20:00-21:00" soient créés avant les labels "19:00-20:00".

Une solution serait de couper-coller tous les labels de "08:00-20-00", comme cela ils seraient recréés après les labels "20:00-21:00".

Cdlt,

[GAMBERGE]

Bonjour User,

Magnifique, vous avez très bien compris et votre solution fonctionne parfaitement, bravo et merci pour la réactivité !

Et puisque j'ai le privilège d'être dépanné par le concepteur en personne, je tente une deuxième question :

Dans votre base "Agenda", vous utilisiez un système très sophistiqué (enfin, pour moi) pour coloriser les labels en fonction du type de Rendez-vous. Dans mon cas, je préférerais que la couleur des labels dépendent plutôt du nom des clients. Exemple : les RV avec MARTIN se colorisent en rouge et ceux avec DURAND en bleu. Je pensais m'inspirer évidemment de votre méthode mais pour ne pas faire fausse route :

- Est-il préférable de repartir de zéro ? Plus sûr de partir de vos tables et vos codes en les adaptant à ma situation ? ou auriez-vous une piste pour une solution disons plus simpliste ?

Cordialement,

Gamberge

[User]

Rebonjour,

Comme on dit "les goûts et les couleurs..".

Mais c'est pas compliqué à adapter :

i) - Créer un champ supplémentaire nommé "Couleur" dans la table T_Client de type entier long.

ii) - Insérer ce champ sur le formulaire "F_Client" en mode création.

iii) - Mettre du code dans le module de ce formulaire F_Client, pour modifier le code couleur en double-cliquant sur la zone de texte "Couleur" lié au champ "Couleur" :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Couleur_DblClick(Cancel As Integer)
Dim NewColor As Long
 
    NewColor = aDialogColor(Me("Couleur").BackColor)  ' Appel la boîte de dialogue pour choisir la couleur sur la palette
    If NewColor <> -1 Then
        Me("Couleur").BackColor = NewColor ' Colorie la zone de texte avec la couleur choisie
        Me("Couleur").Value = NewColor ' Mise à jour du champ
    End If
 
End Sub

iv) - Toujours sur le formulaire F_Client mettre du code sur activation pour mettre à jour la couleur de la zone de texte en fonction du code enregistré :

Code :

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

1
2
3
4
5
Private Sub Form_Current()
Me!NC = Me!NumE
Me("Couleur").BackColor = Nz(Me("Couleur").Value, vbWhite) ' Mise à jour de la couleur
 
End Sub

v) - Enfin, modifier la requête R_RendezVous pour y insérer le champ Couleur de la table T_Client :




Cdlt,

[GAMBERGE]

Alors là, un grand merci User, un jeu d'enfant ou presque quand la procédure est parfaitement expliquée et mâchée.

Pour être précis, dans mon application, avant de commencer la procédure, j'ai pensé qu'il valait mieux supprimer tous les codes se rapportant aux couleurs des types de rendez-vous pour éviter les interférences.

Mais en final, lorsque je validais le RV de n'importe quel client, les labels se colorisaient tous en noir (?).

Alors j'ai récupéré (un peu au pif, j'avoue, même si ce code me parlait) dans votre appli le bout de code supplémentaire qui suit, que j'ai inséré dans Public Sub MajPlanning() juste après le Do While Not (RsPL.EOF) :

Code :

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

1
2
3
4
5
6
7
      If Not IsNull(RsPL!Couleur) Then
         Color = RsPL!Couleur ' définit la couleur du label.
 
      Else
         Color = vbWhite
 
      End If

et là les labels se sont colorisés à la bonne couleur (pour moi, comme par enchantement).

Vous en voyez certainement la raison ?

En tous cas, encore merci pour le temps passé sur mes problèmes de néophyte.

Cordialement,

Gamberge

[User]

Pour ma part je n'ai rien supprimé, si ce n'est la référence au champ couleur de la table T_CouleurRdv, dans la requête R_RendezVous.

Donc, c'est la seule chose à supprimer, ensuite, bien sûr vous pouvez supprimer le formulaire de paramétrage des couleurs puisque vous ne passez plus par ce paramétrage.