XL 2010 bug fonction circulaire

[herve62]

bonsoir
J'aimerai regrouper toutes les informations en colonnes et les retranscrire en ligne avec chaque FORMAT( gras , couleur, ..etc) de chaque cellule
avec une 'Sub' ok par contre pour que cela soit valable partout , je mets en fonction .. et là ça bug ?
merci de m'expliquer

 

[ChTi160]

Bonsoir Hervé
j'ai modifié ainsi ce qui posait problème!

Function CAformat(cells_c As Range) As String
'je dois récapituler en D1 en gardant tous les formats des cellules
Dim tmp, ch As String, ad As Range, i As Long, j As Long
    tmp = cells_c.Value
    y = Application.Caller.Address
    a = cells_c.Count
        For Each c In cells_c
        ch = ch & c.Value & " "
        Next c
  CAformat = ch 'ici
  i = 1
        For j = 0 To a - 1
            With Range(y).Characters(i, Len(tmp(j + 1, 1)) + 1).Font
                .Color = cells_c.Cells(1).Offset(j).Font.Color
                .Bold = cells_c.Cells(1).Offset(j).Font.Bold
                .Italic = cells_c.Cells(1).Offset(j).Font.Italic
            End With
            i = i + Len(tmp(j + 1, 1)) + 1
        Next j
    'CAformat=  LE RESULTAT EN D1 DEVRAIT ËTRE ICI ?????
End Function

En espérant avoir fait avancé le Chimilimblick
jean marie

 

[job75]

Bonsoir herve62, ChTi160,

Avec une fonction VBA matricielle :

Function CAformat(cells_c As Range)
Dim a(), i&
ReDim a(1 To cells_c.Count, 1 To 3)
For i = 1 To cells_c.Count
    With cells_c(i).Font
        a(i, 1) = .Color
        a(i, 2) = .Bold
        a(i, 3) = .Italic
    End With
Next
CAformat = a 'matrice
End Function

A+

 

[herve62]

Merci bien à vous des réponses
@job75 désolé ce n'est pas ce que j'ai demandé , voir soluce chti160 plus proche
JM : ok sauf que le FORMAT n'est pas respecté pour chaque cellule .. exemple : le GRAS, les couleurs ??
Sinon çà fonctionne , mais ce que j'avais fait avant aussi !!! le Pb reste le FORMAT

 

[ChTi160]

Ok
je vais regarder Lol
Bonne fin de Soirée
jean marie

 

[herve62]

Merci JM
mon truc fonctionnait en SUB mais plus en fonction ?? c'est le pourquoi de ce que je cherche
A toi aussi Good night

 

[job75]

@job75 désolé ce n'est pas ce que j'ai demandé

Si ce que vous demandez est de mettre en forme le texte renvoyé par une formule ce n'est pas possible :

https://www.excel-downloads.com/thr...texte-dans-la-cellule.20057197/#post-20430172

Bonne fin de soirée.