Étendre une formule jusqu'à la dernière ligne
Jrmy
-
Jrmy -
Jrmy -
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
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
1 réponse
-
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
