VBA chercher non vide et compléter Résolu/Fermé

Question

Bonjour, 
Je cherche un code VBA qui permet de répéter la valeur au dessus de la ligne jusqu'à elle rencontre une valeur non nulle.
Exemple
Cellule A1 = valeur X1
Cellule A2 = vide
Cellule A3 = vide
Cellule A4 = valeur X2
Cellule A5 = vide
Cellule A6 = valeur X3
Après Macro :
Cellule A1 = valeur X1
Cellule A2 = valeur X1
Cellule A3 = valeur X1
Cellule A4 = valeur X2
Cellule A5 = valeur X2
Cellule A6 = valeur X3
Idéalement sur une boucle For
Merci
Configuration: Windows / Chrome 55.0.2883.87

f894009 · Answer

Bonjour,
cela suppose que A1 n'est jamais vide
Sub test()
    With Worksheets("feuil1")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row     'derniere cellule non vide colonne A
        TInfos = .Range("A1:A" & derlig).Value                       'mise en memoire plage
    End With
    Nb = UBound(TInfos)     'longueur tableau
    'boucle sur tableau
    For N = 2 To Nb
        If TInfos(N, 1) = "" Then TInfos(N, 1) = TInfos(N - 1, 1)           'si vide mettre infos-1
    Next N
    Worksheets("feuil1").Range("A1").Resize(Nb) = TInfos        'ecriture plage cellules
End Sub

VBA chercher non vide et compléter

1 réponse

Discussions similaires