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

Fermé
Jrmy - 12 juil. 2018 à 15:40
 Jrmy - 13 juil. 2018 à 09:09
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

A voir également:

1 réponse

via55 Messages postés 14403 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 24 avril 2024 2 703
12 juil. 2018 à 16:04
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

0
Super merci beaucoup Via :-)
0