Par défaut formule pour faire une incrémentation sur un intervalle

[aminos88]

Bonjour,
j'ai un grand fichier dont le travail qui m'a été demandé est de faire ceci:
de passé de cette format

numDébut numFin Description
1000 1007 A100044

à cette format

Num Desciption
1000 A100044
1002 A100044
1003 A100044
1004 A100044
1005 A100044
1006 A100044
1007 A100044

merci de m'aider c'est très urgent

 

[Hervé]

Re : Par défaut formule pour faire une incrémentation sur un intervalle

salut🙂

un essai en pièce jointe

Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer
Dim k As Integer, nb As Integer

j = 1
Range("e2:f5000").Clear
For i = 2 To Range("a65536").End(xlUp).Row
    nb = Cells(i, 2) - Cells(i, 1)
    For k = 1 To nb
        j = j + 1
        Cells(j, 5) = Cells(i, 1) + k
        Cells(j, 6) = Cells(i, 3)
    Next k
Next i

End Sub

a plus

 

[aminos88]

Re : Par défaut formule pour faire une incrémentation sur un intervalle

Merciiiiiiiiiiii c exactement ça
mais j'ai essayer de l'adapter à mon exemple mais j'ai pas pu
voila ci joint mon exemple est ce que vous pouvez m'aider 😀
ci-joint mon fichier
merci

 

[Hervé]

Re : Par défaut formule pour faire une incrémentation sur un intervalle

re

ton fichier avec les modifications, résultat renvoyé en feuil2

code commenté

a plus