appliquer une formule jusque la derniere ligne

[dav]

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

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 :

Range('B2:D2').Select
    Selection.AutoFill Destination:=Range('B2:D65536'), Type:=xlFillDefault

Merci d'avance de votre aide

@bientot

 

[WILFRIED]

Salut dav,

Tu peu essayer :

range('D65536').select
range('B2',activecell.end(xlup).select
selection.formularray='B2+C2+C2'

C'est de mémoire.

A+

 

[galopin01]

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

Sinon la macro suivante marche bien avec Range('B1😀2')

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

Ok ?

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

 

[dav]

Merci de votre aide mais ça ne fonctionne pas.
Je vous ai joint un fichier pour que vous puissiez voir mon probleme
L'autofill semble ne pas fonctionner 😱

 

[dav]

Merci à vous, WILFRIED et Galopin,

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

et avec ce 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