Etendre une formule jusqu'à la dernière ligne

Bonjour,

Je souhaiterai étendre ma formule de la colonne T jusqu'à la dernière ligne, sauf que mon code s'arrête sur la 16 ligne.

Sub Choisircritere()

USFWait.Show 0

USFWait.Repaint

'appel de la macro ici:

Application.ScreenUpdating = False 'bloque l'affichage mettre au début

With Sheets("Données")

.Range("T2").FormulaR1C1 = "=VLOOKUP(RC[-8],Initialisation!C[1]:C[2],2,FALSE)"

.Range("T2").AutoFill .Range("T2:T" & Range("A65536").End(xlUp).Row)

End With

ActiveWorkbook.RefreshAll

Calculate

Application.ScreenUpdating = True

Unload USFWait

End Sub

Merci beaucoup de votre aide

bonjour et bienvenu sur le forum, avec un petit fichier cela serait plus pratique

merci

Bonjour,

à tester

remplacer

  .Range("T2").AutoFill .Range("T2:T" & Range("[color=#FF0000]A[/color]65536").End(xlUp).Row)  

par

   .Range("T2").AutoFill .Range("T2:T" & Range("[color=#FF0000]T[/color]65536").End(xlUp).Row)   

Bonjour,

.Range("T2").AutoFill .Range("T2:T" & Range("A65536").End(xlUp).Row)

ça ne serait pas range("T65536") ???

s'il n'y a que 16 données en colonne A, il s'arrête là

P.

patrick1957 a écrit :

Bonjour,

.Range("T2").AutoFill .Range("T2:T" & Range("A65536").End(xlUp).Row)

ça ne serait pas range("T65536") ???

s'il n'y a que 16 données en colonne A, il s'arrête là

P.

Merci de vos retours,

J'ai remplacé A par T, ca ne marche pas

re,

alors le plus simple est d'envoyer une copie du fichier sans données sensibles

P.

Probleme résolu :

voici mon nouveau code :

Sub Choisircritere()

USFWait.Show 0

USFWait.Repaint

'appel de la macro ici:

Application.ScreenUpdating = False 'bloque l'affichage mettre au début

Dim DernLigne As Long

DernLigne = Range("A" & Rows.Count).End(xlUp).Row

With Sheets("Données")

.Range("T2").FormulaR1C1 = "=VLOOKUP(RC[-8],Initialisation!C[1]:C[2],2,FALSE)"

.Range("T2").AutoFill .Range("T2:T" & DernLigne)

End With

ActiveWorkbook.RefreshAll

Calculate

Application.ScreenUpdating = True

Unload USFWait

End Sub

Rechercher des sujets similaires à "etendre formule derniere ligne"