Fonction Concatener avec conservation MEF

Version imprimable

10/10/2023, 20h54
Mut_mut

Fonction Concatener avec conservation MEF

Bonjour à tous.

Je cherche à développer une fonction excel sous VBA qui permettrait de concatener le texte de plusieurs cellules (jusque là, fonction identique à CONCATENER(args) ), mais qui conserve également la mise en forme du texte de chacune des cellules.
J'ai réussi à créer une fonction qui concatene le texte des cellules et qui stocke les differents paramètres de MEF des cellules dans un array mais je ne sais pas si cest possible de faire en sorte que la fonction applique elle même les différentes mises en forme au résultat qu'elle retourne.
Est-ce réalisable selon vous?
12/10/2023, 01h48
EricDgn

Bonjour,

Un post qui traite de ce sujet: VBA code to concatenate and preserve formatting

Cordialement.
12/10/2023, 02h15
Mut_mut

Le problème c'est que ce n'est pas une fonction donc les ranges sont fixes.
Créer une procédure, je saurais faire si les adresses de cellules étaient toujours les mêmes. mais je cherche une solution dynamique
12/10/2023, 11h43
Tête de chat
Bonjour,

Citation:

elle même les différentes mises en forme au résultat qu'elle retourne.

Je crois que ce qu'il te manque c'est ThisCell objet range qui représente la cellule qui contient la fonction au moment de son évaluation.

Par exemple :
Code:

1 2 3 Public Function QuiSuisJe() As String QuiSuisJe = Application.ThisCell.Address End Function
Sauf que sauf erreur tu ne peux pas à la volée modifier le format de la cellule (voir aussi application.caller avec la même limite). Il faudrait alimenter une pile etc. c'est chaud.

1 pièce(s) jointe(s)

Oula... tu m'as perdu là :oops:

j'vais creuser pour voir si ThisCell peut m'aider.
En attendant voici mon ébauche de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
    Function CONCATENERMEF(p As Range) As String
 
    Dim NbCar As Integer
    Dim i As Integer, j As Integer
    Dim FormatF() As Variant ' Tableau pour stocker les paramètres de mise en forme
 
 
    ' Initialiser la chaîne de texte concaténée
    Concat = ""
    i = 0
 
 
 
      'On redimensionne la table en fonction du nombre de cellule
    ReDim FormatF(1 To p.Cells.Count, 1 To 7) ' 7 paramètres de mise en forme
 
     'Boucler sur chaque cellule de la plage
    For Each c In p
 
        ' la chaîne concaténée
            Concat = Concat & c.Text
 
 
            ' Copier les paramètres de mise en forme du caractère actuel dans le tableau
             i = i + 1
            FormatF(i, 7) = Len(c.Text)
            FormatF(i, 1) = c.Font.Name
            FormatF(i, 2) = c.Font.Size
            FormatF(i, 3) = c.Font.Color
            FormatF(i, 4) = c.Font.Bold
            FormatF(i, 5) = c.Font.Italic
            FormatF(i, 6) = c.Font.Underline
 
    Next c
 
    For j = 1 To i
            Debug.Print FormatF(i, 1)
            Debug.Print FormatF(i, 2)
            Debug.Print FormatF(i, 3)
            Debug.Print FormatF(i, 4)
            Debug.Print FormatF(i, 5)
            Debug.Print FormatF(i, 6)
            Debug.Print FormatF(i, 7)
    Next j
 
    ' Retourner le résultat
    CONCATENERMEF = Concat
 
 
End Function

L'idée serait de pouvoir reformater le résultat "Concat" en même temps. Grâce au tableau, je récupère la longueur de chaine ainsi que les paramètres de MEF de chaque cellule
Dans le classeur ci-joint, des exemples de type de format que je souhaiterais transmettre à la cellule concaténée
Pièce jointe 645208 Pièce jointe 645208

13/10/2023, 15h48
Tête de chat

Bonjour,

en me repenchant sur le sujet...

C'est perdu d'avance avec une formule : on ne peut pas poser de mise en forme "caractère par caractère" sur une formule, seulement sur un texte simple.

La solution passera forcément par un sub VBA qui va poser le résultat du concat dans la cellule et donc qui n'aura pas, lui, de problème particulier pour poser les formats en même temps.

La difficulté (ou pas) étant alors
1. de paramétrer au mieux le VBA pour qu'il identifie la range cible et les colonnes source, fonction de ce que tu cherches en termes de souplesse de mise en oeuvre / mise à jour
2. de trouver un déclencheur (bouton, événement...) pour lancer ce VBA.
14/10/2023, 01h27
Mut_mut

oui c'est bien ce qui me semblait...
j'ai l'impression que le seul truc à peu prêt optimal, est de demander à l'utilisateur de sélectionner des ranges à concatener via des inputbox, puis de les traiter avec une sub une fois le dernier range sélectionné.
Ce n'est pas hyper pratique mais dans le cadre de mon usage ça devrait être acceptable