Colorer une case avec un résultat de listbox et checkBox
Résolu
drumer57
Messages postés
77
Date d'inscription
Statut
Membre
Dernière intervention
-
drumer57 Messages postés 77 Date d'inscription Statut Membre Dernière intervention -
drumer57 Messages postés 77 Date d'inscription Statut Membre Dernière intervention -
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
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. - Forum VB / VBA
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...