Excel: concatenation et format

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

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

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

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

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

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 .

à+

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 .

à+

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

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

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

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 .

à+

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

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

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 .

à+

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

Pour suivre

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 -_-

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

BONJOUR

VOICI COMMENT FAIRE

A1 Bonjour
a2 ça va

a3 =a1 & a2
réslutat Bonjour ça va dans celulle a3

@+
coco