Je reviens vous voir pour un petit souci de Select Case ; j'ai un controle
Zone de liste réroulante avec 3 choix ( Particulier, Association, Société )
; j'aimerais qu'en fonction du choix séléctionné ch champs soit par exemple
Vert pour Particulier, Bleu pour Association etc....... Je crois savoir que
l'on doit faire ça avec Select Case mais je m'emmêle sur la syntaxe exacte ;
j'ai essayé avec F1 mais étant débutant en VBA, j'ai pas tout compris ;-(
Merci de votre et/ou de vos explications.
Cordialement
--
@+
Ayrton
http://cerbermail.com/?NiMhJk1y8Y
Date : Le 26/06/2005
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour Ayrton,
Un truc du genre, en adaptant Modifiable0 par le nom de ta liste déroulante :
Private Sub Modifiable0_AfterUpdate() With Me.Modifiable0 Select Case .Text Case "Particulier" BackColor = RGB(255, 0, 0) 'Rouge .ForeColor = RGB(255, 255, 255) Case "Association" .BackColor = RGB(0, 255, 0) ' Vert .ForeColor = RGB(255, 255, 255) Case "Société" .BackColor = RGB(0, 0, 255) ' Bleu .ForeColor = RGB(255, 255, 255) End Select End With End Sub
Private Sub Modifiable0_GotFocus() 'Pour remettre Normal la liste lors du choix With Me.Modifiable0 .BackColor = RGB(255, 255, 255) .ForeColor = RGB(0, 0, 0) End With End Sub
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour à tous,
Je reviens vous voir pour un petit souci de Select Case ; j'ai un controle Zone de liste réroulante avec 3 choix ( Particulier, Association, Société ) ; j'aimerais qu'en fonction du choix séléctionné ch champs soit par exemple Vert pour Particulier, Bleu pour Association etc....... Je crois savoir que l'on doit faire ça avec Select Case mais je m'emmêle sur la syntaxe exacte ; j'ai essayé avec F1 mais étant débutant en VBA, j'ai pas tout compris ;-(
Merci de votre et/ou de vos explications.
Cordialement
Bonjour Ayrton,
Un truc du genre, en adaptant Modifiable0 par le nom de ta liste
déroulante :
Private Sub Modifiable0_AfterUpdate()
With Me.Modifiable0
Select Case .Text
Case "Particulier"
BackColor = RGB(255, 0, 0) 'Rouge
.ForeColor = RGB(255, 255, 255)
Case "Association"
.BackColor = RGB(0, 255, 0) ' Vert
.ForeColor = RGB(255, 255, 255)
Case "Société"
.BackColor = RGB(0, 0, 255) ' Bleu
.ForeColor = RGB(255, 255, 255)
End Select
End With
End Sub
Private Sub Modifiable0_GotFocus()
'Pour remettre Normal la liste lors du choix
With Me.Modifiable0
.BackColor = RGB(255, 255, 255)
.ForeColor = RGB(0, 0, 0)
End With
End Sub
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour à tous,
Je reviens vous voir pour un petit souci de Select Case ; j'ai un controle
Zone de liste réroulante avec 3 choix ( Particulier, Association, Société )
; j'aimerais qu'en fonction du choix séléctionné ch champs soit par exemple
Vert pour Particulier, Bleu pour Association etc....... Je crois savoir que
l'on doit faire ça avec Select Case mais je m'emmêle sur la syntaxe exacte ;
j'ai essayé avec F1 mais étant débutant en VBA, j'ai pas tout compris ;-(
Un truc du genre, en adaptant Modifiable0 par le nom de ta liste déroulante :
Private Sub Modifiable0_AfterUpdate() With Me.Modifiable0 Select Case .Text Case "Particulier" BackColor = RGB(255, 0, 0) 'Rouge .ForeColor = RGB(255, 255, 255) Case "Association" .BackColor = RGB(0, 255, 0) ' Vert .ForeColor = RGB(255, 255, 255) Case "Société" .BackColor = RGB(0, 0, 255) ' Bleu .ForeColor = RGB(255, 255, 255) End Select End With End Sub
Private Sub Modifiable0_GotFocus() 'Pour remettre Normal la liste lors du choix With Me.Modifiable0 .BackColor = RGB(255, 255, 255) .ForeColor = RGB(0, 0, 0) End With End Sub
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour à tous,
Je reviens vous voir pour un petit souci de Select Case ; j'ai un controle Zone de liste réroulante avec 3 choix ( Particulier, Association, Société ) ; j'aimerais qu'en fonction du choix séléctionné ch champs soit par exemple Vert pour Particulier, Bleu pour Association etc....... Je crois savoir que l'on doit faire ça avec Select Case mais je m'emmêle sur la syntaxe exacte ; j'ai essayé avec F1 mais étant débutant en VBA, j'ai pas tout compris ;-(
Merci de votre et/ou de vos explications.
Cordialement
Eric
.../... Ecris trop vite Manque le . devant BackColor dans le Case "Particulier" il faut donc écrire :
Case "Particulier" .BackColor = RGB(255, 0, 0) 'Rouge <<-----
et tu peux sortir du Select Case le .ForeColor = RGB(255, 255, 255) et le mettre sous le With Modifiable0. -- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour à tous,
Je reviens vous voir pour un petit souci de Select Case ; j'ai un controle Zone de liste réroulante avec 3 choix ( Particulier, Association, Société ) ; j'aimerais qu'en fonction du choix séléctionné ch champs soit par exemple Vert pour Particulier, Bleu pour Association etc....... Je crois savoir que l'on doit faire ça avec Select Case mais je m'emmêle sur la syntaxe exacte ; j'ai essayé avec F1 mais étant débutant en VBA, j'ai pas tout compris ;-(
Merci de votre et/ou de vos explications.
Cordialement
.../...
Ecris trop vite
Manque le . devant BackColor dans le Case "Particulier"
il faut donc écrire :
Case "Particulier"
.BackColor = RGB(255, 0, 0) 'Rouge <<-----
et tu peux sortir du Select Case le
.ForeColor = RGB(255, 255, 255)
et le mettre sous le With Modifiable0.
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour à tous,
Je reviens vous voir pour un petit souci de Select Case ; j'ai un controle
Zone de liste réroulante avec 3 choix ( Particulier, Association, Société )
; j'aimerais qu'en fonction du choix séléctionné ch champs soit par exemple
Vert pour Particulier, Bleu pour Association etc....... Je crois savoir que
l'on doit faire ça avec Select Case mais je m'emmêle sur la syntaxe exacte ;
j'ai essayé avec F1 mais étant débutant en VBA, j'ai pas tout compris ;-(
.../... Ecris trop vite Manque le . devant BackColor dans le Case "Particulier" il faut donc écrire :
Case "Particulier" .BackColor = RGB(255, 0, 0) 'Rouge <<-----
et tu peux sortir du Select Case le .ForeColor = RGB(255, 255, 255) et le mettre sous le With Modifiable0. -- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour à tous,
Je reviens vous voir pour un petit souci de Select Case ; j'ai un controle Zone de liste réroulante avec 3 choix ( Particulier, Association, Société ) ; j'aimerais qu'en fonction du choix séléctionné ch champs soit par exemple Vert pour Particulier, Bleu pour Association etc....... Je crois savoir que l'on doit faire ça avec Select Case mais je m'emmêle sur la syntaxe exacte ; j'ai essayé avec F1 mais étant débutant en VBA, j'ai pas tout compris ;-(
Merci de votre et/ou de vos explications.
Cordialement
Ayrton [ASC]
Bonjour *Eric* Dans ton message de news:O$, Tu as pensé très fort :-(*)
Bonjour Ayrton,
Bonjour Eric ,
Un truc du genre, en adaptant Modifiable0 par le nom de ta liste déroulante :
Private Sub Modifiable0_AfterUpdate() With Me.Modifiable0 Select Case .Text Case "Particulier" BackColor = RGB(255, 0, 0) 'Rouge .ForeColor = RGB(255, 255, 255) Case "Association" .BackColor = RGB(0, 255, 0) ' Vert .ForeColor = RGB(255, 255, 255) Case "Société" .BackColor = RGB(0, 0, 255) ' Bleu .ForeColor = RGB(255, 255, 255) End Select End With End Sub
Private Sub Modifiable0_GotFocus() 'Pour remettre Normal la liste lors du choix With Me.Modifiable0 .BackColor = RGB(255, 255, 255) .ForeColor = RGB(0, 0, 0) End With End Sub
Merci infiniement Eric ; je ne m'en serai jamais sorti tout seul ! il me manquait la moitié des infos ;-) Maintenant, ça va aller beaucoup mieux !
Encore merci de ton aide précieuse.
PS : j'ai bien pris note, sur ton post qui suit celui-ci, des modifications que tu m'indiques.
Bonne soirée
-- @+ Ayrton http://cerbermail.com/?NiMhJk1y8Y Date : Le 26/06/2005
Bonjour *Eric*
Dans ton message de news:O$DBsKneFHA.3864@TK2MSFTNGP10.phx.gbl,
Tu as pensé très fort :-(*)
Bonjour Ayrton,
Bonjour Eric ,
Un truc du genre, en adaptant Modifiable0 par le nom de ta liste
déroulante :
Private Sub Modifiable0_AfterUpdate()
With Me.Modifiable0
Select Case .Text
Case "Particulier"
BackColor = RGB(255, 0, 0) 'Rouge
.ForeColor = RGB(255, 255, 255)
Case "Association"
.BackColor = RGB(0, 255, 0) ' Vert
.ForeColor = RGB(255, 255, 255)
Case "Société"
.BackColor = RGB(0, 0, 255) ' Bleu
.ForeColor = RGB(255, 255, 255)
End Select
End With
End Sub
Private Sub Modifiable0_GotFocus()
'Pour remettre Normal la liste lors du choix
With Me.Modifiable0
.BackColor = RGB(255, 255, 255)
.ForeColor = RGB(0, 0, 0)
End With
End Sub
Merci infiniement Eric ; je ne m'en serai jamais sorti tout seul ! il me
manquait la moitié des infos ;-)
Maintenant, ça va aller beaucoup mieux !
Encore merci de ton aide précieuse.
PS : j'ai bien pris note, sur ton post qui suit celui-ci, des modifications
que tu m'indiques.
Bonne soirée
--
@+
Ayrton
http://cerbermail.com/?NiMhJk1y8Y
Date : Le 26/06/2005
Bonjour *Eric* Dans ton message de news:O$, Tu as pensé très fort :-(*)
Bonjour Ayrton,
Bonjour Eric ,
Un truc du genre, en adaptant Modifiable0 par le nom de ta liste déroulante :
Private Sub Modifiable0_AfterUpdate() With Me.Modifiable0 Select Case .Text Case "Particulier" BackColor = RGB(255, 0, 0) 'Rouge .ForeColor = RGB(255, 255, 255) Case "Association" .BackColor = RGB(0, 255, 0) ' Vert .ForeColor = RGB(255, 255, 255) Case "Société" .BackColor = RGB(0, 0, 255) ' Bleu .ForeColor = RGB(255, 255, 255) End Select End With End Sub
Private Sub Modifiable0_GotFocus() 'Pour remettre Normal la liste lors du choix With Me.Modifiable0 .BackColor = RGB(255, 255, 255) .ForeColor = RGB(0, 0, 0) End With End Sub
Merci infiniement Eric ; je ne m'en serai jamais sorti tout seul ! il me manquait la moitié des infos ;-) Maintenant, ça va aller beaucoup mieux !
Encore merci de ton aide précieuse.
PS : j'ai bien pris note, sur ton post qui suit celui-ci, des modifications que tu m'indiques.
Bonne soirée
-- @+ Ayrton http://cerbermail.com/?NiMhJk1y8Y Date : Le 26/06/2005
Ayrton [ASC]
Re Eric,
Je suis désolé mais j'ai un petit souci ;-( En zffzt, ça ne fonctionne qu'à moitié ; je m'xplique : La liste déroulante prends la couleur de la dernière saisie et l'adapte aux précédents ; c'est à dire que si je selectionne " Particulier ", mon champs est bien rouge mais tous ceux qui ont été saisis avant deviennent rouges ! ! Que ce soit " Particuliers" ou " Association " ou " Societe " ils sont tous rouges ;-( Si je saisi une Association, le champs sera bien vert mais tous ceux saisis avant deviendront vert et peu importe la nature du champs ( Particuliers etc....) En gros, cela prends la dernière couleur rentrée et cela l'applique à tout ce qui a été saisi avant ( juste pour ce champs bien entendu ).
As tu une petite idée ? A titre d'info, j'ai essayé : Private Sub TypeClient_AfterUpdate() With Me.TypeClient Select case .TypeClient Case "Particulier" .BackColor=RGB(255,0,0 ) Etc..... et j'ai le même problème ; j'ai même essayé avec Select Case .Value et c'est pareil ; je n'ai pas été plus loin car débutant en VBA, mes connaissances ne vont pas plus loin! ;-)
Merci quand même Bonne nuit
-- @+ Ayrton http://cerbermail.com/?NiMhJk1y8Y Date : Le 26/06/2005
Re Eric,
Je suis désolé mais j'ai un petit souci ;-(
En zffzt, ça ne fonctionne qu'à moitié ; je m'xplique : La liste déroulante
prends la couleur de la dernière saisie et l'adapte aux précédents ; c'est à
dire que si je selectionne " Particulier ", mon champs est bien rouge mais
tous ceux qui ont été saisis avant deviennent rouges ! ! Que ce soit "
Particuliers" ou " Association " ou " Societe " ils sont tous rouges ;-(
Si je saisi une Association, le champs sera bien vert mais tous ceux saisis
avant deviendront vert et peu importe la nature du champs ( Particuliers
etc....)
En gros, cela prends la dernière couleur rentrée et cela l'applique à tout
ce qui a été saisi avant ( juste pour ce champs bien entendu ).
As tu une petite idée ?
A titre d'info, j'ai essayé :
Private Sub TypeClient_AfterUpdate()
With Me.TypeClient
Select case .TypeClient
Case "Particulier"
.BackColor=RGB(255,0,0 )
Etc.....
et j'ai le même problème ; j'ai même essayé avec Select Case .Value et c'est
pareil ; je n'ai pas été plus loin car débutant en VBA, mes connaissances ne
vont pas plus loin! ;-)
Merci quand même
Bonne nuit
--
@+
Ayrton
http://cerbermail.com/?NiMhJk1y8Y
Date : Le 26/06/2005
Je suis désolé mais j'ai un petit souci ;-( En zffzt, ça ne fonctionne qu'à moitié ; je m'xplique : La liste déroulante prends la couleur de la dernière saisie et l'adapte aux précédents ; c'est à dire que si je selectionne " Particulier ", mon champs est bien rouge mais tous ceux qui ont été saisis avant deviennent rouges ! ! Que ce soit " Particuliers" ou " Association " ou " Societe " ils sont tous rouges ;-( Si je saisi une Association, le champs sera bien vert mais tous ceux saisis avant deviendront vert et peu importe la nature du champs ( Particuliers etc....) En gros, cela prends la dernière couleur rentrée et cela l'applique à tout ce qui a été saisi avant ( juste pour ce champs bien entendu ).
As tu une petite idée ? A titre d'info, j'ai essayé : Private Sub TypeClient_AfterUpdate() With Me.TypeClient Select case .TypeClient Case "Particulier" .BackColor=RGB(255,0,0 ) Etc..... et j'ai le même problème ; j'ai même essayé avec Select Case .Value et c'est pareil ; je n'ai pas été plus loin car débutant en VBA, mes connaissances ne vont pas plus loin! ;-)
Merci quand même Bonne nuit
-- @+ Ayrton http://cerbermail.com/?NiMhJk1y8Y Date : Le 26/06/2005
