Colorer une case avec un résultat de listbox et checkBox
Résolu
drumer57
Messages postés
78
Statut
Membre
-
drumer57 Messages postés 78 Statut Membre -
drumer57 Messages postés 78 Statut Membre -
Bonjour,
Je cherche à colorer une ligne par rapport à ma liste box.
C'est a dire que j'ai un userforme dont à l'interieur il se comoporte d'une comboBox dont j'ai une liste qui est selectionné, puis une ListBox qui est allimentée par la combobox par dictionnary etc). Le seul probleme, maintenant c'est que j'aimerais , quand je clique sur la checkbox, que la ligne correspondant à la ligne choisi dans la ListBox se colorie dans le tableau. C'est n'est pas des données numérique que du texte et ce n'est pas des cellules fixes, donc je n'ai pas trouvé de sujet traitant cette afaire encore.
Merci
Je cherche à colorer une ligne par rapport à ma liste box.
C'est a dire que j'ai un userforme dont à l'interieur il se comoporte d'une comboBox dont j'ai une liste qui est selectionné, puis une ListBox qui est allimentée par la combobox par dictionnary etc). Le seul probleme, maintenant c'est que j'aimerais , quand je clique sur la checkbox, que la ligne correspondant à la ligne choisi dans la ListBox se colorie dans le tableau. C'est n'est pas des données numérique que du texte et ce n'est pas des cellules fixes, donc je n'ai pas trouvé de sujet traitant cette afaire encore.
Merci
A voir également:
- Colorer une case avec un résultat de listbox et checkBox
- Resultat foot - Télécharger - Vie quotidienne
- Comment colorer une cellule excel avec une formule si - Guide
- Lexer resultat - Télécharger - Sport
- Aller à la ligne dans une case excel - Guide
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule ✓ - Forum Excel
16 réponses
Voilà un exemple. Je n'ai pas activé le bouton "validé" mais apres c'est un truc rapide. donc voilà
https://www.cjoint.com/?DKzor15Aglc
https://www.cjoint.com/?DKzor15Aglc
Bonjour Drumer, bonjour le forum,
Ton fichier modifié avec le code commenté :
https://www.cjoint.com/?DKzp7zBjycT
Ton fichier modifié avec le code commenté :
https://www.cjoint.com/?DKzp7zBjycT
C'est parfait ca marche ! par contre j'ai rien compris au code mais je vais essayer d'y comprendre un peu mieu
Merci Beaucoup !
Merci Beaucoup !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour Drumer, bonjour le forum,
J'ai oublié de te dire, tu peux aussi double-cliquer dans la ListBox1 et supprimer la CheckBox1...
Pour le code j'ai utilisé un tableau TC en tant que variable. Ça va pratiquement aussi vite de boucle dessus que de faire un Find...
J'ai oublié de te dire, tu peux aussi double-cliquer dans la ListBox1 et supprimer la CheckBox1...
Pour le code j'ai utilisé un tableau TC en tant que variable. Ça va pratiquement aussi vite de boucle dessus que de faire un Find...
Bonsoir Drumer, bonsoir le forum,
je n'ai plus ton fichier sous les yeux mais il suffit de supprimer les lignes qui contiennent : Cells.Interior.ColorIndex = xlNone.
je n'ai plus ton fichier sous les yeux mais il suffit de supprimer les lignes qui contiennent : Cells.Interior.ColorIndex = xlNone.
Bonjour ThauTheme,
Ca marche super bien ,sauf que quand j'essaye d'integrer le programme dans le mien, ca ne marche pas il bloque sur :
Ca marche super bien ,sauf que quand j'essaye d'integrer le programme dans le mien, ca ne marche pas il bloque sur :
Application.Goto O.Cells(LI,1) 'sélectionne la cellule ligne Li, colonne 1 de l'onglet O
Bonjour Drumer, bonjour le forum,
J'ai mis cette ligne pensant que tu voulais peut-être sélectionner la ligne. Si ce n'est pas le cas et que la couleur te suffit, supprime-la.
Je suis étonné que tu ne l'ai pas testé avant, sinon ça sert à quoi que je commente les codes...
J'ai mis cette ligne pensant que tu voulais peut-être sélectionner la ligne. Si ce n'est pas le cas et que la couleur te suffit, supprime-la.
Je suis étonné que tu ne l'ai pas testé avant, sinon ça sert à quoi que je commente les codes...
Dans mon post précendent je te disait :
J'ai mis cette ligne pensant que tu voulais peut-être sélectionner la ligne. Si ce n'est pas le cas et que la couleur te suffit, supprime-la.
J'ai mis cette ligne pensant que tu voulais peut-être sélectionner la ligne. Si ce n'est pas le cas et que la couleur te suffit, supprime-la.
est bon j'ai compris, ca marche. Petit soucis une dernière fois, il me surligne la 3e ligne. J'essaye de changer le
LI = Me.ListBox1.Column (3, me.ListBox1.ListIndex)en echangeant le 3 par 9 debut de mon tableau et ca ne marche pas si non il trouve la bonne ligne etc juste qui me surligne un peu trop haut au niveau des lignes
Bonjour Drumer, bonjour le forum,
Surtout ne pas changer le 3 qui ne correspond pas à la première ligne du tableau mais à la quatrième colonne de la ListBox1. Je ne comprends pas pourquoi ça plante chez toi, chez moi ça fonctionne.
Au pire renvoie-moi le bon fichier et j'adapterai...
Surtout ne pas changer le 3 qui ne correspond pas à la première ligne du tableau mais à la quatrième colonne de la ListBox1. Je ne comprends pas pourquoi ça plante chez toi, chez moi ça fonctionne.
Au pire renvoie-moi le bon fichier et j'adapterai...
Bonjour ,
voila le fichier. Le code c'est un espace et l'utilisateur un espace aussi. La page demandé c'est "partothèque_modif"
merci beaucoup
voila le fichier. Le code c'est un espace et l'utilisateur un espace aussi. La page demandé c'est "partothèque_modif"
merci beaucoup
Bonjour Drumer, bonjour le forum,
Les modifications à faire :
* propriété [ColumnCount] de la Listbox1 de l'userform "Sortie" = 4
* proriété [ColumnWidths] de la même = "0 pt;0 pt;;0 pt"
* dans le code "ComboBox1_Change()" :
.Column(3, .ListCount - 1) = I + 8 (pour commencer à la 9ième ligne du tableau)
* dans le code ListBox1_DblClick et dans le code CheckBox1_Click :
LI = CInt(Me.ListBox1.Column(3, Me.ListBox1.ListIndex)) 'définit la ligne LI
sinon LI est une variable texte et ça plante...
Les modifications à faire :
* propriété [ColumnCount] de la Listbox1 de l'userform "Sortie" = 4
* proriété [ColumnWidths] de la même = "0 pt;0 pt;;0 pt"
* dans le code "ComboBox1_Change()" :
.Column(3, .ListCount - 1) = I + 8 (pour commencer à la 9ième ligne du tableau)
* dans le code ListBox1_DblClick et dans le code CheckBox1_Click :
LI = CInt(Me.ListBox1.Column(3, Me.ListBox1.ListIndex)) 'définit la ligne LI
sinon LI est une variable texte et ça plante...