modifier formule par valeur inputbox

Version imprimable

05/12/2011, 11h56
laduche31

modifier formule par valeur inputbox

Bonjour!

Mon problème est assez complexe alors je vais essayer d'être le plus clair que possible.

En gros, j'ai une macro qui lance un inputbox et demande à l'utilisateur de choisir entre 1,2 et 3. Puis un nouveau inputbox lui demande de rentrer une date.

S'il a choisit 1, la date vient s'insérer en A1, si il a choisit 2 elle vient en C1 et s'il a choisit 3 elle vient a E1.

Jusque là tout va bien.

le problème est que ces cellules (A1,C1,E1) contiennent des formules (formule DECALER de 6 mois la date en C1 par rapport à la date en A1 si.... par exemple) . Donc la date vient écraser les formules.

Cela pose problème si l'utilisateur modifie la date E1 puis décide de modifier la date C1, le décalage ne se faisant plus en E1 puisqu'il n'y a plus de formule.

Est-ce que vous avez une idée pour conserver les formules ou pallier à ce problème?

Merci par avance!

Adrien

Bonjour,

Dans ton code, lorsque tu écrits dans les cellules A1, C1 ou E1, ajoute aussi les formules des autres cellules

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim Int1 As Integer
Dim maDate As Date
 
Int1 = CInt(InputBox("Choix"))
maDate = CDate(InputBox("Date"))
 
Select Case Int1
    Case 1
        Range("A1").Value = maDate
        Range("C1").FormulaLocal = "=maformule"
        Range("E1").FormulaLocal = "=maformule"
    Case 2
        Range("C1").Value = maDate
        Range("A1").FormulaLocal = "=maformule"
        Range("E1").FormulaLocal = "=maformule"
    Case 3
        Range("E1").Value = maDate
        Range("A1").FormulaLocal = "=maformule"
        Range("C1").FormulaLocal = "=maformule"
End Select

05/12/2011, 14h07
laduche31

Oui c'est exactement ça!

Merci beaucoup !