XL 2016 Concatener particulier

[piga25]

Bonjour,

Est-il possible dans une formule concatener, au lieu de répéter deux ou plusieurs fois la même chose (dans le résultat) d'indiquer le nombre de fois que cela est répété devant et si possible par formule.
Pour l'instant je n'ai rien trouvé.
Ex: RN AM AM, j'aimerai que cela indique RN 2AM

Le fichier exemple sera beaucoup plus parlant.

Par VBA je pense que cela soit possible. Mais pas encore assez doué pour y parvenir.

Cordialement

 

[job75]

Bonjour piga25,

Cette fonction VBA est utilisée en A9:A14 :

Function Joindre$(P As Range, Q As Range)
Dim d As Object, i As Byte, a, b
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To 5
    If P(i) <> "" And Q(i) <> 0 Then d(P(i).Value) = d(P(i).Value) + 1
Next
If d.Count = 0 Then Exit Function
a = d.keys: b = d.items
For i = 0 To UBound(a)
    Joindre = Joindre & " " & IIf(b(i) = 1, "", b(i)) & a(i)
Next
Joindre = LTrim(Joindre)
End Function

Fichier joint.

A+

 

[piga25]

Bonjour JOB75 et le forum,

Merci.
Pas encore tout compris dans le code, mais si je veux avoir bien les 7 jours de la semaine, j'ai changé :
For i = 1 To 5 en For i = 1 To 7

Toujours un plaisir de te lire. Merci

 

[Modeste geedee]

Bonsour®

Bonjour,

Est-il possible dans une formule concatener, au lieu de répéter deux ou plusieurs fois la même chose (dans le résultat) d'indiquer le nombre de fois que cela est répété devant et si possible par formule.
Pour l'instant je n'ai rien trouvé.
Ex: RN AM AM, j'aimerai que cela indique RN 2AM
Le fichier exemple sera beaucoup plus parlant.
Par VBA je pense que cela soit possible. Mais pas encore assez doué pour y parvenir.
Cordialement

Fonctions personnalisées , c'est parlant ?

Function RN(plage As Range)
Dim x As Integer
x = Application.CountIf(plage, "RN")
If x = 0 Then Exit Function
RN = IIf(x > 1, x, "") & "RN "
End Function

Function AM(plage As Range)
Dim x As Integer
x = Application.CountIf(plage, "AM")
If x = 0 Then Exit Function
AM = IIf(x > 1, x, "") & "AM "
End Function

le principe peut être étendu à d'autres abréviations

 

[job75]

Pas encore tout compris dans le code, mais si je veux avoir bien les 7 jours de la semaine, j'ai changé :
For i = 1 To 5 en For i = 1 To 7

Ok mais alors au post #1 pourquoi concaténer seulement 5 cellules ???

 

[piga25]

Ok mais alors au post #1 pourquoi concaténer seulement 5 cellules ???

Oups, je n'avais pas modifié sur le fichier qui me sert d'exemple.

 

[piga25]

Bonsoir Modeste Geedee,

Pas mal également ta fonction. Ce n'est pas exactement la réponse que je recherche, mais elle va me servir pour un autre projet. Donc merci.
Celle de Job75, correspond exactement à mon attente.

Merci à vous deux et chapeau pour la rapidité des réponses.