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

20100at Messages postés 2 Statut Membre -  
20100at Messages postés 2 Statut Membre -
Bonjour,
Je recherche une macro pour créer une liste a partir de valeur min max
tableau ci-dessous


Merci
Bonne journée

1 réponse

  1.
    Frenchie83 Messages postés 2254 Statut Membre 339
     
    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
    1. 20100at Messages postés 2 Statut Membre
       
      Parfait, cela fonctionne.
      Merci
      Bonne journée.
      0