Bonjour a tous,
Je souhaiterais insérer en VBA une ligne a la fin d'un tableau tout en conservant la mise en forme ainsi que les formules.
Pour être plus précis la formule a copier fait référence a une cellule de la ligne juste au dessus par exemple : (F:12=F:11+D:12-E:12)
avec le code ci dessous la formule est bien copié mais du coup la référence n'est pas décaler avec l'insertion de cette nouvelle ligne.
La formule copié est (F:13=F:11+D:13-D:12) alors qu'elle devrait être (F:13=F:12+D:13-D:12)
Merci d'avance pour votre aide
Code
Je souhaiterais insérer en VBA une ligne a la fin d'un tableau tout en conservant la mise en forme ainsi que les formules.
Pour être plus précis la formule a copier fait référence a une cellule de la ligne juste au dessus par exemple : (F:12=F:11+D:12-E:12)
avec le code ci dessous la formule est bien copié mais du coup la référence n'est pas décaler avec l'insertion de cette nouvelle ligne.
La formule copié est (F:13=F:11+D:13-D:12) alors qu'elle devrait être (F:13=F:12+D:13-D:12)
Merci d'avance pour votre aide
Code
VB:
Sub InsertLigne()
Me.ListObjects("Tableau1").ListRows.Add
For i = 1 To 10
Range("Tableau1").End(xlDown).Offset(0, i).Formula = Range("Tableau1").End(xlDown).Offset(-1, i).Formula
Next
End Sub