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

NateBarca 25 Messages postés lundi 27 avril 2009Date d'inscription 30 novembre 2017 Dernière intervention - 5 janv. 2017 à 14:39 - Dernière réponse : NateBarca 25 Messages postés lundi 27 avril 2009Date d'inscription 30 novembre 2017 Dernière intervention
- 6 janv. 2017 à 09:40
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

Afficher la suite 

2 réponses

f894009 12586 Messages postés dimanche 25 novembre 2007Date d'inscription 16 janvier 2018 Dernière intervention - 5 janv. 2017 à 15:08
0
Utile
1
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
NateBarca 25 Messages postés lundi 27 avril 2009Date d'inscription 30 novembre 2017 Dernière intervention - 6 janv. 2017 à 09:40
Excellent, très propre