appliquer une formule jusque la derniere ligne

  • Initiateur de la discussion dav
  • Date de début
D

dav

Guest
Bonjour tous le forum,

J'aimerais savoir s'il est possible d'appliquer une formule jusque la derniere ligne non vide? J'ai essayé par apprentissage mais cela m'oblige à aller jusque la ligne 65536. Et j'ai testé avec la formule de la derniere ligne non vide mais on ne peut pas la mettre dans une plage du type
Code:
Selection.AutoFill Destination:=Range(B2:('A65536').End(xlUp))

en fait, j'applique une formule aux cellule de B2 à D2 et ensuite je voudrais l'appliquer jusque la derniere ligne non vide de mon tableau.
Actuellement j'ai ce code :
Code:
Range('B2:D2').Select
    Selection.AutoFill Destination:=Range('B2:D65536'), Type:=xlFillDefault

Merci d'avance de votre aide

@bientot
 

galopin01

XLDnaute Occasionnel
bonjour,
Si tu veux une recopie incrémentée il faut sélectionner 2 lignes au départ
Range('B2:D2').Select va te donner une copie pure et simple.

Sinon la macro suivante marche bien avec Range('B1:D2')

Sub Test()
v = Range('D65536').End(xlUp).Address
Set SourceRange = Range('B1:D2')
Set fillRange = Range('B1:' & v)
SourceRange.AutoFill Destination:=fillRange
End Sub

Ok ?

Message édité par: galopin01, à: 07/03/2005 08:48
 
D

dav

Guest
Merci à vous, WILFRIED et Galopin,

je me suis servi de vos deux code en faisant quelque modif

et avec ce code
Code:
Sub test2()

l = Range('A65536').End(xlUp).Row
Range('B2:D2').Select
Selection.AutoFill Destination:=Range(Cells(2, 2), Cells(l, 4)), Type:=xlFillDefault

End Sub

J'ai reussi a avoir ce que je voulais

Merci encore et @ bientot
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson