Couleur de la Police

[gds35]

Mais AMIS du forums , Bonsoir ,
Grace à notre AMI ToToTiTi2008 , j'ai réussi a créer des sous totaux à partir d'un Sub dans une feuille . Maintenant j'aurais voulu avec ce sub modifier la couleur de la police des sous totaux . J'ai tester plusieurs solutions , recherche de la chaine , "TOTAL" et selection de la ligne Etc .... voici le sub :
Range("A1").Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(3, 4, 5, 6, _
7, 8), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Ca fonctionne super , mais puis rajouter qq chose qui me mette les caracteres par exemple en Violet . Merci encore de votre aide GDS 35

 

[Excel-lent]

Re : Couleur de la Police

Bonsoir GDS35,

Voici une proposition :

Sub Test()
'Macro complété par Excel-lent

Dim i As Long

Range("A1").Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(3, 4, 5, 6, _
7, 8), Replace:=True, PageBreaks:=False, SummaryBelowData:=True

For i = 2 To Range("B65536").End(xlUp).Row
   If [COLOR="Blue"]Left(Cells(i, 2), 6) = "Total "[/COLOR] Then
      Range(Cells(i, 2), Cells(i, 8)).Select
      Selection.Font.ColorIndex = [COLOR="Red"][B]5[/B][/COLOR]
   End If
 Next i
End Sub

Le code suivant regarde si les 6 caractères de la cellule ... sont "Total_" (bref s'il s'agit d'un sous-total) :

[COLOR="Blue"]Left(Cells(i, 2), 6) = "Total "[/COLOR]

Si tu veux colorier également la ligne TOTAL (= total général), remplacer cette ligne par :

[COLOR="Blue"]Left(Cells(i, 2), 5) = "Total"[/COLOR]

Pour le choix de la couleur de ta police, remplacer le 5, par le chiffre adéquat!

Pour information :

Bleu = 5
Jaune = 6
Rouge = 3
Vert = 10
Violet = 13
Gris = 15

Si tu veux une autre couleur, c'est également possible. Si tu ne trouve pas le chiffre correspondant, n'hésite pas.

Pour information, pour la couleur de fond de la cellule, il suffit de remplacer

Selection.Font.ColorIndex

par :

Selection.Interior.ColorIndex

Pour le code des couleurs, c'est le même.

Pour mettre en gras :

Selection.Font.Bold = True

Evidement, tu n'es pas obligé de choisir qu'une solution. Tu peux mettre la police en gras ET violet! Ce qui te donnera le code ci-dessous :

Sub Test()
'Macro complété par Excel-lent

Dim i As Long

Range("A1").Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(3, 4, 5, 6, _
7, 8), Replace:=True, PageBreaks:=False, SummaryBelowData:=True

For i = 2 To Range("B65536").End(xlUp).Row
   If Left(Cells(i, 2), 6) = "Total " Then
      Range(Cells(i, 2), Cells(i, 8)).Select
[I]      [COLOR="RoyalBlue"]Selection.Font.ColorIndex = 13
      Selection.Font.Bold = True[/COLOR]
[/I]  End If
 Next i
End Sub

Bonne soirée

 

[gds35]

Re : Couleur de la Police

Salut , Je ne sais que dire devant cette réponse , simplement MERCI et chapeau de toutes ces précisions , qui me seront d'une grande utilité
Cordialement GDS 35 A+

 

[gds35]

Re : Couleur de la Police

Re Salut , Y'en a une que j'ai oubliée !!!!
JJe desire a la sortie des calculs des sous totaux supprimer la ligne Total général sachant que si je teste Left (cells(i, 2), 5) = "Total" la sub ne trouve pas ;
Cordialement GDS35

 

[Excel-lent]

Re : Couleur de la Police

Bonsoir Gds35,

si je teste Left (cells(i, 2), 5) = "Total" la sub ne trouve pas

😕 Pourtant ça fonctionne très bien chez moi!

Le code dans sa globalité est celui ci-dessous! Tu as bien le même?

Sub Test()
'Macro complété par Excel-lent

Dim i As Long

Range("A1").Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(3, 4, 5, 6, _
7, 8), Replace:=True, PageBreaks:=False, SummaryBelowData:=True

For i = 2 To Range("B65536").End(xlUp).Row
[COLOR="Blue"][COLOR="Blue"]   If Left(Cells(i, 2), 5) = "Total" Then[/COLOR][/COLOR]
      Range(Cells(i, 2), Cells(i, 8)).Select
      Selection.Font.ColorIndex = 5
   End If
 Next i
End Sub

Je desire a la sortie des calculs des sous totaux supprimer la ligne Total général

Remplacer ton code par celui ci-dessous :

Sub Test()
'Macro complété par Excel-lent

Dim i As Long

Range("A1").Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(3, 4, 5, 6, _
7, 8), Replace:=True, PageBreaks:=False, SummaryBelowData:=True

For i = 2 To Range("B65536").End(xlUp).Row
   If Left(Cells(i, 2), 5) = "Total" Then
      Range(Cells(i, 2), Cells(i, 8)).Select
      Selection.Font.ColorIndex = 5
   End If
Next i
[COLOR="Red"][I]Rows(Range("B65536").End(xlUp).Row).Delete
[/I][/COLOR]End Sub

ligne rajouté au code précédent pour supprimer la ligne "total général".

Bonne soirée

 

[gds35]

Re : Couleur de la Police

Merci de ton Aide mon AMI , cela fonctionne parfaitement.

Bon Week End . GDS35

 

[gds35]

Re : Couleur de la Police

Resalut , mon AMi,
je viens dem'apercevoir , d'un truc .....
mes exercices comptables demarre en septembre , et mes stats je les faits par trimestres , donc demarrage en 2005 macro OK pour mois 09-11 2005 à 11-11 2005 mais le hic c'est apres car le trimestre suivant me donne 12 2005 à 02 2006 je n'ai plus de base pour creer le ST , donc j'essai de créer un ST toutes les 3 lignes pour uniquement les mois 12 aa à 02 aa + 1
as tu une idéée ??? , je bosse la dessus , as tu de ton coté une idée ???
Cordialement GDS35