Problème macro sous.total

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:

---

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.

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:

---

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

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.

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

Code:

---

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

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

Code:

---

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.

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

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".