Fonction Sous.total(.....) + caractère gras dans code VBA

Bonjour,

Obtenu avec enregistrement automatique de MFC:

[A1].CurrentRegion.Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=GAUCHE($B1;5)=""Total"""
Selection.FormatConditions(1).Font.Bold = True

JB
On 26 juin, 21:26, "Raph" <r...@orange.fr> wrote:

Bonjour,

Je souhaite intégrer dans le code d'une macro la fonction SOUS.TOTAL su r une
feuille de données dans laquelle toute les cellules calculées par cet te
fonction apparaissent en caractère Gras.

Selection.Subtotal GroupBy:=5, Function:=xlSum, TotalList:=Array(12 , 15, 16
_
, 17, 18, 19), Replace:=True, PageBreaks:=False,
SummaryBelowData:=True

Comment faire ?

Merci d'avance
Raph

Solution sans MFC:

Set champ = Range("B:B")
Set c = champ.Find("Total", LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
premier = c.Address
Do
c.EntireRow.Font.Bold = True
Set c = champ.FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If

JB


On 27 juin, 08:00, JB <boisgont...@hotmail.com> wrote:

Bonjour,

Obtenu avec enregistrement automatique de MFC:

[A1].CurrentRegion.Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=GAUCHE($B1;5)=""Total"""
Selection.FormatConditions(1).Font.Bold = True

JB
On 26 juin, 21:26, "Raph" <r...@orange.fr> wrote:

Bonjour,

Je souhaite intégrer dans le code d'une macro la fonction SOUS.TOTAL sur une
feuille de données dans laquelle toute les cellules calculées par c ette
fonction apparaissent en caractère Gras.

Selection.Subtotal GroupBy:=5, Function:=xlSum, TotalList:=Array( 12, 15, 16
_
, 17, 18, 19), Replace:=True, PageBreaks:=False,
SummaryBelowData:=True

Comment faire ?

Merci d'avance
Raph- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

merci beaucoup pour le coup de main.


"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1182925143.714766.101720@w5g2000hsg.googlegroups.com...
Solution sans MFC:

Set champ = Range("B:B")
Set c = champ.Find("Total", LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
premier = c.Address
Do
c.EntireRow.Font.Bold = True
Set c = champ.FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If

JB


On 27 juin, 08:00, JB <boisgont...@hotmail.com> wrote:

Bonjour,

Obtenu avec enregistrement automatique de MFC:

[A1].CurrentRegion.Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=GAUCHE($B1;5)=""Total"""
Selection.FormatConditions(1).Font.Bold = True

JB
On 26 juin, 21:26, "Raph" <r...@orange.fr> wrote:

Bonjour,

Je souhaite intégrer dans le code d'une macro la fonction SOUS.TOTAL sur
une

feuille de données dans laquelle toute les cellules calculées par cette
fonction apparaissent en caractère Gras.

Selection.Subtotal GroupBy:=5, Function:=xlSum, TotalList:=Array(12, 15,
16

_
, 17, 18, 19), Replace:=True, PageBreaks:úlse,
SummaryBelowData:=True

Comment faire ?

Merci d'avance
Raph- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -