Bonjour,
voici mon souci : j'ai un code de ce type
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
With Sheets("EDF")
    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
Cela me permet d'incrementer mon tableau de valeur ligne apres ligne et d' y faires des calculs.
Or si je me trompe ds une donnée, lorsque je la corrige cela ne reactualise pas les calculs programmés dans la suite de mon code . Je ne peux pas non plus effacer toute la ligne et la ressaisir grace à ma userform car cela ne la met plus au bon endroit.

Existe-t-il une fonction ou un moyen qui permet la correction de valeur dans un tableau tout en actualisant les calculs?