Discussion :

[facteur]

Bonjour,

J'ai un fichier excel qui contient plusieurs onglets dont l'un est intitule "donnees".
Cet onglet "donnees" contient un TCD de 5 colonnes.
La colonne E (5ieme colonne) contient des chiffres positifs et negatifs.
La premiere cellule du tableau E commence en E6 et la fin du tableau varie de jour en jour.
Je souhaiterais que,
des que j'ouvre cet onglet, seules les lignes du tableau dont les valeurs sont negatifs dans la colonne E se colorient en rouge.

Je sais que je dois realiser une fonction evenementielle avec la fonction

Code :

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

Private Sub Worksheet_Activate()

Mais je ne sais pas ecrire la suite.
Pourriez vous m'aider.
Merci

[tarnx]

Un petit truc comme ça devrait pouvoir le faire.

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
 
Dim IntNbRow  as Integer
Dim intCpt as Integer
 
    ' On Compte le nombre de lignes du TcD
Range("E6").Select
Range(Selection, Selection.End(xlDown)).Select
IntNbRow = Selection.CurrentRegion.Rows.Count
 
    ' On parcours la colonne
For intCpt = 1 to IntNbRow
          'Si la valeur est négative
     If Range("E" & intCpt).Value < 0 then
             'On met en rouge
        With  Range("E" & intCpt).Interior
             .ColorIndex = 3
             .Pattern = xlSolid
         End With
     End If
Next

[facteur]

Bonjour Tarnx,

Merci pour cette reponse qui fonctionne trés bien.
Mais j'aurais souhaité que la ligne allant de B à E soit rouge et non pas seulement la cellule E qui contient la valeur négative.
Par exemple, si E7 = -9 alors la ligne allant de B7 à E7 soit rouge et non pas uniquement E7.

[ESVBA]

Je me permets d'intervenir.

donc si la valeur de la cellule en "Ex" est négative, on selectionne les cellules de "Bx:Ex" que l'on colorie.

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
Dim IntNbRow  as Integer
Dim intCpt as Integer
 
    ' On Compte le nombre de lignes du TcD
Range("E6").Select
Range(Selection, Selection.End(xlDown)).Select
IntNbRow = Selection.CurrentRegion.Rows.Count
 
    ' On parcours la colonne
For intCpt = 1 to IntNbRow
          'Si la valeur est négative
     If Range("E" & intCpt).Value < 0 then             'On met en rouge
        With  Range("B" & intCpt & ":E" & intCpt).Interior   '<<<< ICI de Bx à Ex
             .ColorIndex = 3
             .Pattern = xlSolid
         End With
     End If
Next

Pardon, je n'avais pas vu que tu étais là Tarnx.

ESVBA

[tarnx]

Il suffit de changer cette ligne :

Code :

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

With  Range("E" & intCpt).Interior

Par :

Code :

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

With  Range("B" & intCpt & ":E" & intCpt).Interior

Edit : Devancé, mais au moins nos avis concordent.

[facteur]

Merci Tarnx pour cette reponse et également merci à ESVBA.
Mais, j'ai encore une dernière question :
Actuellement, lorsque je réactualise mon TCD, et si la cellule Ex,qui était négative donc la ligne Bx à Ex colorié en rouge, devient positive, la ligne reste toujours en rouge . Alors que je souhaiterais que la couleur disparait car Ex est devenue postive.

Comment inserer dans ce module une autre condition qui dirait : " Si la cellule Ex est négative alors la ligne allant de Bx à Ex se colorie en rouge sinon pas de colorie".

[tarnx]

Il suffit de modifier la conditionnelle de cette façon.

Code :

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

1
2
3
4
5
6
7
8
If Range("E" & intCpt).Value < 0 then             
      With  Range("B" & intCpt & ":E" & intCpt).Interior   
           .ColorIndex = 3
           .Pattern = xlSolid
       End With
Else
       Range("B" & intCpt & ":E" & intCpt).Interior.ColorIndex = xlNone
End If

[facteur]

Merci encore tarnx pour ton aide
Des mardi (et oui, lundi je suis en RTT, je test ton super programme.