Jusqu'à la derniere ligne non vide

Bonjour,

J'ai un petit code que j'ai fait avec l'enregistreur mais je voudrais continue jusqu'à la dernière ligne non vide.

je me suis arrete à cette exemple mais je voudrais automatiser la tâche

Merci d'avance pour les helpers de passage

Range("A2").Select

ActiveCell.FormulaR1C1 = "0"

Range("A3").Select

ActiveCell.FormulaR1C1 = "0.001"

Range("A4").Select

ActiveCell.FormulaR1C1 = "0.002"

Range("A2:A4").Select

Selection.AutoFill Destination:=Range("A2:A6"), Type:=xlFillDefault

Range("A2:A6").Select

Selection.AutoFill Destination:=Range("A2:A60347")

Range("A2:A60347").Select

ActiveWindow.SmallScroll Down:=-21

Salut,

Définis simplement la dernière ligne occupée de la colonne voulue (colonne "A" dans l'exemple suivant) :

derligne = range("A" & rows.count).end(xlup).row

Ensuite tu remplaces ta cellule de fin (A60000 je présume) par A & derligne :

Selection.AutoFill Destination:=Range("A2:A" & derlifne)

Bonjour,

Tu peux tester :

' Définir la variable
Dim derl As Long
derl = ActiveSheet.Cells(Application.Rows.Count, "A").End(xlUp).Row

En espérant qze cela t'aide ...

Bonjour,

Testes de cette façon, attention, la dernière ligne est recherchée sur la colonne B, adaptes :

Sub Test()

    Dim Lig As Long

    With ActiveSheet: Lig = .Cells(.Rows.Count, 2).End(xlUp).Row: End With 'sur colonne B (2)

    Range("A2").Value = 0
    Range("A3").Value = 0.001
    Range("A4").Value = 0.002
    Range("A2:A4").AutoFill Range("A2:A" & Lig)

End Sub

Bonjour,

Testes de cette façon, attention, la dernière ligne est recherchée sur la colonne B, adaptes :

Sub Test()

    Dim Lig As Long

    With ActiveSheet: Lig = .Cells(.Rows.Count, 2).End(xlUp).Row: End With 'sur colonne B (2)

    Range("A2").Value = 0
    Range("A3").Value = 0.001
    Range("A4").Value = 0.002
    Range("A2:A4").AutoFill Range("A2:A" & Lig)

End Sub

Bonjour,

Cette portion de code marche comme je veux .

Merci de ton partage

Rechercher des sujets similaires à "derniere ligne vide"