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 Science sans conscience n'est que ruine de l'Ame

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

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

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

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 (_Usul d'Arrakis
Serial_Dreamer_)

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

De rien :-)
Bonne soirée à toi