Discussion :

[martinou38]

Bonjour,

Je prépare pour une utilisation professionnelle un document me permettant de chiffrer des projets.
Ce document renferme plusieurs colonnes, dont une qui donne le choix du statut du chiffrage, via une liste déroulante dont les données sont dans un onglet "back-office".

En fonction du choix de statut (officiel, en cours, estimé, autre), j'aimerais affecter une couleur à l'ensemble de la ligne de mon tableau (cf image attachée, réalisée en MFC classique).
Je pourrais utiliser les MFC simplement, mais j'ai besoin de:
- gagner du temps (pas envie de faire 4 x MFC par ligne)
- rendre autonome le système (= pouvoir ajouter des lignes dans mon tableau et que tout fonctionne encore)

Ainsi, j'aimerais passer sur un code VBA, qui me semble être la meilleure option.
J'ai pas mal cherché sur le web des tuto, et malgré quelques trouvailles, je n'arrives pas à m'en sortir.

Quelqu'un pourrait donc m'aider à me mettre sur le bonne piste ?
Je précise que je suis débutant en VBA mais que j'ai quelques notions quand même

Merci

[Invité]

Bonjour,

J'avais répondu à un message en décembre 2015 dont je ne me souviens plus la référence mais basé sur le même principe. Là, il s'agit de colorer des cellules en fonction de couples Machine-Référence.

Le code ne correspond pas directement à votre problématique mais il peut vous donner des idées sur la méthode.

Il pourrait être amélioré en y ajoutant une procédure événementielle en fonction de la position des devis.

Pièce jointe 231782

Cordialement.

[martinou38]

Merci pour votre retour !

En fait, si j'ai bien compris, je dois passer par un "Private Sub xxxx_Change(ByVal Target As Range)"
J'ai compris que "Target" désignait la/les cellule(s) qui avait été changée(s).

Je comptais faire quelque chose de la sorte, en langage non VBA:

si contenu de la cible = "estimé" alors la plage de la colonne X à Y, de la ligne de la cible sont colorées en RGB (X, X, X)

J'ai écrit un bout de code sur ce principe mais cela ne fonctionne pas.
Je ne sais pas si mon problème vient du déclenchement du xxx_Change ou du fait que je cherche à sortir une information texte ("en cours" par exemple) de la variable Target qui est un Range.

[Invité]

A qui répondez-vous ? Utilisez Répondre avec citation et supprimez les informations inutiles.
Quel est votre code ?

Cordialement.

[martinou38]

A vous
J'ai ça en stock, qui je pense est plein d'erreurs...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub cout_produit_Change(ByVal Target As Range)
 
Dim i As Integer
 
i = 14
 
    For i = 14 To i = 100
        If Range("O" & i).Value = "estimé" Then Columns("C:S").Rows(i).Interior.Color = RGB(237, 127, 16)
        If Range("O" & i).Value = "en cours" Then Columns("C:S").Rows(i).Color = RGB(255, 0, 0)
        If Range("O" & i).Value = "officiel" Then Columns("C:S").Rows(i).Color = RGB(22, 184, 78)
        If Range("O" & i).Value = "PMI" Then Columns("C:S").Rows(i).Color = RGB(22, 184, 78)
    Next i
 
End Sub

[Invité]

Dans le module de votre onglet cout_produit, essayez ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
 Dim AireLigneDevis As Range
 
     If Target.Count > 1 Then Exit Sub
 
     If Not Intersect(Target, Range("O14:O100")) Is Nothing Then
        With ActiveSheet
             Set AireLigneDevis = .Range(.Cells(Target.Row, 3), .Cells(Target.Row, 19))
             With AireLigneDevis
                  Select Case Target
                         Case "estimé"
                              .Interior.Color = RGB(237, 127, 16)
                         Case "en cours"
                              .Interior.Color = RGB(255, 0, 0)
                         Case "officiel"
                              .Interior.Color = RGB(22, 184, 78)
                         Case "PMI"
                             .Interior.Color = RGB(22, 184, 78)
                 End Select
                 Set AireLigneDevis = Nothing
            End With
       End With
    End If
 
End Sub

Cordialement.

[Menhir]

J'ai bien essayé de supprimer les $ mais le résultat ne me satisfait pas.

Laisse les $ dans la zone décrite dans le champ "S'applique à".

Dans les condition, mettre une formule en gardant un $ pour la colonne mais pas de $ pour la ligne.
Quelque chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=($O14="estimé")

J'ai ça en stock, qui je pense est plein d'erreurs...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub cout_produit_Change(ByVal Target As Range)
Dim CC As Color
 
If Target.Column <> 15 Then Exit Sub
 
Select Case Target.Value
Case "estimé"
    CC = RGB(237, 127, 16)
Case "estimé"
    CC = RGB(237, 127, 16)
Case "en cours"
    CC = RGB(255, 0, 0)
Case "officiel"
    CC = RGB(22, 184, 78)
Case Else
    CC = RGB(255, 255, 255)
End Select
 
Range("C" & Target.Row & ":S" & Target.Row).Interior.Color = CC
 
End Sub

[Menhir]

Je pourrais utiliser les MFC simplement, mais j'ai besoin de:
- gagner du temps (pas envie de faire 4 x MFC par ligne)
- rendre autonome le système (= pouvoir ajouter des lignes dans mon tableau et que tout fonctionne encore)

Pourquoi "par ligne" ?
Quand on fait une MFC, il est possible de l'appliquer à une zone (donc plusieurs lignes) en mettant la référence de ligne en référence variable (sans $).
Voir Mise en Forme conditionnelle > Gérer les règles > Champ "S'applique à".

[martinou38]

Pourquoi "par ligne" ?
Quand on fait une MFC, il est possible de l'appliquer à une zone (donc plusieurs lignes) en mettant la référence de ligne en référence variable (sans $).
Voir Mise en Forme conditionnelle > Gérer les règles > Champ "S'applique à".

Sauf que je souhaite avoir une couleur par ligne en fonction de la valeur de la liste déroulante.
J'ai bien essayé de supprimer les $ mais le résultat ne me satisfait pas.

Si je supprime les $ dans "s’applique à ", je colore toutes les cellules du champ sélectionné.
Et lorsque je supprime les $ dans ma formule, XL me les remet automatiquement.