Autofill, offset

[akrillon]

Bonjour le Forum,

Je cherche à realiser une petite macro qui étend une Selection par autofill ou Copy coller jusqu'a une prochaine case non vide.

Pour un peu de clareté j'ai effectuer un fichier test.

La macro fonctionne mais pas jusqu'au bout je n'arrive pas à faire une sortie de loop correcte.

Je vous remercie d'avance!

 

[Guest]

Re : Autofill, offset

Bonjour,

en parcourant les aires des cellules vides de la plage et leur donnant pour valeur la valeur de la cellule précédente.

Sub Bouton1_Cliquer()
    Dim plg As Range, a As Range
    On Error GoTo Fin
    'SpecialCells retourne une erreur si aucune plage ne correspond à la demande
    'ici les plages de cellules vides dans la colonne 1
    Set plg = Range("Tableau5[#Data]").Columns(1).SpecialCells(xlCellTypeBlanks)
    'Parcourir chaque aires de cellules vides de la plage
    For Each a In plg.Areas
        'Valeur des cellules vides de la l'aire (area) parcourue (a)
        'est égale à la première cellule de l'aire décalée d'une ligne vers le haut
        a.Cells.Value = a(0, 1).Value
    Next
Fin:
End Sub

A+