Excel: concatenation et format Fermé

Question

Salut,

j'ai un souci de concatenation avec Excel.
Un exemple: valant mieux qu'un long discours:
dans ma premiere cellule, j'ai "Bonjour" (en gras, c'est important)
dans ma deuxieme cellule, j'ai "ca va" (pas en gras)
je voudrais concatener les deux textes dans une troisieme cellule en gardant ces formats pour ainsi obtenir:
"Bonjour ca va"

Là, comme ca, je n'y arrive pas. Meme en faisant une macro, je vois pas comment faire.

Merci de vos conseils
Cordialement,
Thierry

eriiic · Accepted Answer

De rien :-)
Bonne soirée à toi

ilan27 · Answer

Bonjour,
Tu as essayé de voir parmi les fonctions proposées sur Excel?
Insertion>Fonction, et tu choisis les options qui te conviennent

Vaucluse · Answer

Non thierry, je n'ai hélas pas de solution, mais si quelqu'un vous donne la bonne idée, je pourrais peut être aussi résoudre mon problème, soulevé quelques minutes avant le votre.
Cf pour info le fil:"regroupement de données"
On suit nos réponses respectives, et on se les refile si ça marche.?
CRDLMNT

thierry · Answer

Oui j'ai regardé les fonctions proposées par Excel, mais j'ai rien trouvé qui pouvait correspondre a mes besoins (remarque c'est Excel en anglais, du coup j'ai peut etre raté quelque chose).

IS c'est quelqu'un sait comment avoir le meme resultat avec une macro,je suis pas contre.

Merci d'avance

zarakoff · Answer

Bonsoir,

Voilà une piste : 
Soit A1 = "Bonjour
A2 = "ça va"
A3 contiendra la formule suivante : 
=concatener(a1;" ";a2)
bon, je n'ai pas excel sous la main et du coup je ne sais pas si la mise en gras de bonjour est conservé.
A tester.

A+
zarakoff

thierry · Answer

Justement, là est mon probleme, la formule ne conserve pas le format des cellules, du coup on obtient un simplement Bonjour ca va.
Et en mettant la cellule en gras, on obtient Bonjour ca va.
Donc comme ca pas moyen d'avoir Bonjour ca va

Anonyme · Answer

Salut

Mettre en gras une partie d'un texte sous Microsoft Excel :

Comment faire pour mettre dans une cellule une partie seulement du texte en gras ?
Sans VBA, c'est enfantin, tu le sélectionnes et tu cliques sur l'icone "gras".
Par VBA, tu peux utiliser la position de la sous chaine pour le faire :

*** :
Sub MettreEnGras()
Range("A1") = "Automobile"
'Mettre en gras "bile"
Range("A1").Characters(7, 4).Font.Bold = True
End Sub
*** .

Denis Michon, (N°816)
Source => http://www.excelabo.net/excel/formatstexte.php

Je pense, que tu peux appelé une fonction, "MettreEnGras()" le résultat en cours de "calcul" ; et cette appel de la fonction, se trouve dans la formule, au bon endroit. La fonction, tu la fais toi-même, avec de l'aide, en te basant sur l'exemple intéressant ci-dessus. merci.

C'est très dur, de trouver une information, sur la fonction "style" ; à placer dans une formule !
Pour Microsoft Excel (c'est dur), comme avec OpenOffice.org Calc (plus facile de trouver) .
=> On fait, créé, un style, et on l'applique directement dans (à partir de) la formule ? (j'ai un doute)

merci .

à+

Anonyme · Answer

Salut


Mettre en gras une partie d'un texte sous Microsoft Excel :

https://sebsauvage.net/temp/wink/excel_vbarecord.html

Source => http://www.commentcamarche.net/forum
/affich-2073115-excel-comment-mettre-en-gras-avec-une-macro

Fonctions "cachées" XL4 ; Astuce récente : lire.cellule() ; sur (C) 2006 Excel Downloads :
https://www.excel-downloads.com/threads/astuce-recente-lire-cellule.32955/

Savoir si les cellules sélectionnées (Excel) sont en gras et italiques :
http://www.codyx.org/snippet_savoir-si-cellules-selectionnees-excel-sont-gras-italiques_336.aspx


Public Function IsBoldItalic(ByVal MyRange As Range) As String
    Dim rCell As Range
    
For Each rCell In MyRange
    IsBoldItalic = IsBoldItalic & rCell.Address & " :" & vbCrLf
    IsBoldItalic = IsBoldItalic & vbTab & "Gras : " & CBool(rCell.Font.Bold) & vbCrLf
    IsBoldItalic = IsBoldItalic & vbTab & "Italique : " & CBool(rCell.Font.Italic) & vbCrLf
Next rCell
End Function
Sub EXEMPLE()
    Debug.Print IsBoldItalic(Range("A1:A4"))
    
'       *** RESULTAT :  ***
'$A$1 :
'    Gras : Faux
'    Italique :  Faux
'$A$2 :
'    Gras : Vrai
'    Italique :  Faux
'$A$3 :
'    Gras : Faux
'    Italique :  Vrai
'$A$4 :
'    Gras : Vrai
'    Italique :  Vrai
End Sub


merci .

à+

thierry · Answer

Merci Anonyme pour toutes ces recherches, mais je n'ai rien trouvé qui correspondait a mon probleme.

En fait c'est plus compliqué que juste mettre en gras une partie de la cellule.
Un aute exemple:
en A1: Bonjour_
en A2: ca va_
en A3: oui_
en A4: et toi?
en B1: =A1&A2&A3&A4 (pour concatener)
et j'obtiens:
Bonjour_ca va_oui_et toi?
au lieu de 
Bonjour_ca va_oui_et toi?

En gro je voudrais conserver le format lors de la concatenation.

Merci d'avance

eriiic · Answer

Bonjour Thierry,

Pas facile mais interessante ta question.
J'ai d'abord voulu créer une fonction remplaçant CONCATENER mais impossible à résoudre.
J'ai donc créé un sub qui analyse la formule des cellules que tu lui passes en sélectionnant des plages et colle le résultat dans la cellule immédiatement à droite.
Je ne fais presque pas de controle donc ces formules doivent se limiter à = A1 & A2 & ... et  faire référence à des cellules qui ne contiennent que des chaines. Les attributs récupérés sont : gras, italique, souligné simple, couleur. Je n'ai pas regarder mais récupérer la police et la taille doit etre possible

Bien sûr c'est un premier jet mais c'est fonctionnel. Il faudra completer avec un user form permettant de choisir l'offset de destination, les attributs à récupérer, etc. J'ai prévu également de pouvoir insérer un retour chariot où l'on veut (pour vaucluse ;-)) mais non traité pour l'instant
Un exemple plus parlant : http://www.cijoint.fr/cij45591193727506.xls

Tu sélectionnes par exemple F3:F4 et F6:F8 et tu lances la macro RecupFormatCel
Tu vas pouvoir te faire de jolis dégradés ;-)

eric

eriiic · Answer

Re,

nouvelle version qui permet d'inserer une chaine "vbLf" forçant le retour à la ligne à l'intérieur du texte d'une cellule
http://www.cijoint.fr/cij2036478627532.xls

Attention toujours faire référence à une cellule, je ne traite pas (encore?) les formules du type =A1 & "blablabla" & A3 & ...
eric

Anonyme · Answer

Salut

Si tu peux "eriiic", s'il te plaît, utilises "Microsoft Excel Viewer", pour voir comment on voient la chose ; merci .
=> Ce sera très instructif ; pas de macro, vba, ou "autres trucs" activés ...

Regardes aussi avec OpenOffice.org Calc ; merci ; tous le monde n'a pas office ...
Essayes, si tu veux et si tu peux, heinn ;-), de faire des exemples visibles correctement par tous .
(merci)

Pour ma part ; je ne dit pas de faire ; comme l'exemple proposé au Post #8 :

B1: =A1&A2&A3&A4 (pour concaténer)
Mais plutôt ; si c'est possible :
B1: =MettreEnGras(A1)&MettreEnItalique(A2)&NeutreDefaut(A3)&NeutreDefaut(A4) (pour concaténer)

=> On appelle la fonction ; ici pour la mise en forme du texte, dans la formule ! ;-)
(Fonction que l'on fait soit-même!!)

heu, dans Excel, c'est pas possible d'utiliser la fonction caché "style", comme dans OpenOffice.org Calc ?
Je dit caché, car j'ai pas trouvé d'infos ... (voir svp liens posts précédents) .

merci "eriiic" et merci à tous .

à+

eriiic · Answer

Slt Anonyme,

Pour Open Office je ne me suis jamais penché sur les macros. Sans doute adaptable facilement.
Pour ce qui est de faire une fonction c'était mon idée de départ mais pas si facile crois moi. Dès que l'on retourne la valeur plus moyen de continuer le traitement pour faire la mise en forme et d'acceder à l'adresse sans avoir une référence circulaire, et si on s'y prend autrement on perd les attributs déjà mis... (à creuser mais pour l'instant j'en suis là)
A la limite l'option de faire une proc présente un avantage : pouvoir traiter un tableau déjà fait pour peu qu'on libère les cellules recevant le résultat, par contre pas de mise à jour dynamique :-s
Mais bon, il y a des améliorations possibles, c'était au départ pour voir la faisabilité sans faire trop de contrôles ni d'analyse trop poussée de la formule. 

A défaut du viewer voici une capture écran. 
Les formules de concaténation sont en colonne H, le résultat de la macro en colonne I
J'ai pris l'option d'une chaine spécifique pour les retours à ligne, d'où les "vbLf"
http://www.cijoint.fr/cij73148756327527.jpg

Le code en VBA pour adaptation en Open Office:
Const LF As String = "vblf"
Sub RecupFormatCel()
    Dim c1 As Range, c2 As Range, dest As Range
    Dim i As Integer, long1 As Long, ptr1 As Long, ptr2 As Long
    Dim formatCel As Variant
    Dim ListeRef As Variant
    For Each c1 In Selection
        f = c1.Formula
        If Left(f, 1) <> "=" Then 'formule ?
            Exit Sub
        Else
            f = Mid(c1.Formula, 2) 'oui: eliminer =
        End If
        Set dest = c1.Offset(0, 1) 'cellule de destination
        dest.Value = c1.Value
        ListeRef = Split(f, "&") ' découper la formule
        '
        ' remplacement des "vbLF" par vbLf
        While InStr(1, LCase(dest.Value), LF)
            pos = InStr(1, LCase(dest.Value), LF)
            dest = Left(dest.Value, pos - 1) & vbLf & Mid(dest.Value, pos + Len(LF))
        Wend

        ' récupération des formats
        ptr1 = 1
        For i = 0 To UBound(ListeRef)
            Set c2 = Range(ListeRef(i)) ' adresse de la chaine
            long1 = Len(c2.Value) ' longueur de la chaine
            'ptr2 = ptr2 + long1
            If LCase(c2.Value) = LF Then
                ' traitement vbLF
                long1 = 1
            Else
                With c2.Font
                    formatCel = .FontStyle
                    dest.Characters(Start:=ptr1, Length:=long1).Font.FontStyle = formatCel
                    formatCel = .ColorIndex
                    dest.Characters(Start:=ptr1, Length:=long1).Font.ColorIndex = formatCel
                    formatCel = .Underline
                    dest.Characters(Start:=ptr1, Length:=long1).Font.Underline = formatCel

                End With
            End If
            ptr1 = ptr1 + long1
        Next i
    Next c1
End Sub
Sub test()
    Range("H3:H5,H7:H8").Select
    RecupFormatCel
End Sub
Sub raz()
    Range("I3:I8").ClearContents
End Sub

eric

thierry · Answer

Bonjour, 

Merci de vous pencher autant sur ma question, j'en attendais pas tant. Visiblement il n'y a pas de reponse pas trop compliquée.
Mais mettre à la main en gras la quantité de données que j'ai est bien inférieur au temps passer a essayer de faire ca rapidement, du coup il n'y a pas trop de valeur ajoutée.

Si vous voulez continuer à chercher une solution, il n'y a pas de problème, je garderai un oeil sur la discussion, mais de mon perspective, c'est plus simple de laisser tomber et de faire a la main. Merci a eriiic et a anonyme.

Ciao
Thierry

Anonyme · Answer

Salut

merci beaucoup "eriiic" pour les infos, l'aide, et la conversion pour OpenOffice.org Calc !

(merci à tous aussi, de réfléchir au problème) ou auX problèmeS soulevés dans les réponses ! :-)

(Essayons de donner une solution, à toutes les questions posées ici, indirectement dans les réponses)

* Le tableur, Microsoft Excel ou OpenOffice.org Calc, c'est pas facile ! ...

merci "eriiic", et merci à tous, pour plus d'infos et d'aide . merci .

à+

eriiic · Answer

Derniere version avec choix de l'offset :  http://www.cijoint.fr/cij77852548227558.xls 
(offset 0 remplace les formules par les chaines mises en forme)

Const LF As String = "vblf"
Sub RecupFormatCel()
    Dim c1 As Range, c2 As Range, dest As Range
    Dim i As Integer, long1 As Long, ptr1 As Long, offset1 As Long
    Dim formatCel As Variant
    Dim ListeRef As Variant
    Dim msg As String
    msg = "A quel offset (en colonnes) coller le résultat ?" & vbCrLf
    msg = msg & "(si offset = 0 la formule d'origine " & vbCrLf
    msg = msg & "sera remplacée par la chaine formatée)"
    offset1 = InputBox(msg, "Choix offset résultat")

    For Each c1 In Selection
        f = c1.Formula
        If Left(f, 1) <> "=" Then 'formule ?
            MsgBox ("Erreur" & vbCrLf & "La cellule " & c1.Address & " ne contient pas de formule de concatenation")
            Exit Sub
        Else
            f = Mid(c1.Formula, 2) 'oui: eliminer =
        End If
        Set dest = c1.Offset(0, offset1) 'cellule de destination
        dest.Value = c1.Value
        ListeRef = Split(f, "&") ' découper la formule
        '
        ' remplacement des "vbLF" par vbLf
        While InStr(1, LCase(dest.Value), LF)
            pos = InStr(1, LCase(dest.Value), LF)
            dest = Left(dest.Value, pos - 1) & vbLf & Mid(dest.Value, pos + Len(LF))
        Wend

        ' récupération des formats
        ptr1 = 1
        For i = 0 To UBound(ListeRef)
            Set c2 = Range(ListeRef(i)) ' adresse de la chaine
            long1 = Len(c2.Value) ' longueur de la chaine
            If LCase(c2.Value) = LF Then
                ' traitement vbLF
                long1 = 1
            Else
                With c2.Font
                    formatCel = .FontStyle
                    dest.Characters(Start:=ptr1, Length:=long1).Font.FontStyle = formatCel
                    formatCel = .ColorIndex
                    dest.Characters(Start:=ptr1, Length:=long1).Font.ColorIndex = formatCel
                    formatCel = .Underline
                    dest.Characters(Start:=ptr1, Length:=long1).Font.Underline = formatCel

                End With
            End If
            ptr1 = ptr1 + long1
        Next i
    Next c1
End Sub
Sub test()
    Range("H3:H5,H7:H8").Select
    RecupFormatCel
End Sub
Sub raz()
    Range("I3:I8").ClearContents
End Sub

UsulArrakis · Answer

Pour suivre

nicooo · Answer

très belle démo pour les styles appliqués au texte, mais qu'en est-il quand il s'agit d'un format personnalisé ?

exemple :

valeurs entrées : A1=5    B1=10
valeurs affichées : A1=0005   B1=0010

et j'aimerais réussir à concatener les valeurs en conservant leur format (ex : C1 = [0005;0010]

Est-ce possible ?

Merci pour votre aide !



...faut vraiment que je me mette aux macro -_-

eriiic · Answer

Bonsoir,

C'est possible mais tes valeurs perdront le type numérique, ce sera une chaine de caractère.
C1: ="[" & DROITE("0000" & A1;4) & ";"  & DROITE("0000" & B1;4) &  "]"

eric

COCO · Answer

BONJOUR

VOICI COMMENT FAIRE

A1 Bonjour
a2 ça va

a3 =a1 & a2 
réslutat Bonjour ça va dans celulle a3


@+
coco

AGO · Answer

re demande je pense ne pas avoir été clair dans ma demande

colonne A                                                      colonne B               colonne C
08GSAV3703 (CC0810-140/6000076520749.)	    OC133                    OC133
08TUNI3757 (88520)	                                    CF083
08TUNI3757 (88520)	                                    CF084
08TUNI3757 (88520)	                                    CF088                     CF083/CF084/CF088/CF130
08TUNI3757 (88520)                                      cF130
07HITR0059 (CC0804-73/07GB04052)	    KIT194                    KIT194
08ANSA4463   REPRISE 100 PANIERS PESR	    ZF218
08ANSA4463   REPRISE 100 PANIERS PESR	   ZC426                      ZC426 / ZF218


Dans ma colonne A j'ai des lignes de textes identiques
Je souhaite concatener l'ensemble des données des cellules de la colonne B qui ont un texte indentique dans la colonne A dans une colonne C
Les textes de kla colonne A seront toujours triées donc les textes identiques à suivre

Merci de me donner un exemple de formule

Nico · Answer

Bonjour

Copie de la réponse faite au post 'CONCATENER' :

On peut aussi faire tout simple : 

Le tableau commençant en A1 
On écrit en C1 : 
=B1 

On écrit en C2 : 
=SI(A2=A1;CONCATENER(C1&B2);B2) 

On copie C2 jusqu'à la fin de la colonne C 

On peut faire disparaitre les concaténations intermédiaires pour ne voir que la dernière 
par la mise en forme conditionnelle. 

Soit pour C1 : 
'La formule est' 
=A1=A1 
(ne pas laisser les $ en cas de sélection par clic) 

A recopier jusqu'en bas de la colonne C.

Saratum · Answer

J'ai le même genre de problême actuellement...  
En fait, moi je veux assigner un nouveau format aux texte écris dans ma cellule source, dans ma cellule finale... 


Quelqu'un vient de me donner un bon coup de pouce avec la formule excel texte....  

j'avais un format de chiffre que je voulais avoir en format monétaire...   fac ma concatener ressemble maintenant à.. =CONCATENER(QW589;RJ589;TW589&TEXTE(UB589;"# ## ##0_ $");UO589;QW590;QW591)

Cela dit j'ai un autre problême...  je veux que RJ589 et TEXTE(UB589;"# ## ##0_ $" affichent leur résulat en gras...   comment faire ?

Je veux procéder sans macro si possible, ce fichier opèrera sur plusieurs ordinateurs....

Maxx' · Answer

J'ai très simple pour les nombres !
=> voir dans le forum suivant, j'ai essayé et ca marche.. :
https://www.excel-downloads.com/threads/format-nombre-dans-concatener.67464/

Il reste à transposer avec la bonne formule pour le format du texte.. là dessus je ne peux vous aider car ne connait pas l'équivalent du format "millier" qui s'écrit "# ###"  pour le format "CaractèreGras"

.. Peut être en précisant <gras> ??

Excel: concatenation et format

24 réponses

Discussions similaires