Macros et VBA

[Myst3ryssss]

Bonjour,

J'ai un petit formulaire sur une feuille où j'entre des données -> Ajouter
J'ai la BD sur une autre feuille -> Mouvement
Voici à quoi ressemble mes pages

Formulaire sheet:

Mouvement sheet

Je recherche une façon d'inclure dans la macro du bouton "insérer" une condition qui vérifi que "Valeur Marchande" = 0.
- Si Valeur Marchande = 0, il va chercher la dernière valeur (most recent value) de la valeur marchande du compte (CELI ou non-enregistré) change le 0 pour celle-ci.

Exemple:

If I enter CELI and 0 in "valeur marchande", my macro input de entry with a 0$ in the "valeur Marchande" field in the "mouvement" sheet. So, it make unbalance de "Profit/Perte" colum.

IMG

`

I've try this:

=SI(Ajouter!C10=0;RECHERCHEV(B2;Mouvement!RECHERCHE_PLAGE_VAL0;3;FAUX))

This send back the GOOD most recent value

RECHERCHE_PLAGE_VAL0 est la plage de recherche dans la feuille Mouvement qui correspond de B2 à E5 et qui s'agrandit automatiquement si on ajoute des valeurs.
Pour votre compréhension:

RECHERCHE_PLAGE_VAL0
=DECALER(Mouvement!$A$1;1;1;NBVAL(Mouvement!$A$1:$A$20)-1;4)

But how can I put these formula in my VBA Macro

Thanks,

p.s. This is my input macro

Sub nouvelle_valeur()
'
' nouvelle_valeur Macro
'
'
    Sheets("Mouvement").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Ajouter").Select
    Range("A2:D2").Select
    Selection.Copy
    Sheets("Mouvement").Select
    Range("A2:D2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("E2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
    Range("E3").Select
    Sheets("Ajouter").Select
    Range("C10").Select
    Selection.ClearContents
    Range("C7").Select
    Selection.ClearContents
    ActiveWorkbook.RefreshAll
End Sub

 

[cgcamal]

Bonjour Myst3ryssss,

Si vous avez besoin d'utiliser la formule dans votre macro, vous pouvez utiliser le «Evaluate» interprète la formule et stockées dans une variable comme suit:


(Vous avez besoin de mettre en «Evaluate» la formule en anglais)

Var=Evaluate("OFFSET(Mouvement!$A$1;1;1;COUNTA(Mouvement!$A$1:$A$20)-1;4)")

J'espère que cela aide.

Cordialement