Répeter valeur suivant cellule

Bonjour,

J' ai saisie la colonne F manuellement, comment obtenir le résultat automatiquement via une macro ou autre?

La longueur est répétée autant de fois autant quelle est spécifiée dans la cellule nombre.

Mon fichier est bien plus volumineux je ne peux hélas pas faire le traitement manuellement.

Merci pour votre temps et votre aide

11help.xlsm (8.15 Ko)

Bonsoir,

Là une petite macro sera beaucoup plus simple que des formules.

Sub SaisieEnNombre()
    Dim v, n&, k%, m%
    k = 2: n = 2
    With ActiveSheet
        Do
            m = .Cells(k, 1): v = .Cells(k, 2)
            .Cells(n, 6).Resize(m).Value = v
            n = n + m: k = k + 1
        Loop While .Cells(k, 2) <> ""
    End With
End Sub

Cordialement.

16fred.xlsm (18.89 Ko)

Merci MFerrand, c 'est nikel.

Sub Automatisation()

Dim j As Integer, Cellule As Range

Columns(6).ClearContents

For Each Cellule In Range("A2", Range("A" & Rows.Count).End(xlUp))

For j = 1 To Cellule

Range("F" & Rows.Count).End(xlUp).Offset(1, 0) = Cellule.Offset(0, 1)

Next j

Next Cellule

End Sub

Rechercher des sujets similaires à "repeter valeur suivant"