Pour 3 Stone (Zone de Liste Déroulante)
Le
Emilie
re bonjour ,
J'ai un petit souci au sujet de mon post de tout à l'heure ; j'a ifait ce
que tu m'as indiqué et ça ne fonctionne pas ; j'ai remplacé ce que tu
appelles MaListe par le nom de mon champs ; j'espère que j'ai bien fait ! !
Par contre , je ne comprends pas bie nquand tu me dit à la fin : "Tu dois
adapter le nom de ma liste" ? ?
C'est peut être là que j'ai mal fait.
Merci
A+
Emilie
PS : Mon post est d'aujourd'hui à 13H25
J'ai un petit souci au sujet de mon post de tout à l'heure ; j'a ifait ce
que tu m'as indiqué et ça ne fonctionne pas ; j'ai remplacé ce que tu
appelles MaListe par le nom de mon champs ; j'espère que j'ai bien fait ! !
Par contre , je ne comprends pas bie nquand tu me dit à la fin : "Tu dois
adapter le nom de ma liste" ? ?
C'est peut être là que j'ai mal fait.
Merci
A+
Emilie
PS : Mon post est d'aujourd'hui à 13H25
Poser une question
Dans la procédure de Pierre, remplaces les valeurs de Case par celles ci-
dessous
Cela suppose que ta liste est construite sur la table tCouleurs et que la
liste a 2 colonnes dont la 1ere est le numéro(colonne cachée). Donc il
faut remplacer les valeurs Texte par les valeurs numériques
Private Sub MaListe_AfterUpdate()
With Me!MaListe
Select Case MaListe.Value
Case 1
.BackColor = vbGreen
Case 2
.BackColor = vbYellow
Case 3
.BackColor = vbRed
End Select
End With
End Sub
Par contre si ta liste est composée d'une SEULE colonne contenant : Payé,
en attente, ...
alors tu mets cette procédure :
Private Sub MaListe_AfterUpdate()
With MaListe
Select Case MaListe.Text
Case "Payé"
.BackColor = vbGreen
Case "en attente"
.BackColor = vbYellow
Case Else
.BackColor = vbRed
End Select
End With
End Sub
A+
Eric
"Emilie" news:#:
Bonsoir Eric,
En effet ma liste déroulante n'est composée que d'une seule colonne ; je
l'ai faite avec l'Assistant de choix et c'est moi qui ai chosie les valeurs;
j'ai donc rajouté les 3 lignes dont j'avais besoin ;
J'essaie ce que tu vient de me dire.
Un très grand merci pour ton aide
Je te tiens au courant
A+ tard
Emilie
Excuse moi mais je viens de m'apercevoir que je t'ai repondu sous la session
de mon ami ; je m'en suis aperçue trop tard, ma réponse était déjà partie !
!
A+ tard
Emilie
In news:, Eric
Re Bonsoir Eric,
Eh bien je n'ai pas de chance car ça ne fonctionne pas non plus ;-(
Un message d'eereur m'indique cette que cette phrase " Select Case
MaListe.Text " ne va pas car elle est surlignée en jaune ; avec la méthode
de Pierre je n'avais pas de message d'erreur mais ça ne fonctionnait pas non
plus ! !
Je dois avoir la poisse ! !
Je vais continuer à chercher !
Merci encore
A+
Emilie
(Je me suis absenté qque heures...)
"Emilie"
Avec la réponse de Eric, tu dois avoir réussi à la faire fonctionner.
Cela démontre également qu'il ne faut pas *adresser*
un message... toutes les réponses sont bonnes à prendre ;-)
Dans ce cas, reste dans la conversation (dans le fil) c'est plus simple.
PS: Elle fonctionne ta liste ?
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------