Comment créer un mode de correction
Bonjour,
voici mon souci : j'ai un code de ce type
Code:
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?
