Bonjour !
J'utilise ce code pour inserer automatiquement une ligne dans mon tableau.
Cela fait en sorte que chaque saise viennent se mettre enttre ma ligne de titre et la ligne total de mon tableau.
Cependant n'y aurait il pas plus simple. N'existe t il pas une fonction qui permette directement cela. Merci
J'utilise ce code pour inserer automatiquement une ligne dans mon tableau.
Code:
ligne = .Range("B" & .Rows.Count).End(xlUp).Row
Set Tot = .Range("b11:b" & ligne).Find("TOTAL")
.Range("A" & Tot.Row).Insert Shift:=xlDown 'inserer ligne au dessus
.Range("A" & Tot.Row) = TextBox1.Text 'saisie date dans col A
.Range("B" & Tot.Row - 1).Insert Shift:=xlDown 'inserer ligne au dessus
.Range("B" & Tot.Row - 1) = "" 'blanc dans col B
.Range("C" & Tot.Row - 1).Insert Shift:=xlDown 'inserer ligne au dessus
.Range("C" & Tot.Row - 1) = CDbl(TextBox2.Text) 'saisie du texte dans col C
.Range("C" & Tot.Row).Formula = "=Sum(C9:C" & Tot.Row - 1 & ")" 'somme de C9 jusqu'à la dernière cellule ajoutée
.Range("C" & Tot.Row).Font.Bold = True
Cela fait en sorte que chaque saise viennent se mettre enttre ma ligne de titre et la ligne total de mon tableau.
Cependant n'y aurait il pas plus simple. N'existe t il pas une fonction qui permette directement cela. Merci