Copier formules dernière cellule vide

Bonjour au forum,

Je cherche à modifier mon code de ma macro :

    Selection.AutoFill Destination:=Range("B1:B5")

par ce type de code, mais je ne sais pas comment l'adapter. Celà me permettra de copier la formule jusquà la dernière cellule vide de la colonne A.

  Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Select

En vous remerciant de votre aide.

Bonjour,

Que veux-tu faire exactement ?

Ton code va sélectionner la cellule A5 ! Je ne suis pas certain que ce soit le but recherché.

Cordialement.

Bonjour,

Je te propose cet exxemple.

Cdlt.

public Sub DEMO()
Dim rng As Range, lRow As Long

    With ActiveSheet
        ' derniere ligne colonne 1
        lRow = .Cells(Rows.Count, "A").End(xlUp).Row
        ' definition de la plage en colonne 2
        Set rng = .Cells(1, "B").Resize(lRow, 1)
        With rng
            ' formule a appliquer dans la plage
            .Formula = "=TRIM(RC[-1])"
            ' ne conserver que les valeurs !?
            .Value = .Value
        End With
    End With

    Set rng = Nothing

End Sub

Ouais !

Il serait tout de même plus simple de faire :

Sub Epurer()
    Dim i%
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        Cells(i, 1).Value = Trim(Cells(i, 1).Value)
    Next i
End Sub

Salut !