Signaler

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

Posez votre question NateBarca 20Messages postés lundi 27 avril 2009Date d'inscription 6 janvier 2017 Dernière intervention - Dernière réponse le 6 janv. 2017 à 09:40 par NateBarca
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 
Utile
+0
moins plus
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 20Messages postés lundi 27 avril 2009Date d'inscription 6 janvier 2017 Dernière intervention - 6 janv. 2017 à 09:40
Excellent, très propre
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !