[RESOLU]Interior.color suivant résultat

[nrdz83]

Bonjour à tous

Dans un userform via des options boutons je saisie les données par ce code

.Cells(DerLig, 15).Value = Dispo

Les options possible sont "Disponible" et "Indisponible"

je cherche à adapter à ce code si:
"Disponible" interior.color =43
"Indisponible"interior.color=46

Par avance merci pour votre aide.

Amitiés

 

[jpb388]

Re : Interior.color suivant résultat

Bonjour à tous

as tu essayé

.Cells(DerLig, 15).interior.colorindex=iif(.Cells(DerLig, 15).Value ="Disponible",43,46)

 

[gilbert_RGI]

Re : Interior.color suivant résultat

Bonjour

le iff ne serait-il pas IIf ? 😎

et peut-être remplacer Color par ColorIndex 🙄

 

[jpb388]

Re : Interior.color suivant résultat

re
merci gilbert_RGI j'ai fait la rectification

 

[nrdz83]

Re : Interior.color suivant résultat

Bonjour jpb388, gilbert_RGI

merci pour votre aide sur vos propositions j'ai donc mis ce code

.Cells(DerLig, 15).Interior.ColorIndex = IIf(.Cells(DerLig, 15).Value = "Disponible", 43, 46)

ça me met en couleur orange (46), mais n'y Disponible d'affiché n'y Indisponible.

Merci pour votre aide

amitiés

 

[jpb388]

Re : Interior.color suivant résultat

re

.Cells(DerLig, 15).Value = Dispo

pour moi Dispo était une variable représentant "Disponible" ou "Indisponible" selon le cas

met nous ton fichier

 

[nrdz83]

Re : Interior.color suivant résultat

Bonsoir jpb388

oui désolé j'avais la tête dans le guidon et du coup je n'ai pas pensé à détailler plus ma demande

j'ai adapté un exemple de ma demande dans mon exemple Derlig,15 est remplacé par Derlig,3

merci par avance

 

[jpb388]

Re : Interior.color suivant résultat

re
le problème venait de la caption des Options il y a un espace avant le Disponible et Indisponible

 

[nrdz83]

Re : Interior.color suivant résultat

Bonsoir jpb388

super pour tout pour ton code et surtout pour l'erreur trouvé l'espace avec le Disponible et Indisponible.

Voila pourquoi je n'arrivais pas à faire une MFC classique dans excel.

Encore merci pour tout amitiés