Affichez la liste des données

[cyberjimmy]

Désolé pour le texte pas très explicite, mais puisque un exemple vaut mieux qu'un long discours, voilà ce que je cherche à faire : (fichier joint)

 

[suistrop]

Re : Affichez la liste des données

hello,

vite fais en passant ...

Sub caca()
c = 3
Cells(4, 9) = "caca"
For i = 4 To Range("D65536").End(xlUp).Row
    For y = 1 To Cells(i, 5)
        Cells(c + y, 10) = Cells(i, 4)
    Next y
    c = c + Cells(i, 5)
Next i
End Sub

 

[BERRACHED said]

Re : Affichez la liste des données

Salut,cyberjimmy,Suitrop

le code de Notre ami Suitrop une peut Modifier :

Sub caca()
Mise_EnForme
c = 3
Cells(4, 9) = ""
For i = 4 To Range("D65536").End(xlUp).Row
    For y = 1 To Cells(i, 5)
        Cells(c + y, 10) = Cells(i, 4)
    Next y
    c = c + Cells(i, 5)
Next i
End Sub

tu ajoute ca pour la mise en forme :

Sub Mise_EnForme()
    If ActiveCell.Range("E4").Select Then
    Range("J4:J25").ClearContents
    End If
End Sub

Cordialement