Autofill complexe

Bonsoir,

je bloque sur un autofill un peu complexe...

J'ai une colonne dans laquelle j'ai des données séparées par x cellules vides.

Je souhaiterais faire un autofill jusqu'à la prochaine cellule remplie. Puis partir de cette dernière cellule remplie et refaire un autofill jusqu'à la cellule remplie suivante....

Peut-être peut on le faire également en copier-coller?

J'utilise ce code pour faire un autofill automatique mais n'arrive pas à l'adapter à mon besoin:

DernLigne = Range("A" & Rows.Count).End(xlUp).Row
    Range("K2").AutoFill Destination:=Range("K2:K" & DernLigne)

Je vous joint un fichier pour simplifier mes propos.

Je vous remercie d'avance pour vos contributions.

Cordialement,

Innuendo67

Bonsoir,

Si les cellules de la colonne B sont effectivement vides, tu peux essayer ainsi :

Sub Macro1()
Dim DerLig As Long
DerLig = Cells(Rows.Count, "A").End(xlUp).Row
With Range("B1:B" & DerLig)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With
End Sub

Bonne soirée

Bonsoir coisinhub!

Je teste ton code demain et te dis mais cela à l'air de fonctionner.

J'ai trouvé finalement une autre méthode sur le net qui est beaucoup plus compliquée je la posterai demain.

Merci encore!

Innuendo67

Bonsoir,

désolé du retard...voici pour le code qui fonctionne pour cet autofill.

Merci.

Dim Lig As Long
Dim Buff As String
    Sheets("Feuil1").Select
    For Lig = 1 To Range("C65536").End(xlUp).Row
        If Cells(Lig, 6) <> "" Then
            Buff = Cells(Lig, 6)
        Else
            Cells(Lig, 6) = Buff
        End If
    Next Lig

Cordialement,

Innuendo67

Rechercher des sujets similaires à "autofill complexe"