XL 2010 Combobox avec couleur

Mimi

XLDnaute Occasionnel

• 23 Octobre 2019

• #2

Bonjour,
Private Sub ComboBox1_Change()
SendKeys "{RIGHT}"
Select Case Me.ComboBox1.Value
Case "oui"
Me.ComboBox1.BackColor = RGB(0, 160, 0)
Case "non"
Me.ComboBox1.BackColor = RGB(192, 0, 0)
End Select
End Sub

 

Vote positif 0 Vote négatif

D

Dydou76

XLDnaute Occasionnel

• 23 Octobre 2019

• #3

Bonjour Mimi

Merci pour ta reponse rapide. Mais il ne vas pas dans la deuximeme colonne "B" pour savoir si c'est oui ou non ?

 

Pièces jointes

• test1.xlsm

  19.2 KB · Affichages: 6

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 23 Octobre 2019

• #4

Bonjour,

Effectivement ça ne me semble pas suffisant. Je pense qu'il faut ici passer par une fonction VLookup et allez chercher la valeur de la combobox dans ta liste de nom et retourner la valeur associée (oui ou non) et ainsi attribuer la couleur.

Bonne continuation

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 23 Octobre 2019

• #5

Voir ci-joint un exemple.

Bonne continuation

 

Pièces jointes

• test1.xlsm

  21.3 KB · Affichages: 13

Vote positif 0 Vote négatif

D

Dydou76

XLDnaute Occasionnel

• 23 Octobre 2019

• #6

Merci beaucoup ça fonctionne bien sur l'exemple mais pas sur mon fichier original, faut que je recherche le pourquoi lol

 

Vote positif 0 Vote négatif

D

Dydou76

XLDnaute Occasionnel

• 23 Octobre 2019

• #7

ahh il faut peux être que je dise sur quel feuille se trouve la cellule A1 et B ?

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 24 Octobre 2019

• #8

Euh y a aucune raison pour que ça ne fonctionne pas a priori, as tu d'autres macro sur ton document ? Il est structuré pareil que le fichier exemple ?

 

Vote positif 0 Vote négatif

D

Dydou76

XLDnaute Occasionnel

• 24 Octobre 2019

• #9

Bonjour,
oui il y a d'autre combobox et des textbox ect.. sur l'userform je te le met en pièces jointe de toute façon il y a pour le moment aucune info derangeante c'est pour mon boulo.

 

Pièces jointes

• test2.xlsm

  291.1 KB · Affichages: 5

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 24 Octobre 2019

• #10

Re,

Voici la version corrigée.
Le problème était que j'ai codé avec un fichier d'une seule feuille, donc il allait chercher les infos sur la feuille active (pas celles où il y a les informations du coup dans le cas de ton application). Bref ça fonctionne maintenant.

Ah et aussi, j'ai échangé les "oui" et "non", car j'imagine que quand c'est oui ça doit être vert, et quand c'est non ça doit être rouge ? (c'était l'inverse dans la macro).

Bonne continuation

 

Pièces jointes

• test2.xlsm

  291.9 KB · Affichages: 10

Vote positif 0 Vote négatif

D

Dydou76

XLDnaute Occasionnel

• 24 Octobre 2019

• #11

Youpiiiii ça marche Mille MERCI !!!
pour info c'est bien l'inverse pour les couleurs, c'est rouge quand c'est "oui"(c'est pour mettre en évidence le produit dangereux donc en rouge) et quand c'est vert, le produit n'est pas dangereux.
Voila j'airai probablement encore besoin d'aide (je suis novice mais j'adore créer des petit programme) donc tu risque de me revoir ici lol
Encore Merci et peux être a bientôt lol

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 24 Octobre 2019

• #12

Ah autant pour moi, eh bien je te laisse échanger les couleurs alors.

Je t'en prie, reviens nous voir quand tu t'ennuieras ! 😉

Bonne continuation

 

Vote positif 0 Vote négatif

D

Dydou76

XLDnaute Occasionnel

• 24 Octobre 2019

• #13

ca y ai je m'ennui déjà lol quand je valide un nom dans l'userform et qui renseigne la cellule A2, j'aimerai que l'heure se mettre en cellule C2 (début du contrôle).

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 24 Octobre 2019

• #14

Re,

Comme ceci ?

Bonne continuation

 

Pièces jointes

• test2.xlsm

  292.8 KB · Affichages: 12

Vote positif 0 Vote négatif

D

Dydou76

XLDnaute Occasionnel

• 24 Octobre 2019

• #15

oui tres bien juste a ajouter l'heure dans la textbox de l'userforme lol merci encore

 

Vote positif 0 Vote négatif