Afficher sur plusieurs lignes en fonction de critères

Bonjour à tous,

J'ai un nombre d'onduleur pour chaque type d'onduleur et j'aimerai afficher sur des lignes différentes les références des onduleurs.

Exemple : nombre d'onduleur "de type 1" : 2

nombre d'onduleur "de type 2" : 3

Ligne 1 : onduleur type 1

Ligne 2 : onduleur type 1

Ligne 3 : onduleur type 2

Ligne 4 : onduleur type 2

Ligne 5 : onduleur type 2

Je vous joins le fichier, si vous avez des solutions (VBA ou Excel) ça me remplirait de joie :)

Merci

Bonjour Lamzo,

Voici un premier bout de code à adapter selon les plages et différentes contraintes.

Sub ListerLesOnduleurs()
Range("K7:K20000").ClearContents
n = 7
For Each cel In Range("G7:G9")
    For i = cel To 1 Step -1
        Range("K" & n) = cel.Offset(0, -1)
        n = n + 1
    Next i
Next cel
End Sub

A+

Merci Gabin37,

Pour mon fichier original, le but est de faire cela automatiquement en changeant des valeurs sur une autre feuille.

Je n'arrive pas à adapter ta macro...

Je te joins mon fichier à jour avec ma tentative d'adaptation

En gros, on change le nombre d'onduleur en E4:E6 de la feuill2 et je veux qu'en feuill1 D33:D40 on affiche la liste des onduleurs

Lamzo, je regarde cela après manger !

re,

peux-tu tester ce code stp cela devrais fonctionner

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E4:E6")) Is Nothing Then
Worksheets("Feuil1").Range("D33:D40").ClearContents
n = 33
For Each cel In Worksheets("Feuil1").Range("F6:F8")
    For i = cel To 1 Step -1
        Worksheets("Feuil1").Range("D" & n) = cel.Offset(0, -1)
        n = n + 1
    Next i
Next cel
End If
End Sub

En effet ça fonctionne très bien ! Merci mille fois