Dupliquer une cellule jusqu'à la prochaine non vide

Bonjour,

J'ai le fichier suivant :

De la colonne A à G, j'ai des données qui correspondent à des informations de vente.

1 vente est enregistrée sur 5 lignes

Dans la colonne D, j'ai la référence de la vente. Seulement cette référence n'apparait que dans la ligne 1.

Je cherche une macro qui me permettrais de dupliquer la référence dans les lignes 2 à 5 (qui sont vides) et répéter ensuite l'opération pour la vente suivante (référence en ligne 6, copier-coller la référence de 7 à 10 etc.)

J'ai mis en PJ le fichier qui montre en rouge ce que doit effectuer la macro.

ps : j'ai trouvé ce post : https://forum.excel-pratique.com/excel/recopier-une-cellule-jusqu-a-la-derniere-non-vide-et-repeter-t61497.html mais la formule proposé par @Timothe URVOY ne fonctionne pas dans mon classeur, rien ne se passe.

Merci d'avance de votre aide

Bonjour,

Une proposition à étudier.

Cdlt.

Option Explicit

Public Sub Empty_Cells()
Dim R As Range, Cell As Range
    With ActiveSheet
        Set R = .Cells(1).CurrentRegion.SpecialCells(xlCellTypeBlanks)
        If R Is Nothing Then Exit Sub
        For Each Cell In R
        Cell.FormulaR1C1 = "=R[-1]C"
        Next Cell
    End With
    Set R = Nothing
End Sub

bonjour

salut Jean-Eric

je fais souvent ça pour des fichiers de factures ou de BL en ajoutant une colonne de pointage (je l'ai fait aussi pour le pays)

pas de macro

note : l'année devrait aussi être une colonne calculée et non en saisie

Wow merci à vous deux pour vos réponses rapides !

C'est bien ce que je recherchais

ps : astucieux @jmd ton utilisation des formules !

Salut Sunda,

Quand j'ai ça, je cree une colonne et rempli avec une formule que j’étire, que je copie colle les valeurs puis je supprime la colonne

en B2

=SI(ESTVIDE(A2);b1;A2)

20 sec.. mais a la main

a+