Etirer formules sur plusieurs colonnes

Amis Exceliens, Bonjour !

J'ai potassé sur une macro qui permettrait d'étirer mes formules colonne K à P tant que la colonne J n'est pas vide.

A partir d'un sujet créé avant celui-ci, je suis arrivé au résultat suivant :

Sub Etirer()

Dim DernLigne As Integer

DernLigne = Cells(Rows.Count, 11).End(xlUp).Row

Range("K2:P2").Select

Selection.AutoFill Destination:=Range("K2:P" & DernLigne)

End Sub

Evidemment ça ne fonctionne pas . Pouvez vous m'éclairer sur la faisabilité de ce projet ?

Petite précision il ne faut pas une simple copie des fonctions, mais qu'elles s'incrémentent comme si je le faisait avec la souris.

Un grand merci à vous,

Bonne journée !

Je joins un fichier bateau pour que vous vous fassiez une petite idée.

Bonjour,

à tester,

Sub test()
Dim DernLigne As Integer
DernLigne = Cells(Rows.Count, 11).End(xlUp).Row
Range("K2:P" & DernLigne).FillDown
End Sub

Bonjour i20100,

Merci pour votre réponse, et votre temps précieux.

Le code que vous m'avez envoyé copie la première ligne sur la deuxième.

Or, il me faut un code qui me permettrait d'incrémenter les formules qui se situent sur la deuxième ligne en K2, L2, M2, N2, O2, P2 jusqu'à la dernière cellule de la colonne J non vide.

En espérant être clair dans mes explications,

En vous remerciant,

Bonne journée.

re,

normalement une formule s'incrément tout seule, si l'adressage est relatif.

Bonjour toutes et tous

coucou I20100

1 au lieu de 11

DernLigne = Cells(Rows.Count, 1).End(xlUp).Row

testé fonctionnel

Merci Andre13,

clavier avec touche 1 sensible

Merci Andre13

je n'avais pas ouvert le fichier

Bonjour I20100, Andre13,

Super ça fonctionne ! Je vous remercie tous les deux pour cette solution et votre réactivité

Passez une bonne journée !

Bonjour toutes et tous,

toi aussi également, bonne journée

Rechercher des sujets similaires à "etirer formules colonnes"