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
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 :
bonjour,
Si tu veux une recopie incrémentée il faut sélectionner 2 lignes au départ
Range('B22').Select va te donner une copie pure et simple.
Sinon la macro suivante marche bien avec Range('B12')
Sub Test()
v = Range('D65536').End(xlUp).Address
Set SourceRange = Range('B12')
Set fillRange = Range('B1:' & v)
SourceRange.AutoFill Destination:=fillRange
End Sub
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
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