Coloriage cellule formulaire [Résolu]

Signaler
-
MichelAccess
Messages postés
3
Date d'inscription
mercredi 12 février 2020
Statut
Membre
Dernière intervention
12 février 2020
-
Bonjour,

Je suis tous récemment utilisateur Access ou je vient de créer un formulaire lié a une requête.
Sur ce formulaire a disposition de mes collaborateurs je souhaite effectuer un aiguillage pour le remplissage.
Par exemple lorsque que la cellule NB appel > 0 alors la cellule Statut de l'appel s'allume en orange.

Merci par avance

1 réponse

Messages postés
9659
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 février 2020
532
bonjour,
je suggère que tu lises ceci afin d'utiliser un vocabulaire précis.
cet aiguillage peut se faire avec un code VBA ajouté au formulaire.
pour le réaliser, il faut connaitre le nom exact des contrôles impliqués (pas le texte affiché, le nom du contrôle).
tu peux éventuellement partager ton fichier.
MichelAccess
Messages postés
3
Date d'inscription
mercredi 12 février 2020
Statut
Membre
Dernière intervention
12 février 2020

Merci pour votre retour, en effet il serait plus simple de partager mon fichier mais je ne trouve pas le moyen de le faire!
yg_be
Messages postés
9659
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 février 2020
532 > MichelAccess
Messages postés
3
Date d'inscription
mercredi 12 février 2020
Statut
Membre
Dernière intervention
12 février 2020

tu publies le fichier sur internet (google drive, cjoint.com, ...), et tu partages ici le lien vers le fichier.
MichelAccess
Messages postés
3
Date d'inscription
mercredi 12 février 2020
Statut
Membre
Dernière intervention
12 février 2020

Merci pour les informations.
Voici le fichier lié a ma demande : https://drive.google.com/file/d/1_rF1Dr-HRQ8d8R5Ts6qvI0Z9r26BMVvR/view?usp=sharing

Je souhaite dans le formulaire "Test" de celui-ci :
Lorsque je sélectionne "Aboutit" dans la cellule "statut de l'appel", j'aimerais que les cellules "validation" et "date du rdv" s'allume en orange. Puis lorsque je rempli la cellule"validation" celle-ci redevienne blanche.

J’espère avoir été assez claire.
Merci d'avance.
yg_be
Messages postés
9659
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 février 2020
532 > MichelAccess
Messages postés
3
Date d'inscription
mercredi 12 février 2020
Statut
Membre
Dernière intervention
12 février 2020

suggestion:
Private Sub Date_du_RDV_AfterUpdate()
Call colorons
End Sub

Private Sub Form_Current()
Call colorons
End Sub

Private Sub Statut_de_l_appel_AfterUpdate()
Call colorons
End Sub

Private Sub Validation_AfterUpdate()
Call colorons
End Sub

Private Sub colorons()
Me.Validation.BackColor = RGB(255, 255, 255)
Me.Date_du_RDV.BackColor = RGB(255, 255, 255)
If Me.Statut_de_l_appel = "Aboutit" Then
    Debug.Print ".", Me.Validation.Value
    If IsNull(Me.Validation.Value) Or Me.Validation.Value = "" Then
        Me.Validation.BackColor = RGB(255, 165, 0)
    End If
    If IsNull(Me.Date_du_RDV.Value) Then
        Me.Date_du_RDV.BackColor = RGB(255, 165, 0)
    End If
MichelAccess
Messages postés
3
Date d'inscription
mercredi 12 février 2020
Statut
Membre
Dernière intervention
12 février 2020

Cela est parfais j'ai pu l'adapter parfaitement au reste de mon fichier.
Un grand merci a vous pour votre réactivité et pour la solution apportée.