Discussion :

[sbobi]

Bonjour,

Je dispose d'un tableau. Dans la colonne M de ce tableau, toutes les cellules de cette colonne sont des listes avec plusieurs choix:
Soldée, En cours, Annulée, En attente, A lancer.
L'idée est que, pour chaque choix je veux colorier la ligne associée à la cellule.

Voici le code dont je dispose:

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
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("$M$4:$M$65536")) Is Nothing Then
        Select Case Target.Value
            Case "Soldée"
                Rows(Target.Row).Interior.ColorIndex = 3
            Case "En cours"
                Rows(Target.Row).Interior.ColorIndex = 5
            Case "Annulée"
                Rows(Target.Row).Interior.ColorIndex = 7
            Case "En attente"
                Rows(Target.Row).Interior.ColorIndex = 9
            Case "A lancer"
                Rows(Target.Row).Interior.ColorIndex = 11
        End Select
    End If
 
End Sub

J'ai mis ce code dans la feuille où sont placées les listes de choix mais la macro ne s’exécute pas .

Des idées?

[halaster08]

Bonjour,

Pourquoi ne pas faire une mise en forme conditionnelle ?

[sbobi]

Question de choix, j'aurais voulus rester avec VBA.. Je vais quand même surement passer par la mise en forme conditionnelle.

Ceci étant dit, des erreurs au niveau de mon code ?

[halaster08]

Question de choix, j'aurais voulus rester avec VBA.. Je vais quand même surement passer par la mise en forme conditionnelle.

Ceci étant dit, des erreurs au niveau de mon code ?

Je ne vois pas d'erreur flagrante au niveau de ton code.

Tu sais que tu peux aussi programmer la MFC via vba ? Pourquoi vouloir bricoler un code alors qu'il existe une fonctionnalité native d'Excel qui fait la même chose

[Menhir]

J'ai mis ce code dans la feuille où sont placées les listes de choix mais la macro ne s’exécute pas .
Des idées?

Es-tu sûr que la macro ne s'exécute pas ?
La première chose à identifier, c'est l'élément qui ne fonctionne pas. Il peut y en avoir plusieurs dans cette macro : l'évènement, le If, le Case, etc.
Donc mettre des Debug.Print (ou des MsgBox) à divers endroits, voir même faire un fonctionnement en pas à pas, pour localiser le problème.