Copie d'info sur des lignes vides

Bonsoir

j'ai un fichier pour lesquelles des colonnes n'ont pas d'info et je souhaite alimenter ces cellule vides par la cellule de qui la precede de la meme colonne

Ces colonnes sont de A à V dans le fichier joint.

Quel serait le code à mettre en place pour que chaque fois que la celulle est vide, et que la ligne a au moins une info dans les colonnes (W à AB) soit alimenté avec la ligne qui la precede A1 est copié sur A2 etc...) ?

ci-joint le fichier de réference

Merci de votre aide

Bonsoir,

Je ne suis pas sûr de comprendre... Ton tableau est majoritairement vide !

Tu veux remplir toutes les cellules de A1 à V988, de proche en proche avec le contenu de la cellule de la ligne précédente lorsqu'elles sont vides ! ?

Oui c'est bien cela

Les colonnes A à U sont des données d'en tete dans mon extraction

d'ou le besoin de les copier sur les lignes du dessous tant que la celulle de la ligne du dessous n'est pas vide

Ok !

Sub ToutRemplir()
    Dim n%, i%, c As Range
    With Worksheets("Sheet2")
        n = .Range("V" & .Rows.Count).End(xlUp).Row
        Application.ScreenUpdating = False
        For Each c In .Range("A3:U" & n)
            If IsEmpty(c) Then c = c.Offset(-1)
        Next c
    End With
End Sub

j'ai bien appliqué le code, sur le fichier qui contient plus de 25000 lignes mais j'ai un code erreur:

cf fichier joint

le message d'erreur est: OVERFLOW

J'ai bien copié le code sur un nouveau module

mais avec 25000 lignes, serait ce la raison de l'erreur?

A 25000 non pas encore... c'est 32767 la limite d'Integer. Mais le programme l'atteint peut-être... Pour le cas où :

remplace n% et i% par n& et i&. Si cela élimine l'erreur, c'était ça, sinon à revoir...

PROBLEME RESOLU

MERCI

Bonne continuation.