couleur suivant selection dans list box

[jopont]

bonjour

je cherche à mettre d'une couleur différentes les valeurs de mes contrôle dans USF, suivant la valeur choisie dans une listbox.

Voici le code ci-dessous qui ne fonctione pas, et le fichier.

Private Sub CbCadre_Change()
If CbCadre.Value = 'intervention' Then
CbCadre.ForeColor = &H80000008
cbPlongeur.ForeColor = &H80000008
txtDate.ForeColor = &H80000008
cbPosition.ForeColor = &H80000008
cblieux.ForeColor = &H80000008
txtImmersion.ForeColor = &H80000008
txtSortie.ForeColor = &H80000008
txtTemps.ForeColor = &H80000008
cbProfondeur.ForeColor = &H80000008
End If
 
 End Sub

[file name=SALPontarlier_20051019160143.zip size=46069]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SALPontarlier_20051019160143.zip[/file]

 

[jopont]

bonsoir

Quelqu'un peut-il m'aider

merci A+