Copie automatique valeur du dessus

Bonjour a tous

Je bug sur un code qui a l'ai pourtant simple a créer.

J'ai une valeur dans la cellule A1

La cellule A2 est vide

Autre valeur dans celleule A3

Cellule A4 vide

Etc.... sur plus de 500 lignes

J'aimerais une macro qui puisse copier la valeur A1 en A2, A3 en A4... etc

le nombre de ligne n'est pas défini, donc valeur relative sur le nombre de ligne

Pouvez vous m'aider svp?

%Erci

Mes valeurs sont stockées dans un tableau nommé Tableau1

Bonjour Neodule,

à tester:

Sub test()

    Dim Ws As Worksheet
    Dim Tbl As ListObject
    Dim c As Range

    Set Ws = ThisWorkbook.Sheets("MonOnglet") ' A' adapter

    Set Tbl = Ws.ListObjects("Tableau1")

    For Each c In Tbl.ListColumns(1).Range
        If IsEmpty(c) = True Then
            c.Value = c.Offset(-1, 0).Value
        End If

        Next

End Sub

Cordialement,

Bonjour Neodule

Vois ceci :

Sub remplir()
   with Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        On Error Resume Next
        .SpecialCells(4).FormulaR1C1 = "=r[-1]c"
        On Error GoTo 0
        .Value = .Value
    End With
End Sub

klin89

OK TOP MERCI A VOUS!

Entre temps j'ai retravailler mon code et cela fonctionne

j'ai mis ça

Sub eff()

Dim i, j As Integer

For i = 6 To 1000

j = 2

If Cells(i, j) <> "" Then

Cells(i + 1, j) = Cells(i, j).Value

End If

i = i + 1

Next

End Sub

jusque la ça fonctionne

si vous avez des remarques sur mon code... elles seront les bienvenues