Mise en couleur de sous totaux via macro

.. en passant par une macro car en
plus il me faudrait toute la ligne (c'est pourquoi la mise en forme
conditionnelle ne me suffit pas.

Mais si, mais si une MEFC peut faire ça !
voir là :
http://www.excelabo.net/moteurs/compteclic.php?nom=av-mefc
Rubrique : "Recherche dans une plage"
--> "Sous-totaux"

AV

Merci pour ta réponse fulgurante, mais je l'ai déjà éssayé sans succès
(snif) mais comme je suis tétue, j'y retourne quand même !!
Grmlmlml je vais pas me laisser faire par Excel quand même !! ;p

"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message news:
#DJDvSkdFHA.1220@TK2MSFTNGP10.phx.gbl...

.. en passant par une macro car en
plus il me faudrait toute la ligne (c'est pourquoi la mise en forme
conditionnelle ne me suffit pas.

Mais si, mais si une MEFC peut faire ça !
voir là :
http://www.excelabo.net/moteurs/compteclic.php?nom=av-mefc
Rubrique : "Recherche dans une plage"
--> "Sous-totaux"

AV

surtout que frère Sainque te dit que c'est possible

Le 21/06/2005, Zorsh@ a supposé :

Merci pour ta réponse fulgurante, mais je l'ai déjà éssayé sans succès
(snif) mais comme je suis tétue, j'y retourne quand même !!
Grmlmlml je vais pas me laisser faire par Excel quand même !! ;p

"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message news:
#DJDvSkdFHA.1220@TK2MSFTNGP10.phx.gbl...

.. en passant par une macro car en
plus il me faudrait toute la ligne (c'est pourquoi la mise en forme
conditionnelle ne me suffit pas.

Mais si, mais si une MEFC peut faire ça !
voir là :
http://www.excelabo.net/moteurs/compteclic.php?nom=av-mefc
Rubrique : "Recherche dans une plage"
--> "Sous-totaux"

AV

Bonjour,

Une piste avec le code ci-dessous.
Dans cet exemple, il faut que la ligne de titres de vos
données commence en A1 et que les sous-totaux existent.

'**********
Option Explicit
Sub PMO_ColorSousTotaux()
Dim nbLig&
Dim nbCol&
Dim i&
Dim j&
Dim R As Range
ActiveSheet.Outline.ShowLevels RowLevels:=2
[a1].Select
With ActiveSheet.UsedRange
nbLig& = .Rows.Count
nbCol& = .Columns.Count
End With
For i& = 2 To nbLig& '2 si ligne de titres en 1
Set R = Range(Cells(i&, 1), Cells(i&, nbCol&))
If R.EntireRow.Hidden = False Then
If i& < nbLig& Then
R.Interior.ColorIndex = 36
With R.Font
.ColorIndex = 5
.Bold = True
End With
Else 'Dernière ligne grand total
R.Interior.ColorIndex = 40
With R.Font
.ColorIndex = 9
.Bold = True
.Italic = True
End With
End If
End If
Next i&
ActiveSheet.Outline.ShowLevels RowLevels:=3
End Sub
'**********

Cordialement.
--
PMO
Patrick Morange

Bonjour à tous,
J'ai eu beau tout lire et chercher partout puis tenter de compiler toutes
les infos diverses avant d'aariver ici, je galère toujours autant...
Bref je voudrais juste faire ressortir mes sous totaux automatiquement en
couleur (police "Bleu-Gras" par exemple) en passant par une macro car en
plus il me faudrait toute la ligne (c'est pourquoi la mise en forme
conditionnelle ne me suffit pas.
Quelqu'un se serait-il déjà arraché les cheveux là dessus de façon moins
stérile que moi ?
Merci beaucoup pour votre aide
Zorsh@

OUAIS !!
ça y est ça maaaaaarche !!!

Merci merci merci merci merci.....

"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message news:
#DJDvSkdFHA.1220@TK2MSFTNGP10.phx.gbl...

.. en passant par une macro car en
plus il me faudrait toute la ligne (c'est pourquoi la mise en forme
conditionnelle ne me suffit pas.

Mais si, mais si une MEFC peut faire ça !
voir là :
http://www.excelabo.net/moteurs/compteclic.php?nom=av-mefc
Rubrique : "Recherche dans une plage"
--> "Sous-totaux"

AV

Merci merci merci merci merci.....

Je vous en prie, je vous en prie, je vous en prie, je vous en prie....
;-)
AV