Dernière cellule de la 2eme colonne

[Baboune]

Bonjour le forum,

J’utilise ce code, qui fonctionne bien, pour copier une formule de la cellule B2 à la cellule B13.

Selection.AutoFill Destination:=Range("B2:B13"), Type:=xlFillDefault

Je voudrai la modifier pour étendre la sélection de B2 à la dernière cellule B?. B? est à coté de la dernière cellule remplie de la colonne A.

J’espère avoir été suffisamment explicite dans ma demande.

 

[Cousinhub]

Re : Dernière cellule de la 2eme colonne

Bonsoir

comme ceci?

Dim DerLig As Long
DerLig = [A65000].End(xlUp).Row
[B2].AutoFill Destination:=Range("B2:B" & DerLig), Type:=xlFillDefault

Bonne soirée

 

[Baboune]

Re : Dernière cellule de la 2eme colonne

Bonsoir bhbh,

C'est exactement cela.
Je te remercie pour ton aide.