Discussion :

[juniortrt]

Bonjour à vous,

Je suis débutant en VBA et je cherche à m'améliorer par la pratique. Malheureusement même avec les tutos que l'on peut trouver sur internet je n'arrive pas à comprendre certaines choses. Même très basique. Alors qu'il y a certaines choses plus compliqués ou je n'ai aucun soucis.

Voila, aujourd'hui j'ai un excel avec des colonnes remplies de nombre (positifs et negatifs). J'aimerai (avec VBA et pas le conditionnal formatting), que tous les chiffres inférieurs à 0 aient un Font Color Red. Et ensuite que les chiffres de chaque colonnes s'additionnent, mais seulement les chiffres en rouge (donc négatif).

Je sais faire ça avec SumIf mais j'aimerai apprendre à le faire avec VBA.


Je vous remercie pour votre aide, et je suis désolé car je sais que ce n'est sans doute pas compliqué du tout.

Julien

Book1.xlsx

[Mr Poulpe]

Bonjour,

Un code dans ce genre (non testé)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub coloriage()
Dim Rng as range
Dim c as variant
 
Set rng = activesheet.range("A1:A10")
 
For each c in rng.cells
    if c.value < 0 then c.font.color = rgb(255,0,0)
next c
End sub

Bien cordialement,

Poulpe

[Theze]

Bonjour,

Un début de piste :

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
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim SousTotal As Double
    Dim TotalMax As Double
 
    Set Plage = Range("A3:A41,E3:E41,I3:I41")
 
    For Each Cel In Plage
 
        If Cel.Value < 0 Then
 
            Cel.Font.ColorIndex = 3
            SousTotal = SousTotal + Cel.Value
            TotalMax = TotalMax + Cel.Value
 
        End If
 
        If Cel.Row = Plage.Row + Plage.Rows.Count - 1 Then Cel.Offset(2).Value = SousTotal: SousTotal = 0
 
    Next Cel
 
    MsgBox TotalMax
 
End Sub