VBA Excel: Etendre une formule jusqu'à la dernière colonne [Résolu/Fermé]
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:
Je vous remercie par avance de votre retour!
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()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?
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Range("B1").AutoFill Destination:=Range("B1:B" & DernLigne)
End Sub
Je vous remercie par avance de votre retour!
A voir également:
- VBA Excel: Etendre une formule jusqu'à la dernière colonne
- VBA Excel: Etendre une formule jusqu'à la dernière colonne ✓ - Forum - Excel
- VBA Excel: Etendre une formule jusqu'à la dernière ligne ✓ - Forum - Excel
- [VBA Excel] mettre une formule =hyperlink en variable ✓ - Forum - VB / VBA
- (Excel) Etendre une formule sauf qqs cellules ✓ - Forum - Excel
- [vba] excel remplacer la formule par ca valeu ✓ - Forum - VB / VBA
1 réponse
Gyrus
- Messages postés
- 3334
- Date d'inscription
- samedi 20 juillet 2013
- Statut
- Membre
- Dernière intervention
- 9 décembre 2016
Bonjour,
A+
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+
Signaler
Julie
Ca marche à merveille, merci!!