Discussion :

[Leilou65]

Bonjour le forum,

J'ai déjà posté une discussion sur ce sujet mais la il y a une variable en plus à prendre en compte.

En fait la macro me permet de sélectionner des donnée en fonction de leur somme et de colorer le tout.
Voila donc ce que la macro fait je lui demande de sélectionner des lignes ayant un total > à 10 :


Sauf que moi je voudrai qu'elle me sélectionne des lignes ayant le total > à 10 mais aussi il faut qu'un des nombre à l'intérieur soit négatif et donc je souhaite avoir comme résultat :



Voici le 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
Sub Bouton1_Cliquer()
 
    Dim Cell As Range
    Dim val1 As Long
 
    val1 = 10
    irow = Cells(Rows.Count, 3).End(xlUp).Row
 
    For Each Cell In Worksheets("Feuil1").Range("N2:N" & irow)
        If Cell.HasFormula And InStr(1, Cell.Formula, "SOUS.TOTAL", vbTextCompare) = 0 And Cell.Value > val1 Then
            Range(Cell.Offset(0, -13), Cell).Interior.ColorIndex = 6
 
        For ligne = Cell.Row - 1 To 1 Step -1
            If Cells(ligne, 14).Value < 0 Then
                Range(Cells(ligne, 1), Cells(ligne, 14)).Interior.ColorIndex = 6
            Else
                ligne = 1
            End If
        Next
        End If
    Next
End Sub

Merci à vous tous pour votre aide