Discussion :

[Free94]

Bonjour tout le monde

J'ai actuellement dans une feuille un ensemble de plages nommées, chacune contenant plusieurs colonnes (et lignes).

Je souhaite faire une fonction vba qui permet de changer le fond de toute la ligne incluse dans la plage nommée dans laquelle j'ai cliqué.

Exemple ma plage nommée recette qui contient en première colonne la liste des noms de recette, en seconde colonne une note pour cette recette. Je veux lorsque je clique sur n'importe quelle cellule de cette plage "recette" que la cellule du nom de la recette ET de la colonne note aient un fond jaune -> l'intersection de Target.EntireRow et de la plage Recette

J'ai fait ma fonction justement et ça "marche" plus ou moins. ça ne marche simplement pas quand une mise en forme conditionnelle est présente et active ... Actuellement j'ai une mise en forme cond sur l'ensemble de ma plage nommée recette qui me permet de colorer une ligne sur deux. Donc ... ma fonction me permet de surligner au clique les lignes non colorées par la mise en forme conditionnelles

Comment faire, pour que mon "Cell.Interior.ColorIndex =" soit effectif malgré la présence d'une mise en forme cond. sur cette cellule ?

Par avance merci

Free.

[Theze]

Bonjour,

Tu peux tester si tu as la MFC qui s'applique sur la cellule sélectionnée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim Plage As Range
 
    Set Plage = Range("Recettes")
 
    If Intersect(Target, Plage) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
 
    If Target.Row Mod 2 Then MsgBox "MFC !"
 
End Sub

Mais comme la MFC prime sur la coloration par VBA tu n'as pas le choix que d'appliquer autre chose, bordures, etc...
Un exemple, à adapter bien sûr :

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
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim Plage As Range
    Dim I As Integer
 
    Set Plage = Range("Recettes")
 
    If Intersect(Target, Plage) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
 
    Plage.Interior.ColorIndex = 0
 
    For I = 1 To Plage.Count
        Plage(I).Borders(xlEdgeLeft).LineStyle = xlNone
        Plage(I).Borders(xlEdgeRight).LineStyle = xlNone
        Plage(I).Borders(xlEdgeTop).LineStyle = xlNone
        Plage(I).Borders(xlEdgeBottom).LineStyle = xlNone
    Next I
 
    With Range(Target, Target.Offset(, 1))
        If Target.Row Mod 2 Then .BorderAround , xlMedium, 3 Else .Interior.ColorIndex = 3
    End With
 
End Sub

[Free94]

Bonjour,
Mais comme la MFC prime sur la coloration par VBA tu n'as pas le choix que d'appliquer autre chose, bordures, etc...
Un exemple, à adapter bien sûr :

OH noooooon

L'idée des bordures est pas mal je pense que la mise en relief est suffisante en effet ...

Je prends ! Merci beaucoup pour ton aide

Free94.

[Menhir]

Le format MFC prime sur le format local.
La seule solution serait donc de modifier la zone d'application de ta MFC mais ce serait sans doute assez compliqué.