Remplissage auto

Résolu
bpierre35 -  
 bpierre35 -
Bonjour,

j'ai récupéré un tableau dans lequel j'ai des cellules vides.
Je souhaiterais les remplir automatiquement avec la valeur qui précède chaque cellule vide.
Merci pour votre aide
A voir également:

1 réponse

lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Bonjour,
Peut-être avec ces quelque lignes ??
Sub RemplirCelluleVide()
Dim Cel As Range
    For Each Cel In Range("A2:F20") 'adapter la plage
        If Cel = "" Then
            Cel = Cells(Cel.Row - 1, Cel.Column)
        End If
    Next Cel
End Sub

A+
0
bpierre35
 
merci beaucoup
0