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.
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.
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.
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.
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
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.
Merci d'avance Raph- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
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:
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.
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
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.
Merci d'avance Raph- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Raph
merci beaucoup pour le coup de main.
"JB" a écrit dans le message de news:
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
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:
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