Créer une liste a partir de bornes (macro)

20100at Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
20100at Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Je recherche une macro pour créer une liste a partir de valeur min max
tableau ci-dessous


Merci
Bonne journée
A voir également:

1 réponse

Réponse 1 / 1
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   338
 
Bonjour
Voici 
Sub CreationListe()
    Application.ScreenUpdating = False
    Lig = 3
    DerLig = [A1000].End(xlUp).Row
    For L = 2 To DerLig
        Cells(Lig - 1, "E") = Cells(L, "A")
        b = Cells(L, "A")
        Do While b + 1 <= Cells(L, "B")
            Cells(Lig, "E") = b + 1
            b = b + 1
            Lig = Lig + 1
        Loop
        Lig = Lig + 1
    Next L
End Sub

Cdlt
0
20100at Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Parfait, cela fonctionne.
Merci
Bonne journée.
0