Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Liste commence en A2:
Sub essai() ligne = 0 For Each c In Range([A2], [a65000].End(xlUp)) For i = 1 To c.Value [G2].Offset(ligne, 0) = c.Offset(0, 1).Value ligne = ligne + 1 Next i Next c End Sub
Cordialement JB
Bonjour,
Liste commence en A2:
Sub essai()
ligne = 0
For Each c In Range([A2], [a65000].End(xlUp))
For i = 1 To c.Value
[G2].Offset(ligne, 0) = c.Offset(0, 1).Value
ligne = ligne + 1
Next i
Next c
End Sub
Sub essai() ligne = 0 For Each c In Range([A2], [a65000].End(xlUp)) For i = 1 To c.Value [G2].Offset(ligne, 0) = c.Offset(0, 1).Value ligne = ligne + 1 Next i Next c End Sub
Cordialement JB
Tintin92
Merci. ça à l'air de marcher. On va voir à l'usage. ;-)
Tintin92
Merci.
ça à l'air de marcher.
On va voir à l'usage. ;-)