Copie cellules vide

Bonjour à tous,

J'ai encore besoin de votre support pour une recopie automatique de cellules non vide sur des cellules vides immédiatement en dessous, le fichier en PJ pour comprendre...

Sachant que mon fichier fait 50 000 lignes

Merci de votre aide

Djipi

3classeur1.xlsx (9.79 Ko)

Bonjour,

Un test

2classeur1-14.xlsm (22.10 Ko)

Bonjour,

Une proposition de macro à coller dans un module standard de l'éditeur VBA (ALT + F11) :

Sub ReportInfos()

Dim Lig As Long, LigMax As Long, Col As Integer

With Sheets("NomFeuille") 'Nom à adapter
    LigMax = .Range("F" & Rows.Count).End(xlUp).Row 'Dernière ligne complétée en colonne F
    For Lig = 2 To LigMax '2 à adapter à la première ligne du tableau (hors en-tête)
        For Col = 1 To 5 'Boucle sur les 5 premières colonnes
            If .Cells(Lig, Col) = "" Then .Cells(Lig, Col) = .Cells(Lig - 1, Col) 'Si vide, report cellule du dessus
        Next Col
    Next Lig
End With

End Sub

PS : l’exécution de la macro est manuelle

Edit : salut M12 !

Impeccable Pedro, merci de ton aide

Impeccable Pedro, merci de ton aide

Merci du retour mais je ne suis pas le seul à t'avoir apporté mon aide... Or, le fichier de M12 n'a même pas été téléchargé !

Aussi, si ton problème est résolu, pense à valider le sujet !

Rechercher des sujets similaires à "copie vide"