VBA chercher non vide et compléter Résolu

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

Newsletters