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

Hervé

XLDnaute Barbatruc

• 2 Janvier 2014

• #2

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

salut🙂

un essai en pièce jointe

Code:

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

 

Pièces jointes

• Copie de défalcation.xls

  35.5 KB · Affichages: 20

Vote positif 0 Vote négatif

A

aminos88

Guest

• 2 Janvier 2014

• #3

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

 

Pièces jointes

• exemple réel .xlsx

  50.7 KB · Affichages: 24

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 2 Janvier 2014

• #4

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

 

Pièces jointes

• Copie de exemple réel .xls

  110 KB · Affichages: 32

Vote positif 0 Vote négatif