Discussion :

[bakaouf]

Bonjour je souhaiterai lors d´un lancement de programme continuer 3 fonctions excel jusqu a la derniere ligne ou une cellule est non vide, cela m´éviterai à chaque lancement de programme de devoir tiré ma fonction sur les cellules suivantes, car après dans le programme je supprime des lignes et donc aussi les cellules où cette fonction est écrite.
J´espère etre assez clair dnas mes explications.

Si quelqu´un pourrai m´expliquer comment faire. Je pense qu íl faut utiliser l ínstruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LastRow1 = .Range("A65000").End(xlUp).Row

pour la dernière ligne mais c la suite que je ne sais pas

Merci

[mercatog]

Supposons dans feuil2 tu as 3 formules dans B2, C2 et D2
et tu veux "tirer" ces formules jusqu'à la dernière cellule non vide de la colonne A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim LastRow As Long
With Sheets("Feuil2")
   LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
   .Range("B2:D2").AutoFill .Range("B2:D" & LastRow)
End With

[bakaouf]

Merci,
Ca marche à merveille