XL 2016 Concatener particulier

piga25 · 23 Juillet 2018

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 · 23 Juillet 2018

Bonjour piga25,

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

Code:

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 · 23 Juillet 2018

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 · 23 Juillet 2018

Bonsour®

piga25 à dit:
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 ?

VB:

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 · 23 Juillet 2018

piga25 à dit:
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 · 23 Juillet 2018

job75 à dit:
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 · 24 Juillet 2018

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.

XL 2016 Concatener particulier

piga25

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

piga25

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

piga25

XLDnaute Barbatruc

piga25

XLDnaute Barbatruc

Discussions similaires