Discussion :

[tyson00]

Bonjour,

Je vous explique mon "petit"problème :

J'ai un fichier excel avec une ligne par range de numéro, c'est à dire par exemple en A1 (33321898720) et en B1 le nombre de numéro correspondant à ce range, par exemple 10 (donc un range de 10 numéros).
Je souhaiterais réaliser une macro qui me permettrait, sur une autre feuille, de me créer automatiquement une colonne qui ajouterait les 10 lignes de numéros en commençant donc par "33321898720" et en se terminant par "33321898729".

J'ai 800 lignes à effectuer comme cela, donc une macro me ferait gagner énormement de temps.

Mille merci d'avance pour votre aide

Cordialement

[eriiic]

Bonjour,

si j'ai bien compris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub liste()
    Dim datas, result() As Double, ref As Double
    Dim lig1 As Long, lig2 As Long, nb As Long, i As Long
 
    datas = [A2].Resize(Cells(Rows.Count, 1).End(xlUp).Row - 1, 2).Value
    nb = Application.Sum(Columns(2))
    ReDim result(1 To nb, 1 To 1)
    For lig1 = 1 To UBound(datas)
        ref = datas(lig1, 1)
        For i = 0 To datas(lig1, 2) - 1
            lig2 = lig2 + 1
            result(lig2, 1) = ref + i
        Next i
    Next lig1
    [D2].Resize(Cells(Rows.Count, 4).End(xlUp).Row).ClearContents
    [D2].Resize(nb) = result
End Sub

eric