Discussion :

[nicomani]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Je suis débutant et un peu pommé.

Pouvez-vous m'aider ?

[Jean-Philippe André]

Salut,

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[nicomani]

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.

[Jean-Philippe André]

OK

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Range("H2"),ActiveCell)

devrait fonctionner

[nicomani]

Je te remercie, ça marche parfaitement.