Discussion :

[vba_help2]

Bonjour,

J'aimerai pouvoir modifier une date de calcul sans avoir à modifier mon code vba (dans lequel j'ai saisit une date en dur)

Je m'explique, imaginons que j'ai 2 colonnes:
en colonne N, il y a une date
en colonne O, il y a une fonction SI, qui me dit si la date est inférieur à la date d'aujourd'hui, (en affichant "MATURED" ou "ALIVE")

N = date: yyyy/mm/dd
O = If(A<="asof_date(", "MATURED","ALIVE") <= je le fait en VBA

Dans mon code VBA, j'ai saisit en dur une date (ex:31/12/2013).
Mais ce que j'aimerai c'est pouvoir saisir une date directement dans excel (ex: en lui attribuant le nom "asof_date)
- le code vba irait voir dans la cellule "asof_date" la date saisit, et la mettrait directement dans le formule de la colonne O.
ça marche en excel, mais en VBA ça ne fonctionne, ça me met que toutes mes positions sont maturées, même celles qui sont en vie (ou inversement).


Avec la macro ci-dessous: ça marche, mais je voudrais pouvoir saisir la date dans mon excel, dans la cellule que je nomme "asof_date": (au lieu d'avoir une date en dur dans mon vba)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sheets("sheet1").Select
    Range("O2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]<=""2013/12/31"", ""MATURED"",""ALIVE"")"
    Selection.Copy
    Range("O2").Select
    Selection.Copy
    Range("N2").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, 1).Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveSheet.Paste

Pouvez vous m'aider, voici ma tentative en vba ?

Sub AAA()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim asof_date As Date
 
Sheets("to automate").Select
    'ancienne formule
   ''ActiveCell.FormulaR1C1 = "=IF(RC[-2]<=""2013/12/31"", ""MATURED"",""ALIVE"")"
 
    Range("L2").Select
    Application.Goto Reference:="asof_date"
    Range("O2").Select
    strValue = "[AsOfDate].[AsOfDate].&[" & Format(asof_date, "yyyymmdd") & "]"
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]<""asof_date"", ""MATURED"",""ALIVE"")"
    Range("O2").Select
    Selection.Copy
    Range("N2").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, 1).Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveSheet.Paste
 
End Sub

Merci de votre aide
vincent

[Pierre Fauconnier]

Salut.

Essaie ceci; après avoir nommé une cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "=IF(RC[-2]<=" & range("asof_date") & ", ""MATURED"",""ALIVE"")"

Note, en plus, qu'il n'est pas nécessaire de sélectionner des cellules pour les manipuler. Ton code gagnera en souplesse, en rapidité.

[vba_help2]

j'ai essayé avec ton code, mais ça ne fonctionne pas non plus
En réalité, avant, ça me mettait tout en "matured", et maintenant ça me met tout en "alive.

il y a peut-être un soucis, avec le format de la date, mais je ne parviens pas encore à le trouver.


voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub AAA()
 
Dim asof_date As Date
 
Sheets("to automate").Select
 
    Range("L2").Select
    Application.Goto Reference:="asof_date"
    Range("O2").Select
   ' strValue = "[AsOfDate].[AsOfDate].&[" & Format(asof_date, "yyyymmdd") & "]" 'AVANT - ancienne formule
   ' ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]<""asof_date"", ""MATURED"",""ALIVE"")" 'AVANT - ancienne formule
 
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]<=" & Range("asof_date") & ", ""MATURED"",""ALIVE"")"
 
    Range("O2").Select
    Selection.Copy
    Range("N2").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, 1).Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveSheet.Paste
 
End Sub

Merci
vincent