J'ai un fichier xls de plus de 800 lignes
Dans la colonne B de chaque ligne, il y a une phrase qui contient un ou
deux mots écrits en gras (les autres sont en "Normal").
Je souhaiterais que le(s) mot(s) gras soient écrits en rouge,en plus
d'être gras.
Est-ce possible par MFC ? par macro ?
Certainement (je sais vos limites illimitées :-) mais comment :-(( ??
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonsoir. Sélectionne la plage de cellules et exécute la macro suivante :
Sub test() Dim c As Range For Each c In Selection For i = 1 To Len(c.Value) If c.Characters(i, 1).Font.Bold = True Then c.Characters(i, 1).Font.ColorIndex = 3 End If Next i Next c End Sub
Cordialement. Daniel "Pierre F." a écrit dans le message de news: 62040$48790d3f$55da2af8$
Bonsoir à toutes et à tous
J'ai un fichier xls de plus de 800 lignes Dans la colonne B de chaque ligne, il y a une phrase qui contient un ou deux mots écrits en gras (les autres sont en "Normal").
Je souhaiterais que le(s) mot(s) gras soient écrits en rouge,en plus d'être gras.
Est-ce possible par MFC ? par macro ?
Certainement (je sais vos limites illimitées :-) mais comment :-(( ??
Merci pour votre aide
Cordialement, Pierre F.
Bonsoir.
Sélectionne la plage de cellules et exécute la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
For i = 1 To Len(c.Value)
If c.Characters(i, 1).Font.Bold = True Then
c.Characters(i, 1).Font.ColorIndex = 3
End If
Next i
Next c
End Sub
Cordialement.
Daniel
"Pierre F." <pfornerodNO@SPAMhotmail.com> a écrit dans le message de news:
62040$48790d3f$55da2af8$24748@news.hispeed.ch...
Bonsoir à toutes et à tous
J'ai un fichier xls de plus de 800 lignes
Dans la colonne B de chaque ligne, il y a une phrase qui contient un ou
deux mots écrits en gras (les autres sont en "Normal").
Je souhaiterais que le(s) mot(s) gras soient écrits en rouge,en plus
d'être gras.
Est-ce possible par MFC ? par macro ?
Certainement (je sais vos limites illimitées :-) mais comment :-(( ??
Bonsoir. Sélectionne la plage de cellules et exécute la macro suivante :
Sub test() Dim c As Range For Each c In Selection For i = 1 To Len(c.Value) If c.Characters(i, 1).Font.Bold = True Then c.Characters(i, 1).Font.ColorIndex = 3 End If Next i Next c End Sub
Cordialement. Daniel "Pierre F." a écrit dans le message de news: 62040$48790d3f$55da2af8$
Bonsoir à toutes et à tous
J'ai un fichier xls de plus de 800 lignes Dans la colonne B de chaque ligne, il y a une phrase qui contient un ou deux mots écrits en gras (les autres sont en "Normal").
Je souhaiterais que le(s) mot(s) gras soient écrits en rouge,en plus d'être gras.
Est-ce possible par MFC ? par macro ?
Certainement (je sais vos limites illimitées :-) mais comment :-(( ??
Merci pour votre aide
Cordialement, Pierre F.
Philippe.R
Bonsoir Daniel, A tout hasard, on préférera : c.Characters(i, 1).Font.Color = vbred à c.Characters(i, 1).Font.ColorIndex = 3 (histoire de s'affranchir des varaitions d'index d'une machine à l'autre) -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Daniel.C" a écrit dans le message de news:uY%
Bonsoir. Sélectionne la plage de cellules et exécute la macro suivante :
Sub test() Dim c As Range For Each c In Selection For i = 1 To Len(c.Value) If c.Characters(i, 1).Font.Bold = True Then c.Characters(i, 1).Font.ColorIndex = 3 End If Next i Next c End Sub
Cordialement. Daniel "Pierre F." a écrit dans le message de news: 62040$48790d3f$55da2af8$
Bonsoir à toutes et à tous
J'ai un fichier xls de plus de 800 lignes Dans la colonne B de chaque ligne, il y a une phrase qui contient un ou deux mots écrits en gras (les autres sont en "Normal").
Je souhaiterais que le(s) mot(s) gras soient écrits en rouge,en plus d'être gras.
Est-ce possible par MFC ? par macro ?
Certainement (je sais vos limites illimitées :-) mais comment :-(( ??
Merci pour votre aide
Cordialement, Pierre F.
Bonsoir Daniel,
A tout hasard, on préférera :
c.Characters(i, 1).Font.Color = vbred
à
c.Characters(i, 1).Font.ColorIndex = 3
(histoire de s'affranchir des varaitions d'index d'une machine à l'autre)
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:uY%23rVDG5IHA.832@TK2MSFTNGP05.phx.gbl...
Bonsoir.
Sélectionne la plage de cellules et exécute la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
For i = 1 To Len(c.Value)
If c.Characters(i, 1).Font.Bold = True Then
c.Characters(i, 1).Font.ColorIndex = 3
End If
Next i
Next c
End Sub
Cordialement.
Daniel
"Pierre F." <pfornerodNO@SPAMhotmail.com> a écrit dans le message de news:
62040$48790d3f$55da2af8$24748@news.hispeed.ch...
Bonsoir à toutes et à tous
J'ai un fichier xls de plus de 800 lignes
Dans la colonne B de chaque ligne, il y a une phrase qui contient un ou
deux mots écrits en gras (les autres sont en "Normal").
Je souhaiterais que le(s) mot(s) gras soient écrits en rouge,en plus
d'être gras.
Est-ce possible par MFC ? par macro ?
Certainement (je sais vos limites illimitées :-) mais comment :-(( ??
Bonsoir Daniel, A tout hasard, on préférera : c.Characters(i, 1).Font.Color = vbred à c.Characters(i, 1).Font.ColorIndex = 3 (histoire de s'affranchir des varaitions d'index d'une machine à l'autre) -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Daniel.C" a écrit dans le message de news:uY%
Bonsoir. Sélectionne la plage de cellules et exécute la macro suivante :
Sub test() Dim c As Range For Each c In Selection For i = 1 To Len(c.Value) If c.Characters(i, 1).Font.Bold = True Then c.Characters(i, 1).Font.ColorIndex = 3 End If Next i Next c End Sub
Cordialement. Daniel "Pierre F." a écrit dans le message de news: 62040$48790d3f$55da2af8$
Bonsoir à toutes et à tous
J'ai un fichier xls de plus de 800 lignes Dans la colonne B de chaque ligne, il y a une phrase qui contient un ou deux mots écrits en gras (les autres sont en "Normal").
Je souhaiterais que le(s) mot(s) gras soient écrits en rouge,en plus d'être gras.
Est-ce possible par MFC ? par macro ?
Certainement (je sais vos limites illimitées :-) mais comment :-(( ??
Merci pour votre aide
Cordialement, Pierre F.
Pierre F.
Daniel.C a écrit :
Sélectionne la plage de cellules et exécute la macro suivante :
Sub test() Dim c As Range For Each c In Selection For i = 1 To Len(c.Value) If c.Characters(i, 1).Font.Bold = True Then c.Characters(i, 1).Font.ColorIndex = 3 End If Next i Next c End Sub
Merci, merci et merci; ça fonctionne à merveille!
Cordialement, Pierre F.
Daniel.C a écrit :
Sélectionne la plage de cellules et exécute la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
For i = 1 To Len(c.Value)
If c.Characters(i, 1).Font.Bold = True Then
c.Characters(i, 1).Font.ColorIndex = 3
End If
Next i
Next c
End Sub
Sélectionne la plage de cellules et exécute la macro suivante :
Sub test() Dim c As Range For Each c In Selection For i = 1 To Len(c.Value) If c.Characters(i, 1).Font.Bold = True Then c.Characters(i, 1).Font.ColorIndex = 3 End If Next i Next c End Sub
Merci, merci et merci; ça fonctionne à merveille!
Cordialement, Pierre F.
Daniel.C
Bonsoir Philippe. Oui. Sauf que cette notation te limite au rouge "pétant". Daniel "Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
Bonsoir Daniel, A tout hasard, on préférera : c.Characters(i, 1).Font.Color = vbred à c.Characters(i, 1).Font.ColorIndex = 3 (histoire de s'affranchir des varaitions d'index d'une machine à l'autre) -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Daniel.C" a écrit dans le message de news:uY%
Bonsoir. Sélectionne la plage de cellules et exécute la macro suivante :
Sub test() Dim c As Range For Each c In Selection For i = 1 To Len(c.Value) If c.Characters(i, 1).Font.Bold = True Then c.Characters(i, 1).Font.ColorIndex = 3 End If Next i Next c End Sub
Cordialement. Daniel "Pierre F." a écrit dans le message de news: 62040$48790d3f$55da2af8$
Bonsoir à toutes et à tous
J'ai un fichier xls de plus de 800 lignes Dans la colonne B de chaque ligne, il y a une phrase qui contient un ou deux mots écrits en gras (les autres sont en "Normal").
Je souhaiterais que le(s) mot(s) gras soient écrits en rouge,en plus d'être gras.
Est-ce possible par MFC ? par macro ?
Certainement (je sais vos limites illimitées :-) mais comment :-(( ??
Merci pour votre aide
Cordialement, Pierre F.
Bonsoir Philippe.
Oui.
Sauf que cette notation te limite au rouge "pétant".
Daniel
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
uiBONIG5IHA.3420@TK2MSFTNGP05.phx.gbl...
Bonsoir Daniel,
A tout hasard, on préférera :
c.Characters(i, 1).Font.Color = vbred
à
c.Characters(i, 1).Font.ColorIndex = 3
(histoire de s'affranchir des varaitions d'index d'une machine à l'autre)
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:uY%23rVDG5IHA.832@TK2MSFTNGP05.phx.gbl...
Bonsoir.
Sélectionne la plage de cellules et exécute la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
For i = 1 To Len(c.Value)
If c.Characters(i, 1).Font.Bold = True Then
c.Characters(i, 1).Font.ColorIndex = 3
End If
Next i
Next c
End Sub
Cordialement.
Daniel
"Pierre F." <pfornerodNO@SPAMhotmail.com> a écrit dans le message de
news: 62040$48790d3f$55da2af8$24748@news.hispeed.ch...
Bonsoir à toutes et à tous
J'ai un fichier xls de plus de 800 lignes
Dans la colonne B de chaque ligne, il y a une phrase qui contient un ou
deux mots écrits en gras (les autres sont en "Normal").
Je souhaiterais que le(s) mot(s) gras soient écrits en rouge,en plus
d'être gras.
Est-ce possible par MFC ? par macro ?
Certainement (je sais vos limites illimitées :-) mais comment :-(( ??
Bonsoir Philippe. Oui. Sauf que cette notation te limite au rouge "pétant". Daniel "Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
Bonsoir Daniel, A tout hasard, on préférera : c.Characters(i, 1).Font.Color = vbred à c.Characters(i, 1).Font.ColorIndex = 3 (histoire de s'affranchir des varaitions d'index d'une machine à l'autre) -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Daniel.C" a écrit dans le message de news:uY%
Bonsoir. Sélectionne la plage de cellules et exécute la macro suivante :
Sub test() Dim c As Range For Each c In Selection For i = 1 To Len(c.Value) If c.Characters(i, 1).Font.Bold = True Then c.Characters(i, 1).Font.ColorIndex = 3 End If Next i Next c End Sub
Cordialement. Daniel "Pierre F." a écrit dans le message de news: 62040$48790d3f$55da2af8$
Bonsoir à toutes et à tous
J'ai un fichier xls de plus de 800 lignes Dans la colonne B de chaque ligne, il y a une phrase qui contient un ou deux mots écrits en gras (les autres sont en "Normal").
Je souhaiterais que le(s) mot(s) gras soient écrits en rouge,en plus d'être gras.
Est-ce possible par MFC ? par macro ?
Certainement (je sais vos limites illimitées :-) mais comment :-(( ??
Merci pour votre aide
Cordialement, Pierre F.
Pierre F.
Philippe.R a écrit :
Bonsoir Daniel, A tout hasard, on préférera : c.Characters(i, 1).Font.Color = vbred à c.Characters(i, 1).Font.ColorIndex = 3 (histoire de s'affranchir des varaitions d'index d'une machine à l'autre)
Merci pour cette précision qui peut en effet être utile... quand on passe du bureau à la maison :-)
Cordialement, Pierre F.
Philippe.R a écrit :
Bonsoir Daniel,
A tout hasard, on préférera :
c.Characters(i, 1).Font.Color = vbred
à
c.Characters(i, 1).Font.ColorIndex = 3
(histoire de s'affranchir des varaitions d'index d'une machine à l'autre)
Merci pour cette précision qui peut en effet être utile... quand on
passe du bureau à la maison :-)
Bonsoir Daniel, A tout hasard, on préférera : c.Characters(i, 1).Font.Color = vbred à c.Characters(i, 1).Font.ColorIndex = 3 (histoire de s'affranchir des varaitions d'index d'une machine à l'autre)
Merci pour cette précision qui peut en effet être utile... quand on passe du bureau à la maison :-)
