XL 2013 Répéter des cellules en fonction d'une valeur

[belaibariadh]

Bonjour à tous,

J'aimerai bien trouver une solution pour répéter des cellules en fonction d'une valeur.
Exemple:
Ligne1: F X C D
Ligne2: 2 1 3 2

L'excel renvoi alors:
D
D
C
C
C
X
F
F

Chaque valeur dans une cellule biensur.

dans l'attente de vos réflexion et merci en avance.

 

[mapomme]

Bonsoir belaibariadh et bienvenue sur XLD,

Un essai en VBA dans le fichier joint. Le code est dans Module1.

Sub deployer()
Dim tablo, Nbr&, res(), j&, i&, n&

  Sheets("Feuil1").Activate
  tablo = Range("b2:b3").Resize(, Cells(2, Columns.Count).End(xlToLeft).Column - 1)
  For j = 1 To UBound(tablo, 2): Nbr = Nbr + tablo(2, j): Next
  ReDim res(1 To Nbr, 1 To 1)
  For j = UBound(tablo, 2) To 1 Step -1
    If tablo(2, j) > 0 Then
      For i = 1 To tablo(2, j)
        n = n + 1
        res(n, 1) = tablo(1, j)
      Next i
    End If
  Next j
  Range("b7") = "xxx"
  Range(Range("b7"), Cells(Rows.Count, "b").End(xlUp)).Clear
  Range("b7").Resize(Nbr) = res
End Sub

 

[belaibariadh]

Bonsoir mapomme,

Merci énormément pour le fichier, je vous dois une fière chandelle.

Cependant je suis très débutant en VBA, j'ai voulu copier le code sur un autre fichier mais forcement ça n'a pas marché 🙂

Que dois je modifier si vous le permettez?

 

[cathodique]

Il faut joindre l'autre fichier. Mapomme😉 n'est devin😀

 

[mapomme]

Re,

Et comme l'a justement suggéré Cathodique que je salue 😉:

Il faut joindre l'autre fichier. Mapomme😉 n'est pas devin 😀