Dans une feuille de calcul, j'ai une liste de nom comme ceci
André Houssonloge 45
Est-il possible par une mise en forme conditionnelle ou par macro ou VBA de
mettre en gras et en couleur uniquement le chiffre sachant que tout ce
trouve dans la même cellule.
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
michdenis
Voici un exemple :
En supposant que ton texte "André Houssonloge 45" soit inscrit dans la cellule A1 de la feuil1 et que tu veuille mettre "45" dans un format qui soit autre que le reste de la cellule.
à copier dans un module standard '---------------------- Sub FormatCellule()
With Worksheets("Feuil1") With .Range("A1") With .Characters(Len(.Item(1, 1)) - 1, 2).Font .Name = "Arial" .Size = 14 .Bold = True End With End With End With
End Sub '----------------------
Salutations!
"André Houssonloge" a écrit dans le message de news:e% Bonjour,
Dans une feuille de calcul, j'ai une liste de nom comme ceci
André Houssonloge 45
Est-il possible par une mise en forme conditionnelle ou par macro ou VBA de mettre en gras et en couleur uniquement le chiffre sachant que tout ce trouve dans la même cellule.
Merci
André Houssonloge
Voici un exemple :
En supposant que ton texte "André Houssonloge 45" soit inscrit dans la cellule A1 de la feuil1 et que tu veuille mettre "45"
dans un format qui soit autre que le reste de la cellule.
à copier dans un module standard
'----------------------
Sub FormatCellule()
With Worksheets("Feuil1")
With .Range("A1")
With .Characters(Len(.Item(1, 1)) - 1, 2).Font
.Name = "Arial"
.Size = 14
.Bold = True
End With
End With
End With
End Sub
'----------------------
Salutations!
"André Houssonloge" <ahis@skynet.be> a écrit dans le message de news:e%23naiEAsEHA.1016@TK2MSFTNGP10.phx.gbl...
Bonjour,
Dans une feuille de calcul, j'ai une liste de nom comme ceci
André Houssonloge 45
Est-il possible par une mise en forme conditionnelle ou par macro ou VBA de
mettre en gras et en couleur uniquement le chiffre sachant que tout ce
trouve dans la même cellule.
En supposant que ton texte "André Houssonloge 45" soit inscrit dans la cellule A1 de la feuil1 et que tu veuille mettre "45" dans un format qui soit autre que le reste de la cellule.
à copier dans un module standard '---------------------- Sub FormatCellule()
With Worksheets("Feuil1") With .Range("A1") With .Characters(Len(.Item(1, 1)) - 1, 2).Font .Name = "Arial" .Size = 14 .Bold = True End With End With End With
End Sub '----------------------
Salutations!
"André Houssonloge" a écrit dans le message de news:e% Bonjour,
Dans une feuille de calcul, j'ai une liste de nom comme ceci
André Houssonloge 45
Est-il possible par une mise en forme conditionnelle ou par macro ou VBA de mettre en gras et en couleur uniquement le chiffre sachant que tout ce trouve dans la même cellule.
Merci
André Houssonloge
Philippe.R
Bonjour André, En supposant que la partie numérique comporte toujours 2 caractères situés à droite, la plage étant sélectionnée :
Sub Metleschiffresencouleur() Dim leDep As Integer, lAc As Range For Each lAc In Selection leDep = Len(ActiveCell.Value) - 1 With lAc.Characters(Start:=leDep, Length:=2).Font .FontStyle = "Gras" .ColorIndex = 3 End With Next lAc End Sub -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"André Houssonloge" a écrit dans le message de news: e%
Bonjour,
Dans une feuille de calcul, j'ai une liste de nom comme ceci
André Houssonloge 45
Est-il possible par une mise en forme conditionnelle ou par macro ou VBA de mettre en gras et en couleur uniquement le chiffre sachant que tout ce trouve dans la même cellule.
Merci
André Houssonloge
Bonjour André,
En supposant que la partie numérique comporte toujours 2 caractères situés à droite, la plage étant
sélectionnée :
Sub Metleschiffresencouleur()
Dim leDep As Integer, lAc As Range
For Each lAc In Selection
leDep = Len(ActiveCell.Value) - 1
With lAc.Characters(Start:=leDep, Length:=2).Font
.FontStyle = "Gras"
.ColorIndex = 3
End With
Next lAc
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"André Houssonloge" <ahis@skynet.be> a écrit dans le message de news:
e%23naiEAsEHA.1016@TK2MSFTNGP10.phx.gbl...
Bonjour,
Dans une feuille de calcul, j'ai une liste de nom comme ceci
André Houssonloge 45
Est-il possible par une mise en forme conditionnelle ou par macro ou VBA de
mettre en gras et en couleur uniquement le chiffre sachant que tout ce
trouve dans la même cellule.
Bonjour André, En supposant que la partie numérique comporte toujours 2 caractères situés à droite, la plage étant sélectionnée :
Sub Metleschiffresencouleur() Dim leDep As Integer, lAc As Range For Each lAc In Selection leDep = Len(ActiveCell.Value) - 1 With lAc.Characters(Start:=leDep, Length:=2).Font .FontStyle = "Gras" .ColorIndex = 3 End With Next lAc End Sub -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"André Houssonloge" a écrit dans le message de news: e%
Bonjour,
Dans une feuille de calcul, j'ai une liste de nom comme ceci
André Houssonloge 45
Est-il possible par une mise en forme conditionnelle ou par macro ou VBA de mettre en gras et en couleur uniquement le chiffre sachant que tout ce trouve dans la même cellule.
Merci
André Houssonloge
Philippe.R
Oups ! A corriger comme suit :
leDep = Len(lac.Value) - 1
-- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Philippe.R" a écrit dans le message de news: u%
Bonjour André, En supposant que la partie numérique comporte toujours 2 caractères situés à droite, la plage étant sélectionnée :
Sub Metleschiffresencouleur() Dim leDep As Integer, lAc As Range For Each lAc In Selection leDep = Len(ActiveCell.Value) - 1 With lAc.Characters(Start:=leDep, Length:=2).Font .FontStyle = "Gras" .ColorIndex = 3 End With Next lAc End Sub -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"André Houssonloge" a écrit dans le message de news: e%
Bonjour,
Dans une feuille de calcul, j'ai une liste de nom comme ceci
André Houssonloge 45
Est-il possible par une mise en forme conditionnelle ou par macro ou VBA de mettre en gras et en couleur uniquement le chiffre sachant que tout ce trouve dans la même cellule.
Merci
André Houssonloge
Oups ! A corriger comme suit :
leDep = Len(lac.Value) - 1
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
u%23ZTidBsEHA.1232@TK2MSFTNGP11.phx.gbl...
Bonjour André,
En supposant que la partie numérique comporte toujours 2 caractères situés à droite, la plage étant
sélectionnée :
Sub Metleschiffresencouleur()
Dim leDep As Integer, lAc As Range
For Each lAc In Selection
leDep = Len(ActiveCell.Value) - 1
With lAc.Characters(Start:=leDep, Length:=2).Font
.FontStyle = "Gras"
.ColorIndex = 3
End With
Next lAc
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"André Houssonloge" <ahis@skynet.be> a écrit dans le message de news:
e%23naiEAsEHA.1016@TK2MSFTNGP10.phx.gbl...
Bonjour,
Dans une feuille de calcul, j'ai une liste de nom comme ceci
André Houssonloge 45
Est-il possible par une mise en forme conditionnelle ou par macro ou VBA de
mettre en gras et en couleur uniquement le chiffre sachant que tout ce
trouve dans la même cellule.
-- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Philippe.R" a écrit dans le message de news: u%
Bonjour André, En supposant que la partie numérique comporte toujours 2 caractères situés à droite, la plage étant sélectionnée :
Sub Metleschiffresencouleur() Dim leDep As Integer, lAc As Range For Each lAc In Selection leDep = Len(ActiveCell.Value) - 1 With lAc.Characters(Start:=leDep, Length:=2).Font .FontStyle = "Gras" .ColorIndex = 3 End With Next lAc End Sub -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"André Houssonloge" a écrit dans le message de news: e%
Bonjour,
Dans une feuille de calcul, j'ai une liste de nom comme ceci
André Houssonloge 45
Est-il possible par une mise en forme conditionnelle ou par macro ou VBA de mettre en gras et en couleur uniquement le chiffre sachant que tout ce trouve dans la même cellule.
Merci
André Houssonloge
André Houssonloge
Merci à tout les deux pour vos explications
André Houssonloge "André Houssonloge" a écrit dans le message de news:e%
Bonjour,
Dans une feuille de calcul, j'ai une liste de nom comme ceci
André Houssonloge 45
Est-il possible par une mise en forme conditionnelle ou par macro ou VBA de
mettre en gras et en couleur uniquement le chiffre sachant que tout ce trouve dans la même cellule.
Merci
André Houssonloge
Merci à tout les deux pour vos explications
André Houssonloge
"André Houssonloge" <ahis@skynet.be> a écrit dans le message de
news:e%23naiEAsEHA.1016@TK2MSFTNGP10.phx.gbl...
Bonjour,
Dans une feuille de calcul, j'ai une liste de nom comme ceci
André Houssonloge 45
Est-il possible par une mise en forme conditionnelle ou par macro ou VBA
de
mettre en gras et en couleur uniquement le chiffre sachant que tout ce
trouve dans la même cellule.
