Bonjour !

J'aimerai faire une macro permettant d'étirer une formule vers le bas jusqu'à la ligne 166. (de la feuille IMB)

La colonne est variable, j'effectue la manipulation chaque semaine.

Pour cela j'ai préparé une formule dans la lignes 3 de chaque colonne, ensuite j'effectue une recherche de la première cellule vide sur la ligne 4 et je sélectionne la cellule au-dessus, ce qui me ramène à la cellule contenant la formule à étirer.

C'est là que je bloque, je ne sais pas comment étirer jusqu'à la ligne 166 sans définir la colonne.

Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
'Etirer les formules
 
    Sheets("IMB").Select
 
    Dim li3 As Integer
 
    li3 = ActiveCell.Row
 
    Cells(li3, 256).End(xlToLeft).Offset(0, 1).Select
 
    ActiveCell.Offset(-1, 0).Select
ainsi que le fichier Excel si besoin !

PM.xlsx