Coloriage cellule formulaire
Résolu/Fermé
MichelAccess
-
11 févr. 2020 à 16:12
MichelAccess Messages postés 3 Date d'inscription mercredi 12 février 2020 Statut Membre Dernière intervention 12 février 2020 - 12 févr. 2020 à 16:49
MichelAccess Messages postés 3 Date d'inscription mercredi 12 février 2020 Statut Membre Dernière intervention 12 février 2020 - 12 févr. 2020 à 16:49
A voir également:
- Coloriage cellule formulaire
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Formulaire de réclamation facebook - Guide
- Excel si couleur cellule alors ✓ - Forum Excel
1 réponse
yg_be
Messages postés
22707
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 avril 2024
1 471
11 févr. 2020 à 18:25
11 févr. 2020 à 18:25
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.
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.
12 févr. 2020 à 09:52
12 févr. 2020 à 09:58
12 févr. 2020 à 11:39
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.
12 févr. 2020 à 14:16
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 If12 févr. 2020 à 16:49
Un grand merci a vous pour votre réactivité et pour la solution apportée.