Étendre une formule jusqu'à la dernière ligne Fermé

Question

Bonjour, 

Je cherche tout simplement un code VBA pour étendre une formule automatiquement d'une cellule de départ à la dernière de la ligne sans la citer. 
Actuellement, le code suivant fonctionne très bien: 

    Selection.autofill Destination:=Range("C5:C48")

Mais la dernière cellule n'est pas forcément la C48 ... Je pensais introduire une variable "dernière ligne" puis m'en resservir dans le code à la place de "C48", mais je n'y arrive pas.

Merci à vous pour votre aide !

Jérémy

Configuration: Windows / Internet Explorer 11.0

via55 · Answer

Bonjour Jéremy

La dernière ligne remplie d'une colonne (voir Astuces de CCM) peut être trouvée avec, par exemple pour la colonne B :
Dim Ligne As Long
Ligne = Columns(3).Find("*", , , , xlByColumns, xlPrevious).Row 

Ensuite il suffit de modifier ton code ainsi :
Selection.autofill Destination:=Range("C5:C" & Ligne) 

Cdlmnt
Via

Étendre une formule jusqu'à la dernière ligne

1 réponse

Discussions similaires