Bonjour,

avec Excel 2013, j'ai fait des sous-totaux automatiques.

Est-il possible de colorer les lignes (toute la ligne) des totaux uniquement ? (avec une mise en forme conditionnelle ?).

J'ai essayé avec le mot Somme mais ce n'est pas concluant.

Merci et bon dimanche à vous.

Bonjour, met cette macro dans un module et peut être que ça devrait te convenir !

Sub st()

Dim Cell As Range

for Each Cell In Range("C1:C20")

If Cell.HasFormula And InStr(1, Cell.FormulaLocal, "SOUS.TOTAL", vbTextCompare) > 0 Then Cell.Interior.ColorIndex = 4

Next

End Sub

Bonjour dlxpat,

Je vais essayer... mais je ne suis pas très douée avec les macros.

Je fais Alt F11 / this workbook et je colle ta macro ? c'est ça ?

A quoi correspondent C1:C20 dans ton exemple ? tout le tableau ?

Merci.

Bonjour, il faut mettre la macro dans module (comme indiqué dans mon premier message !

Faire Alt F11, Insérer, module et copier la macro

C1:c20 correspond à la colonne où se situent les totaux que tu veux mettre en évidence

Ex colonne A : jour

colonne B : objet

colonne C : montant

Si tu veux faire les sous totaux des montants par objet, tu tries par objet, puis sous-totaux en choisissant montant et tu lances ta macro.

Ta demande n'était pas très précise (et comme d'hab il n'y a pas de fichier joint !!!), voilà pourquoi j'ai du anticiper sur une colonne au hasard (C1 étant le début de la colonne et C20 la fin, à modifier en fonction de ton besoin.

Tu peux aussi t'inspirer de la mise en forme conditionnelle :

Dans le site de boisgontier : http://boisgontierjacques.free.fr/pages_site/mfc.htm#SousTotaux

Regarde la section : Colorier les lignes des sous-totaux:

C'est ce que j'utilise.

Un petit exemple :

Bonjour Gabrilou, Voici ci-dessous mon exemple (bidon) : je voudrais que les lignes où il y a marqué "Somme...." soient colorées. J'ai essayé ce que tu me dis en mettant =GAUCHE($B4;5)="Somme" puisque dans mon tableau il n'est pas indiqué Total mais Somme. Mais ça ne marche pas. J'ai changé $B4 en $B5 mais ça ne marche pas non plus. Je ne sais pas quelle référence il faut mettre. Je ne comprends pas, pourtant le mot Somme est bien en colonne B !

Lien vers une image externe

Gabrilou,

vois-tu l'image de mon tableau ? Merci.

maryloo, non, je ne vois pas ton tableau

Comment fait-on pour joindre un tableau ? J'avais collé la capture mais ça ne marche pas !

Où bien tu envoies une copie de ton fichier exemple avec cjoint : https://www.cjoint.com/

Pour mettre une capture tu utilises l'appareil à photo

Bonsoir, Voici mon tableau. J'ai utilisé l'appareil photo. Voyez-vous l'image ? je voudrais que seules les lignes où il y a marqué "Somme...." soient colorées... Merci d'avance.

Lien vers une image externe

Je ne sais pas comment tu t'y prends mais je ne vois pas le tableau. Est-ce que tu le vois, toi ?

1) Tu fais une capture de la partie du tableau qui nous intéresse. Tu sauvegardes l'image capturée.

2) Tu cliques sur l'appareil (image ci-dessous)

Tu obtiens ceci :

3)

4) Clique sur choisir un fichier (celui de ta capture) puis sur Envoyer.

Si c'est plus simple pour toi, mets une copie sur cjoint, tu l'as déjà fait , tu sais comment ça marche

A+

J'ai utilisé cjoint.com. C'est vrai que je l'avais déjà utilisé mais je ne me souvenais plus comment j'avais fait.

https://www.cjoint.com/c/IAFuRIQpQUZ

Vérifie bien ta formule et s'applique à

Si tu préfères le tableau à l'image, tu me le dis, je le conserve quelques jours

Ca fonctionne super bien ! Un problème résolu.

MERCI beaucoup !

bonne fin de soirée.

Il n'y a que les fous qui ne changent pas d'avis où qui changent trop...

Tant qu'à faire, je te donne le lien tout de suite, je ne sais pas de quoi demain sera fait. Il est valide pendant 4 jours.

Merci maryloo de ne pas avoir pris la peine de réagir aux solutions que je vous ai proposées !

Bonjour dlxpat,

Tu as tout à fait raison et je comprends ta réaction et j'espère que tu voudras bien m'excuser ! :-(

En effet, tu m'as proposé une solution avec macro le 27/1 et j'étais prête à essayer, même si je ne connais pas bien du tout les macros et que cela me faisait un peu peur !

Le même jour Gabrilou m'a proposé une solution avec mise en forme conditionnelle (que je connais assez bien) et qui était mon idée de départ. Donc, solution de facilité (pour moi), j'ai préféré une solution avec ce moyen et elle a fonctionné.

J'ai eu également une semaine hyper chargée et je n'ai pas pris le temps d'essayer l'autre solution qui me semblait + compliquée !

Je te remercie donc de m'avoir répondu le premier et, encore une fois, j'espère que tu voudras bien m'excuser.

A +

Maryloo

Dlxpat,

J'ai pris le temps d'essayer ta macro : ça ne marchait pas. Je l'ai modifiée comme suit : (colonne B4 à B24 et "Somme" au lieu de "Sous.total" mais ça ne marche toujours pas. Mais c'est moi qui n'y connais pas grand chose en macros...

Sub st()

Dim Cell As Range

for Each Cell In Range("B4:B24")

If Cell.HasFormula And InStr(1, Cell.FormulaLocal, "Somme", vbTextCompare) > 0 Then Cell.Interior.ColorIndex = 4

Next

End Sub