Copier champs précédent si champs vide

[reve24]

Bonjour

Comment pourrais copier ( j ai 24500 lignes ) le champs précédent quand j ai une cellules videRegarde la pièce jointe test.bmp

voir fichier

 

[Pierrot93]

Re : Copier champs précédent si champs vide

Bonjour,

pas ouvert ton fichier mais regarde ceci, nom feuille et plage de cellules à adapter :

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

bonne journée
@+

 

[reve24]

Re : Copier champs précédent si champs vide

MERCI Pierrot93
excellent c 'est parfait j ai adapté
Plus facile que ma formule =SI(A5="";E4;A5)
merci à toi