Bonjour à tous
Soit en A1 un prénom (en caractère noraml), en A2 un nom écrit en caractère
gras, est il possible concaténer en A3, A1 et A2 en conservant le caractère
gras du nom .....en clair conserver le format de chaque cellule concaténée ?
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
RaMa
Bonsoir Hors VBA Point de salut pense-je RaMa "marc servais" a écrit dans le message de news:%
Bonjour à tous Soit en A1 un prénom (en caractère noraml), en A2 un nom écrit en caractère
gras, est il possible concaténer en A3, A1 et A2 en conservant le caractère
gras du nom .....en clair conserver le format de chaque cellule concaténée ?
Amitiés Marc
Bonsoir
Hors VBA Point de salut pense-je
RaMa
"marc servais" <maservai@club-internet.fr> a écrit dans le message de
news:%236AzuZQ5DHA.1040@TK2MSFTNGP10.phx.gbl...
Bonjour à tous
Soit en A1 un prénom (en caractère noraml), en A2 un nom écrit en
caractère
gras, est il possible concaténer en A3, A1 et A2 en conservant le
caractère
gras du nom .....en clair conserver le format de chaque cellule concaténée
?
Cela pourrais peut être convenir Avec le resultat en a3 A adapter selon ton style de caractère
Salutations JJ
Sub TESTE [a3] = [a1] & [a2] [a3].Select
With ActiveCell.Characters(Start:=1, Length:=Len([a1])).Font .Name = "Arial" .FontStyle = "Normal" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomaticic End With With ActiveCell.Characters(Start:=Len([a1]) + 1, Length:=Len([a3])).Font .Name = "Arial" .FontStyle = "Gras" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With End Sub
"marc servais" a écrit dans le message news: #
Bonjour à tous Soit en A1 un prénom (en caractère noraml), en A2 un nom écrit en caractère
gras, est il possible concaténer en A3, A1 et A2 en conservant le caractère
gras du nom .....en clair conserver le format de chaque cellule concaténée ?
Amitiés Marc
Frédéric Sigonneau
Bonsoir,
Non, ce n'est pas possible par une formule. Seule une macro (ou la manip directe dans Excel) peut te permettre de donner un format différent à des parties du contenu d'une cellule. Exemple pour mettre les 4 derniers caratères du texte de la cellule active en gras :
Sub EnGras() Dim txt$ txt = ActiveCell.Text ActiveCell.Characters(Len(txt) - 3, 4).Font.Bold = True End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour à tous Soit en A1 un prénom (en caractère noraml), en A2 un nom écrit en caractère gras, est il possible concaténer en A3, A1 et A2 en conservant le caractère gras du nom .....en clair conserver le format de chaque cellule concaténée ?
Amitiés Marc
Bonsoir,
Non, ce n'est pas possible par une formule. Seule une macro (ou la manip directe
dans Excel) peut te permettre de donner un format différent à des parties du
contenu d'une cellule. Exemple pour mettre les 4 derniers caratères du texte de
la cellule active en gras :
Sub EnGras()
Dim txt$
txt = ActiveCell.Text
ActiveCell.Characters(Len(txt) - 3, 4).Font.Bold = True
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour à tous
Soit en A1 un prénom (en caractère noraml), en A2 un nom écrit en caractère
gras, est il possible concaténer en A3, A1 et A2 en conservant le caractère
gras du nom .....en clair conserver le format de chaque cellule concaténée ?
Non, ce n'est pas possible par une formule. Seule une macro (ou la manip directe dans Excel) peut te permettre de donner un format différent à des parties du contenu d'une cellule. Exemple pour mettre les 4 derniers caratères du texte de la cellule active en gras :
Sub EnGras() Dim txt$ txt = ActiveCell.Text ActiveCell.Characters(Len(txt) - 3, 4).Font.Bold = True End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour à tous Soit en A1 un prénom (en caractère noraml), en A2 un nom écrit en caractère gras, est il possible concaténer en A3, A1 et A2 en conservant le caractère gras du nom .....en clair conserver le format de chaque cellule concaténée ?
