Remplacer la case vide d'une liste par la valeur de la case précédente

[gregsk]

Bonjour,

Je dispose d'une feuille excel avec des données classées en colonne.
Cependant dans quelques colonnes, j'ai des cellules dans lequelle il me manque une valeur.

J'aimerais trouver une formule qui puisse remplacer une cellule vide par la valeur de la cellule de la même colonne et qui se situe juste au-dessus.


Merci ........

 

[JCGL]

Re : Remplacer la case vide d'une liste par la valeur de la case précédente

Bonjour à tous,

Tes cellules vides sont en B et pour le nombre de valeurs en A

Option Explicit
Dim i As Integer

Sub Copier()
For i = 2 To Range("A65536").End(xlUp).Row - 1
    If Cells(i + 1, 2) = 0 Then Cells(i + 1, 2) = Cells(i, 2)
Next i
End Sub

A+

 

[BOISGONTIER]

Re : Remplacer la case vide d'une liste par la valeur de la case précédente

Bonsoir,

[A1:A20].SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
[A1:A20].Value = [A1:A20].Value

JB