Remplissage auto

Résolu/Fermé
bpierre35 - 6 avril 2009 à 16:26
 bpierre35 - 6 avril 2009 à 17:08
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 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
6 avril 2009 à 16:44
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
merci beaucoup
0