Fonction Range dans AutoFill

Bonjour,

Je souhaiterais appliquer une formule présente dans une cellule qui sera toujours fixe (H2) jusqu'à la dernière cellule dans mon tableau (toujours dans la colonne H).
J'arrive bien à sélectionner cette dernière cellule, mais je n'arrive pas à utiliser la fonction range et autofill.

Je récupère la sélection de ma dernière cellule avec :

Code:

---

ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Cells.Count).Select

---

Mais je ne sais pas comment compléter ceci pour que cela fonctionne.

Code:

---

[H2].AutoFill Destination:=Range("H2:

---

Je suis débutant et un peu pommé.

Pouvez-vous m'aider ?

Salut,

tu dois avoir une formule qui fixe H2, avec $H$2 par exemple.

Cote VBA, un bref regard dans la :faq:
https://vb.developpez.com/faqvba/?page=3.4.4#FillAuto
sinon,l'exemple du site de MS propose ceci

Code:

---

1 2 3

Set sourceRange = Worksheets("Sheet1").Range("A1:A2") Set fillRange = Worksheets("Sheet1").Range("A1:A20") sourceRange.AutoFill Destination:=fillRange

---

a adapter tres simplement a ton cas.

Bonjour,

Merci de ta réponse.
Mais en fait, c'est plutôt la fonction Range qui me propose problème.
Comment faire pour avoir quelque chose du style : Range("H2":Cellule_Active) ?

Je ne sais pas si je suis clair.

OK

Code:

---

Range(Range("H2"),ActiveCell)

---

devrait fonctionner

Je te remercie, ça marche parfaitement.