Discussion :

[ayms75]

Bonjour à tous,

J'ai effectué une maccro qui est censé colorer toute les lignes de 3 à jusqu'à la dernière valeur et de la colonne A3 à W.End(xlDown).Row quand il y a "N" dans la cellule i,23
Mais ça me colore que les lignes 3 et 4, voici mon code, identifiez vous une erreur?

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
Sub O_ou_N()
 
 
 
lignemax1 = Range("A3").End(xlDown).Row
 
 For i = 3 To lignemax1
 
 Sheets("HISTORIQUE NEGOCIATIONS").Activate
 
            If Cells(i, 23).Value = "N" Then
 
                 Range(Cells(i, 1), Cells(i, 23)).Select
 
                        With Selection.Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .ThemeColor = xlThemeColorAccent3
                            .TintAndShade = 0.599993896298105
                            .PatternTintAndShade = 0
                        End With
 
            End If
 Next i
 
End Sub

[Invité]

bonjour,
test ça!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub O_ou_N()
lignemax1 = Sheets("HISTORIQUE NEGOCIATIONS").Range("A" & Cells.Rows.Count).End(xlUp).Row
 For i = 3 To lignemax1
             If UCase(Trim("" & Sheets("HISTORIQUE NEGOCIATIONS").Cells(i, 23).Value)) = "N" Then
                         With Sheets("HISTORIQUE NEGOCIATIONS").Range(Sheets("HISTORIQUE NEGOCIATIONS").Cells(i, 1), Sheets("HISTORIQUE NEGOCIATIONS").Cells(i, 23)).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .ThemeColor = xlThemeColorAccent3
                            .TintAndShade = 0.599993896298105
                            .PatternTintAndShade = 0
                        End With
             End If
 Next i
End Sub

[ayms75]

Merci rdurupt, ça marche parfaitement. Maintenant je dois faire autre chose tu pourras peut etre m'aider, c'est que la maccro se déclenche que si on modifie cells i,23, pour qu'elle se déclenche automatiquement, je sais que c'est dans Private Sub Worksheet_selectionChange(ByVal Target As Range) mais quand je lance, une fenetre s'ouvre avec toutes les maccros, peux tu m'aider?

Private Sub Worksheet_selectionChange(ByVal Target As Range)

Code :

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

1
2
3
4
5
6
7
If Not Intersect(Target, Range("w:w").End(xlDown).Row) Is Nothing Then
 
    Call O_ou_N
 
    End If
 
End Sub

[Invité]

dans ce cas, dans ton projet double click sur la feuille "HISTORIQUE NEGOCIATIONS" et copy ce code!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 23 And UCase(Trim("" & Target.Value)) = "N" Then
    With ActiveSheet.Range(ActiveSheet.Cells(Target.Row, 1), Target).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent3
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
End If
End Sub

[ayms75]

Là c'est parfait, merci rdurupt