application du contenu d'une cellule à la cellule vide

[fédi]

salut tout le monde!!

Comment faire pour appliquer le contenu d'une cellule à la cellule de dessous si elle est vide ainsi de suite?😕

 

[Pierrot93]

Re : application du contenu d'une cellule à la cellule vide

Bonjour,

essaye le code ci-dessous, pour la plage de cellules A1 à A20 :

Option Explicit
Sub test()
On Error Resume Next
With Range("A1:A20")
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With
On Error GoTo 0
End Sub

bon après midi
@+