VBA Excel: Etendre une formule jusqu'à la dernière colonne

Résolu/Fermé

Julie - Modifié par Julie le 15/12/2013 à 02:20
Julie - 15 déc. 2013 à 09:41

Bonjour,

Ma feuille Excel comprend une colonne A remplie de données, et différentes formules situées en B1, C1, D1...
La réponse de Pijaku à la question d'Alice posée dans ce forum et intitulée "VBA Excel: Etendre une formule jusqu'à la dernière ligne" m'a permis d'obtenir le code pour étendre automatiquement la formule de B1 à la dernière cellule du tableau en colonne B.
Pour rappel, le code est le suivant:

Sub Extension_formule()
Dim DernLigne As Long

DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Range("B1").AutoFill Destination:=Range("B1:B" & DernLigne)
End Sub

Je cherche à présent à ce que l'opération soit répétée automatiquement et autant de fois qu'il y a de formules en ligne 1; autrement dit, que la formule de C1 soit étendue à la colonne C, puis que la formule de D1 à la colonne D et ainsi de suite jusqu'à la dernière colonne; comment faire?

Je vous remercie par avance de votre retour!

A voir également:

Vba etendre formule jusqu'en bas
Formule excel - Guide
Formule si et - Guide
Mise en forme conditionnelle formule si - Guide
Formule moyenne excel - Guide
Etendre ecran pc - Guide

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
15 déc. 2013 à 06:37

Bonjour,

Sub Extension_formule()
Dim DernLigne As Long
Dim DernCol As Integer, Col As Integer
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row
    DernCol = Cells(1, Columns.Count).End(xlToLeft).Column
    For Col = 2 To DernCol
        Cells(1, Col).AutoFill Destination:=Range(Cells(1, Col), Cells(DernLigne, Col))
    Next Col
End Sub

A+

Julie
15 déc. 2013 à 09:41

Ca marche à merveille, merci!!

Discussions similaires

exo pix

je veut créer des codes

Formule Excel : "SI" une cellule contient un mot, alors ?

Reproduire formule jusqu'en bas

Discussions similaires

Newsletters