Colorer une ligne et fonction du choix dans un combobox

  • Initiateur de la discussion Initiateur de la discussion lanoe
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lanoe

XLDnaute Occasionnel
Bonjour le forum,

Dans le principe, je recherche le travail réalisé par une « mise en forme conditionnelle ». Mais le nombre de condition étant limité, je souhaite savoir si en fonction du choix réalisé dans un combobox (en l’occurrence le combobox8 dans la piece jointe) l’ensemble de la ligne peux se coloriser d’une couleur ou d’une autres (dans l’idéale 6 choix possible).

Pour comprendre piece jointe.

Merci d’avance
Lanoe
 

Pièces jointes

Re : Colorer une ligne et fonction du choix dans un combobox

bonsoir Lanoe,

Une piste,

Dans ton fichier tu as une zone 'Travail' dans les cellules de droite tu peux mettre les index des couleusr que tu désires pour chaque choix. Et en fonction du choix de ta Combobox tu pourras facilement trouver la couleur correspondante dans la feuille. Tu peux aussi charger ta combo avec en colonne cachée, les colorIndex idoines et les retrouver facilement à partir de là.

A bientôt
 
Re : Colorer une ligne et fonction du choix dans un combobox

Bonjour,

Pour des personnes recherchant une réponse à ma question, une solution:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Then
Dim Couleur As Integer, I As Integer, R As Long
R = Target.Row
Select Case UCase(Target)
Case "A": Couleur = 4
Case "B": Couleur = 5
Case "C": Couleur = 6
Case "D": Couleur = 45
Case "E": Couleur = 3
Case "HS": Couleur = 2
Case Else: Couleur = 0
End Select
For I = 1 To 13
Cells(R, I).Interior.ColorIndex = Couleur
Next
End If
End Sub

Lanoe
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
36
Affichages
3 K
Retour