Microsoft 365 Liste de mots avec respect nb occurences

[Ananke]

Bonjour à tous,

Je suis bloquée sur un problème bête...

A partir de ce tableau :

Nb occurrence souhaité	Mot à répéter
2	IPC
1	PPT
3	AKL

Je veux générer ce résultat :

IPC
IPC
PPT
AKL
AKL
AKL

Est ce que vous avez une idée ?

Bonne journée

 

[sylvanu]

Bonjour Ananke,
En PJ un essai avec :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:B100")) Is Nothing Then
        If Target = "" Then Exit Sub
        DerLig = Range("A65500").End(xlUp).Row
        Range("E:E").ClearContents
        Nw = 1
        For i = 2 To DerLig
            Nb = Cells(i, "A")
            For Nfois = 1 To Nb
                Cells(Nw, "E") = Cells(i, "B")
                Nw = Nw + 1
            Next Nfois
        Next i
    End If
End Sub

La macro se déclenche lorsqu'on modifie la liste en colonnes A:B.

 

[WTF]

Bonjour Anake,
Une proposition qui passe par PowerPivot.
Uniquement besoin de cliquer sur "Données/Actualiser"

A+

 

[Ananke]

J'avais eu le temps de bricoler un truc bizarre en 3 étapes avec Rept(), Concat(), et Stxt()...

Merci pour vos deux solutions qui fonctionnent parfaitement