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

Le
Raph
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4593901
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"
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:úlse,
SummaryBelowData:=True

Comment faire ?

Merci d'avance
Raph


JB
Le #4593891
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
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"


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:ú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 -



Raph
Le #4908471
merci beaucoup pour le coup de main.


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


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 -



Publicité
Poster une réponse
Anonyme