[VBA]Mise en forme conditionnelle variable
Bonjour,
J'au formulaire dans le quel je rentre des longueurs de produit.
Dans ce formulaire j'ai une liste déroulante où je choisi le produit mesuré et puis je rentre les valeurs.
Pour chaque longueur de produits j'ai des tolérances.
Ex :
produit x - Longueur mini acceptable = 10 - longueur maxi acceptable = 15
La liste des produits avec les mini et maxi sont dans une table "Produits"
Mopn souhait est que lorsque je rentre une valeur qui sort des tolérances la valeur s'affiche d'une autre couleur.
Le problème c'est qu'il faut que ce soit "dynamique" puisque la tolérance n'est pas identique pour tous les produits.
J'ai rentré ceci :
Code:
1
2
3
4
5
6
7
8
9
| Private sub txtlongueur_afterupdate()
If cmbproduit.value = "Produit1" Thne
If txtlongueur.value >= [Select Max(Maxilongp1.valeurs) FROM Produits] And txtlongueur.value <= [Select Min(Minilongp1.valeurs) FROM Produits] Then
txtlongueur.backcolor = VBred
End if
Else
...
End if
End sub |
Mais cela ne fonctionne aps, y a t'il une erreur?
