Se connecter avec
S'enregistrer | Connectez-vous

[VBA] Regroupé 2 variable en une??

Dernière réponse : dans Programmation

Bonjour je débute dans le VBA et pour mon entreprise je dois modifier une maccro..

Avant nous utilisions "Y2E" pour le nombre de postes que nos clients ont le droit en plus et "Y2F" pour le nombre d'email qu'ils ont droit en plus de ce qu'il achentent.. (30% de + que le nombre qu'il ont commandé)
Mais maintenant ils ont regroupé les 2 dans une seul : "Y2K" voici le code qu'il y avait avant :

  1. If UMA = "Y2E" Then valeur = arrondir(0.3 * Y4I)
    

  2. If UMA = "Y2F" Then valeur = arrondir(0.3 * Y4J)



Est-il possible de faire ce que je souhaite?? avez vous compris ce que je veux dire lol^^ merci bien de votre aide...

Autres pages sur : vba regroupe variable

Lassé par la pub ? Créez un compte
Expert Programmation

Citation :
avez vous compris ce que je veux dire
Peut-être, mais merci de te relire quand même.

Que sont tes Y2E, Y2F, Y2K, Y4I et Y4J ?

S'il faut remplacer Y2E et Y2F par Y2K, il faut sans doute remplacer Y4I et Y4J par autre chose.

Je rééxplique : Y4I sont le nombre de poste que le client à acheter, Y4J est le nombre d'email acheté mais défois ils leurs en faut plus... donc pour cela avant nous avions Y2E et Y2F ou cela calculait 30% en plus qu'il peuvent utilisé 10j/ ans...

Mais maintenant ses 2 valeur (Y2E et Y2F) n'existe plus c'est Y2K maintenant...

donc si Y2K = 1 alors ils ont pris l'option 30% en plus et il faut que cela s'affiche dans un fichié .xml

Donc j'avais pensé a faire unt ruc du genre : 

  1. If  Y2K = 1 then 
    

  2.             if y4I >= 1 then
    

  3.             valeur = arrondir(0.3 * Y4I)
    

  4.  
  5. et       if Y2K = 1 then
    

  6.            if Y4J >= 1 then
    

  7.            valeur = arrondir(0.3 * Y4I)


Puis donc pour ecrire dans le fichié xml il y avaiy sa avant :

  1. '*** s'il n'y a qu'une "StartDate" (cf table) ***
    

  2.  
  3. If (UCase(SDate) = "X" And EDate = "" And valeur <> 0) Then
    

  4.  
  5.     If (StartDate = "") Then StartDate = d
    

  6.  
  7.     'MsgBox (d)
    

  8.     'MsgBox ("StartDate Y2EouF : " & StartDate)
    

  9.     'MsgBox (EndDate = "")
    

  10.  
  11.     'If (EndDate = "") Then EndDate = CDate(StartDate) + 30
    

  12.  
  13.     'MsgBox ("EndDate Y2EouF : " & EndDate)
    

  14.  
  15.     StrExpr = "      <FEATURE ENCRYPTCODE=""" & EC _
    

  16.                                    & """ QUANTITY=""" & valeur _
    

  17.                                    & """ STARTS=""" & StartDate _
    

  18.                                    & """ COMMENT=""" & Comment & """/>"

Et vu que c'est la premiere fois que je touche au vba je suis un peu perdu j'espere que je vous ai bien expliqué ^^ merci de votre aide !!
Lassé par la pub ? Créez un compte

Créer un nouveau sujet