Discussion :

[Leilou65]

Bonjour à tous,

Je me permets de vous écrire car j'ai un problème avec ma macro.
Je souhaite mettre une couleur différente pour les cellules sous.total étant supérieur à un seuil, sauf qu'elle ne fonctionne qu'une fois sur deux.

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
Sub test()
 
       Dim Cell As Range
 
    irow = Worksheets("Quid").Cells(Rows.Count, 1).End(xlUp).Row
 
    For Each Cell In Range("N1:N" & irow)
 
        If Cell.HasFormula And InStr(1, Cell.Formula, "SOUS.TOTAL", vbTextCompare) > 0 Then
        Cell.Interior.ColorIndex = 6
        End If
 
    Next
 
End Sub

Merci pour votre aide.

[joe.levrai]

Bonjour,

qu'entends-tu par "une fois sur deux" ? Ca loupe des lignes ou parfois tu lances la procédure et rien ne se passe ?
Car je vois que tu travailles sur la plage de la feuille active ici :

Code :

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

For Each Cell In Range("N1:N" & irow)

Range n'étant pas rattachée à une quelconque feuille nommée


Ensuite, tu parles d'une notion de seuil, or à part tester si la formule de ta cellule contient "SOUS.TOTAL", il n'y a aucune condition liée au résultat de la formule

[Leilou65]

Oui j'execute la macro sur la feuille active.
En fait c'est en changeant quelques variables qu'elle fonctionne.
Je m'explique en mettant = 0 à la place de > 0 elle fonctionne.

Tu dis qu'il n'y a pas de condition à part sous.total ?
N'est ce pas une condition le "> 0" ?

Merci à toi.

[joe.levrai]

le ">0" est une condition liée à la fonction Instr()

Code :

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

InStr(1, Cell.Formula, "SOUS.TOTAL", vbTextCompare) > 0

Instr() > 0 signifie que ta formule contient bien "SOUS.TOTAL" ... et uniquement ça

Elle ne va pas vérifier le résultat de cette formule, il faut pour cela ajouter un nouveau test pour tester la valeur (.Value) de ton Cell

[Leilou65]

J'ai donc rajouré une condition sur le Celle avec :

Code :

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

        If Cell.HasFormula And InStr(1, Cell.Formula, "SOUS.TOTAL", vbTextCompare) = 0 And Cell.Value > 300 Then

Mais aucun résultat.

En fait après plusieurs tests j'ai constaté que la macro fonctionne si les 3 niveaux des cellules sont affichés par contres si je sélectionne seulement le niveau 2 la macro ne fonctionne pas.
Je ne sais pas si j'ai raté quelque chose dans le code.

[zenpbb]

Bonjour,
Deux pistes :
1. Mise en Forme Conditionnelle (pas besoin de VBA
2. En VBA, remplacer SOUS.TOTAL par SUBTOTAL, ou utiliser la propriété FormulaLocal plutôt que Formula

[Leilou65]

Oui j'ai essayé la mise en forme conditionnelle mais du coup on peut seulement jouer sur la valeur de la cellule et non sur le contenu "sous.total".