É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
A voir également:
- Comment étendre une formule jusqu'à la dernière ligne ?
- Retour à la ligne excel formule - Guide
- Formule si et - Guide
- Formule somme excel ligne - Guide
- Supprimer dernière page word - Guide
- Partager photos en ligne - Guide
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 :
Ensuite il suffit de modifier ton code ainsi :
Cdlmnt
Via
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
Jrmy
Super merci beaucoup Via :-)