Concaténation de texte en gardant la mise en forme du texte Fermé

Question

Bonjour, 

Je travaille actuellement sur Excel avec des listes d'espèces animales. J'ai donc une colonne avec le nom français et une avec le nom latin.
Afin de gagner du temps et de la place je voudrais "fusionner" ces deux colonnes en une seule. J'utilise la formule =A1&" "&B1 pour obtenir une cellule avec le contenu des deux autres.

Ma question est la suivante, les noms latin de mes espèces sont en italique, comment puis-je faire pour que ce texte reste en italique après la concaténation ? Je me retrouve bien avec les deux noms dans une seule cellule mais tous le texte possède une mise en forme de base.
D'avance merci


Configuration: Windows 7 / Firefox 48.0

Raymond PENTIER · Answer

Bonjour.

Ce n'est pas possible avec les fonctions et outils classiques d'Excel.

Mais il n'est pas impossible qu'une solution puisse être trouvée en VBA ...

ccm81 · Answer

Bonjour

Tu vas être obligé de passer par une macro
http://www.cjoint.com/c/FIbl1HPQBun 

Cdlmnt

v3nny01 · Answer

D'accord merci :) 
En fait il faudrait que j'arrive à créer une macro qui dise "le texte entre parenthèse doit être en italique" ou un truc du genre ?
Je ne m'y connais pas du tout en VBA mais il faut bien commencer par quelque chose :)

ccm81 · Answer

Tu n'avais pas parlé de parenthèses
Pour clarifier, peux tu envoyer un bout de fichier, sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu

1) Tu vas dans https://www.cjoint.com/ 
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier 
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint] 
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien 
   en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse
   tu fais "Coller".

Cdlmnt

v3nny01 · Answer

Bonjour,

Voici le lien https://www.cjoint.com/c/FIgnvelnQxh

La macro proposée fonctionne bien mais uniquement pour des noms simples.
Merci

ccm81 · Answer

La modification

Const sep = "("Public Sub OK()Dim plage As Range, cel As Range, s As String, rs As LongSet plage = SelectionIf plage.Columns.Count <> 1 Then Exit SubFor Each cel In plage  s = cel.Value & " (" & cel.Offset(0, 1).Value & ")"  rs = InStr(1, s, sep)  With cel.Offset(0, 2)    .Value = s    .Characters(rs + 1, Len(s) - rs).Font.FontStyle = "Italique"  End WithNext celEnd Sub
Cdlmnt

v3nny01 · Answer

Je me retrouve avec le texte de base et des parenthèses en italiques à côté.

Mais merci quand même pour votre aide, je pense que je vais me débrouiller comme je peux, j'ai pas le temps de trop bidouiller dans les macros XD

Désolé et merci encore

ccm81 · Answer

Je me retrouve avec le texte de base et des parenthèses en italiques à côté ???
Si je t'envoie une proposition, c'est qu'elle fonctionne (en principe), donc il s'agit certainement d'une mauvaise manip quelque part !

je pense que je vais me débrouiller comme je peux, j'ai pas le temps de trop bidouiller dans les macros XD
Là, c'est toi qui voit !
 
http://www.cjoint.com/c/FIgojlvEk1q

Cdlmnt

Concaténation de texte en gardant la mise en forme du texte

8 réponses

Discussions similaires