Création automatisée d'une sous-liste

Bonjour,

Je bloque actuellement sur le problème que voici:

Dans un premier onglet j'ai sur la colonne A une liste de noms d'équipements (chaque équipement a un nom unique) et sur la colonne B un nombre correspondant au nombre de cartes correspondant sur l'équipement.

Par exemple:

A B

TRGFPB 3

YHKFGBL 2

JKGTJ 5

Je cherche à avoir dans un second onglet en colonne A une liste référençant toutes les cartes sous la forme "nom de l'équipement"_"numéro de carte"

Exemple:

A

TRGFPB_1

TRGFPB_2

TRGFPB_3

YHKFGBL_1

YHKFGBL_2

JKGTJ_1

JKGTJ_2

JKGTJ_3

JKGTJ_4

JKGTJ_5

Je ne sais vraiment pas comment faire et je ne sais d'ailleurs pas si c'est possible de manière automatisée.

Merci

Bonjour,

A essayer :

Sub ListerCartes()
    Dim Lst(), n%, i%, nn%, c%, nc$
    With Worksheets(1)
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        nn = WorksheetFunction.Sum(.Range("B1:B" & n))
        ReDim Lst(1 To nn, 0): nn = 0
        For i = 1 To n
            nc = .Cells(i, 1) & "_"
            For c = 1 To .Cells(i, 2).Value
                nn = nn + 1: Lst(nn, 0) = nc & c
            Next c
        Next i
    End With
    Worksheets(2).Range("A1").Resize(nn).Value = Lst
End Sub

Pas testé (pas de fichier).

Merci pour ta réponse.

C'est bien ce que je pensais (craignais) il faut une macro.

Je vais me plonger dans les macros pour essayer de mettre en pratique ton programme.