Bonjour à tous,
Afin d'automatiser certaines procédures, je souhaite qu'une macro détermine la dernière ligne non vide, la dernière colonne non vide et qu'en fonction de ces variables elle remplisse la ligne de 1 de la dernière colonne avec une entête, la ligne 2 avec une formule et qu'elle recopie la formule jusqu'à la dernière ligne.
Mon problème se situe au niveau de la dernière étape...
J'ai fait un petit fichier d'exemple, en espérant que ça vous aidera...
D'avance merci pour vos réponses.
Fouiny
Afin d'automatiser certaines procédures, je souhaite qu'une macro détermine la dernière ligne non vide, la dernière colonne non vide et qu'en fonction de ces variables elle remplisse la ligne de 1 de la dernière colonne avec une entête, la ligne 2 avec une formule et qu'elle recopie la formule jusqu'à la dernière ligne.
Mon problème se situe au niveau de la dernière étape...
Code:
Sub exemple()
'
' Macro5 Macro
Dim dc1 As Long
Dim dl1 As Long
Dim f1 As String
ThisWorkbook.Sheets("Exemple").Select
dc1 = Range("iv1").End(xlToLeft).Column + 1
dl1 = Range("C65536").End(xlUp).Row
f1 = _
"=Sum(R[0]C[-2],R[0]C[-1])"
ThisWorkbook.Sheets("Exemple").Cells(1, dc1).FormulaR1C1 = "Total"
ThisWorkbook.Sheets("Exemple").Cells(2, dc1).FormulaR1C1 = f1
Cells(2, dc1).AutoFill Destination:=Range(Cells(2, dc1), Cells(dc1, dl1)), Type:=xlFillDefault
End Sub
J'ai fait un petit fichier d'exemple, en espérant que ça vous aidera...
D'avance merci pour vos réponses.
Fouiny
Pièces jointes
Dernière édition: