Dernière cellule de la 2eme colonne

Baboune · 30 Octobre 2008

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 · 30 Octobre 2008

Re : Dernière cellule de la 2eme colonne

Bonsoir

comme ceci?

Code:

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

Bonne soirée

Baboune · 31 Octobre 2008

Re : Dernière cellule de la 2eme colonne

Bonsoir bhbh,

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

Dernière cellule de la 2eme colonne

Baboune

Guest

Cousinhub

XLDnaute Barbatruc

Baboune

Guest

Discussions similaires

Dernière cellule de la 2eme colonne

Baboune

Guest

Cousinhub

XLDnaute Barbatruc

Baboune

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency