iItem =3D Liste0.ListCount
For iItem =3D 1 To iItem - 1
If Liste0.Column(0) =3D Vrai Then
Liste0.ForeColor =3D 255
Else
Liste0.ForeColor =3D 0
End If
Next iItem
msgBox "Le total est de " & iItem
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
Daniel Carollo
Bonjour Serge!
Il va falloir revoir vos concepts quelque peu.
Au niveau de la syntaxe tout d'abord:
Private Sub Liste0_Enter()
Dim iItem as integer ' Ca ne mange pas de pain de savoir a quoi on a affaire. ' iItem = Liste0.ListCount ' For iItem = 1 To iItem - 1 ' C'est un peu bete de lui faire prendre la valeur .ListCount, puis 1 sans rien au milieu... For iItem = 1 to Liste0.ListCount If Liste0.Column(0) = True Then Liste0.ForeColor = 255 Else Liste0.ForeColor = 0 End If Next iItem ' et c'est la qu'on se rend compte que ca ne sert a rien: la propriete de la liste toute entiere change a chaque ligne.
msgBox "Le total est de " & iItem
End Sub
Il n'est pas possible d'avoir des lignes de differentes couleurs avec la liste standard d'Access...
Bonne continuation quand meme.
-- Daniel :-)
Computing Technologies International - www.computing-tech.com - We provide solutions...
"Serge" wrote in message news:463c01c3760b$ae51cc60$ Je voudrais mettre en rouge les éléments d'une liste sous certaines conditions et ça ne va pas...
iItem = Liste0.ListCount For iItem = 1 To iItem - 1 If Liste0.Column(0) = Vrai Then Liste0.ForeColor = 255 Else Liste0.ForeColor = 0 End If Next iItem msgBox "Le total est de " & iItem
End Sub
Bonjour Serge!
Il va falloir revoir vos concepts quelque peu.
Au niveau de la syntaxe tout d'abord:
Private Sub Liste0_Enter()
Dim iItem as integer ' Ca ne mange pas de pain de savoir a quoi on a
affaire.
' iItem = Liste0.ListCount
' For iItem = 1 To iItem - 1 ' C'est un peu bete de lui faire
prendre la valeur .ListCount, puis 1 sans rien au milieu...
For iItem = 1 to Liste0.ListCount
If Liste0.Column(0) = True Then
Liste0.ForeColor = 255
Else
Liste0.ForeColor = 0
End If
Next iItem ' et c'est la qu'on se rend compte que ca ne sert a rien: la
propriete de la liste toute entiere change a chaque ligne.
msgBox "Le total est de " & iItem
End Sub
Il n'est pas possible d'avoir des lignes de differentes couleurs avec la
liste standard d'Access...
Bonne continuation quand meme.
--
Daniel :-)
Computing Technologies International - www.computing-tech.com - We
provide solutions...
"Serge" <serge.hans@psd.skynet.be> wrote in message
news:463c01c3760b$ae51cc60$a601280a@phx.gbl...
Je voudrais mettre en rouge les éléments d'une liste sous
certaines conditions et ça ne va pas...
iItem = Liste0.ListCount
For iItem = 1 To iItem - 1
If Liste0.Column(0) = Vrai Then
Liste0.ForeColor = 255
Else
Liste0.ForeColor = 0
End If
Next iItem
msgBox "Le total est de " & iItem
Dim iItem as integer ' Ca ne mange pas de pain de savoir a quoi on a affaire. ' iItem = Liste0.ListCount ' For iItem = 1 To iItem - 1 ' C'est un peu bete de lui faire prendre la valeur .ListCount, puis 1 sans rien au milieu... For iItem = 1 to Liste0.ListCount If Liste0.Column(0) = True Then Liste0.ForeColor = 255 Else Liste0.ForeColor = 0 End If Next iItem ' et c'est la qu'on se rend compte que ca ne sert a rien: la propriete de la liste toute entiere change a chaque ligne.
msgBox "Le total est de " & iItem
End Sub
Il n'est pas possible d'avoir des lignes de differentes couleurs avec la liste standard d'Access...
Bonne continuation quand meme.
-- Daniel :-)
Computing Technologies International - www.computing-tech.com - We provide solutions...
"Serge" wrote in message news:463c01c3760b$ae51cc60$ Je voudrais mettre en rouge les éléments d'une liste sous certaines conditions et ça ne va pas...
iItem = Liste0.ListCount For iItem = 1 To iItem - 1 If Liste0.Column(0) = Vrai Then Liste0.ForeColor = 255 Else Liste0.ForeColor = 0 End If Next iItem msgBox "Le total est de " & iItem
