Programmer une formule sous VBA

nineup Messages postés 3 Statut Membre -  
houl Messages postés 2 Statut Membre -
Bonjour,
je n'arrive pas à programmer une p'tite formule de m.. sous VBA
Voila, j' ai une feuille sur lequel j'ai rentré 3 nombres et je voudrais juste crée une macro qui puisse faire (A1-A2)/A3 et me donner le résultat dans la case A4.
Je pense que passer par VBA est la meilleure solution car le fonds du problème c'est que je dois remplir une case avec deux choix possibles 1 ou2.Selon cette case la calcul doit etre différent, si c'est 1 la formule c'est (A1+A2)/A3, sinon c'est 2 voir plus haut.
Je pensais crée une macro pour chaque formule et ensuite crée un bouton relié à chaque macro.
J' attends vos réponses assez rapidement( c'est pour le boulot!)
Merci d'avance 
Configuration: Windows 2000
Internet Explorer 6.0

2 réponses

  1.
    blux Messages postés 2051 Date d'inscription   Statut Modérateur Dernière intervention   3 455
     
    Salut,

    tes deux choix, il viennent d'où ?

    Parce qu'on peut mettre un test pour deux calculs différents dans la même cellule...
    0
    1. nineup Messages postés 3 Statut Membre
       
      Ouais alors si je comprends bien , je suis pas obligé de passer par VB.C possible en passant sur Excel.
      Je vais t'en dire un peu plus: c'est de la finance.
      j'ai crée une liste sur Excel avec soit achat soit vente.Le mec clique sur l'un ou l'autre et automatiquement un nombre 1 ou2 est inscrit dans une cellule.ET après il me faudrait un truc qui me donne un résultat différent en utilisant les mèmes données(cf 1ermail avec A1,A2..),d'ou des opérateurs différents, selon que ce soit un achat ou une vente
      Si ça t'inspire, c'est cool.
      0
    2. blux Messages postés 2051 Date d'inscription   Statut Modérateur Dernière intervention   3 455
       
      Ben du coup, c'est simple :

      On considère que A5 contient le choix :

      Tu mets dans A4 :
      =SI(A5=1;(A1+A2)/A3;(A1-A2)/A3)
      On ne considère que le cas où A5 = 1, sinon quelle que soit sa valeur, on met la deuxième formule...
      0
    3. houl Messages postés 2 Statut Membre
       
      Salut

      Voilà un petit code qui devrait faire l'affaire.

      Sub calcul()
      Dim N As Single
      If Cells(3, 1) <> 0 Then N = (Cells(1, 1) - Cells(2, 1)) / Cells(3, 1)
      Cells(4, 1) = N
      End Sub
      0
  2. nineup Messages postés 3 Statut Membre
     
    merci pour ton aide Blux
    Bonne semaine
    0

Discussions similaires

exo pix
Xtyller -
Raymond PENTIER -

2 réponses