crééer deux variables (de calcul) avec du vb ou du sql

Question

bonjour, je fais appel à vous car débutante dans le vb plusieurs jours q j patoge je dispose d'une table avec plusieurs variables de ce type et je dois créér uun formulaire où il suffit de sélectionner un plusieurs compte général et obtenir le "solde débit" le "solde crédit " et par la suite créer une variable "différence" qui permet de faire la différence (solde credit-solde débit)entre les valeurs (ici 1 ou plusieurs compte général)sélectionnées balance---- Période |Compte général |SOLDE DEBIT |SOLDE CREDIT |---- 1, 10211000, 0, 56654583,92, ---- 2, 10221000, 0, 1381876,37, ---- 3, 10231000, 0, 875578,72, ---- 4, 10271000, 0, 9447882,12, ---- 5, 10350000, 0, 31930336,8, ---- 6, 11000000, 0, 448729279,72, donc voici le formulaire créé de type quand on clique sur afficher on obtient un formulaire avec les comptes généraux sélectionner ac leur soldes débit et crédit et j'aimerai qu'en cliquant sur comparer on puisse faire la différence de (solde débit-solde crédit) dans une variable différence et en cliquant sur variation pourcentage on obtient la variation de solde entre les comptes généraux sélectionnés en % voici mon code vb qui m'a permis de faire les sélections ption Compare Database Option Explicit Private Sub Commande29_Click() Dim varI As Variant Dim strFiltre As String strFiltre = "" If Me.Liste1.ItemsSelected.Count = 0 Then MsgBox "Aucun compte général n'a été sélectionné" Else For Each varI In Me!Liste1.ItemsSelected If strFiltre <> "" Then strFiltre = strFiltre & " OR " strFiltre = strFiltre & "[compte général]='" & _ Me!Liste1.Column(1, varI) & "'" Next varI DoCmd.OpenForm "balance par compte général", acPreview, , strFiltre 'DoCmd.OpenReport "balance par compte général", acPreview, , strFiltre End If End Sub j'aimerai donc introduire un code qui me permet de crééer la variable "différence" et la "variable variation en %" selon les comptes généraux sélectionnés dans mon formulaire merci pour votre aide car c'est tres urgent

lilouhama · Answer

allez une petite aide svp
svp

LIBRE_MAX · Answer

Bonjour,
Pas très bien compris ta question.
Tu veux introduire tes variables ou ?
Dans le rapport ?
Dans ce cas insères une formule.

<hr />... Y'en a même qui disent qu'ils l'ont vu voler.

lilouhama · Answer

en fait j'aimerai introduire ces variables dans le formulaire que j'obtients suite au code vb (le formulaire "balance par compte général) en cliquant sur le bouton afficher, j'obtiens donc le formulaire affichant seulement les comptes généraux sélectionnés avec leur solde crédit et leur solde débit et la "différence des soldes" (sole credit-solde débit) et moi j'aimerai avoir un code à insérer dans le bouton 'comparer' qui me créée la variable "comparaison" et me fait le calcul de différence "des différences des soldes" entre les comptes généraux sélectionnés table de départ ?---- Compte général |SOLDE DEBIT |SOLDE CREDIT |différence des soldes |---- 10211000, 0, 56654583,92, -56654583,92 , ---- 10221000, 0, 1381876,37, -1381876,37 , ---- 10231000, 0, 875578,72, -875578,72 , et donc ce que je veux par exmple obtenir je sélectionne les comptes 10221000 et 10231000 et je veux obtenir ?---- Compte général |SOLDE DEBIT |SOLDE CREDIT |différence des soldes |---- 10221000, 0, 1381876,37, -1381876,37 , ---- 10231000, 0, 875578,72, -875578,72 , ainsi que deux autres cases où on retrouvera: différences entre le compte 10221000 et 10231000: -506297,65 -> (1381876.37-875578.72) variation (augmentaion ou dimution en pourcentage) ce qui se traduirait par une diminution de 157% environ du compte 10221000 au compte 10231000 merci pour ton aide

lilouhama · Answer

allez une petite aide je patoge vraiment 
svp

LIBRE_MAX · Answer

Utilises une variable tableau de type
T(NbDeCompte,4) et remplis le 


1° compte
T(1,1) renvoie le numéro du compte
T(1,2) la différence des soldes


2° compte
T(2,1) renvoie le numéro du compte
T(2,2) la différence des soldes


etc
le troisième et le quatrièmeélément seront réservés pour le résultat du calcul.


Dans une boucle, tu parcouras ton tableauet tu fais la différence et le rapport entre un élément et son précédent (ou son suivant selon ton chaix)


For i=1 To UBound(T)-1
  'différence
  T(i+1,3)=T(i,2)-T(i+1,2)
  'variation (pas sûr de la formule !)
  T(i+1,4)=(T(i+1,3)*T(i,2))100
Next





<hr />


... Y'en a même qui disent qu'ils l'ont vu voler.

lilouhama · Answer

et comment je fais pour crééer une variable tableau j'ai jamias fais ça

je la créée en faisant du vb ?
ou as tu un début de code pour que je puisse la crééer

LIBRE_MAX · Answer

En faisant du VB. Dans ta procédure Dim T() As Variant Dim NbCmpte As Integer NbCompte= Redim Preserve T(NbCompte,4) Maintenant tu peux t' en servir. N' oublies pas qu' avant, tu dois avoir une table avec 4 champs. Une fois remplis, tu transposes ton tableau dans cette table.Et c' est celle-là qui sera la base de ton raport.

... Y'en a même qui disent qu'ils l'ont vu voler.

lilouhama · Answer

merci beaucoup je vais essayer

lilouhama · Answer

j'ai esssayé mais ça ne fonctionne pas. j'ai d'abord créer une table T avec les 4 champs sous access
mais comment transposer mon tableau dans la table

sub command_click26()
Dim T() As Variant
Dim NbCmpte As Integer

NbCompte=<nombre de ligne de ta table départ>
Redim Preserve T(NbCompte,4)
For i=1 To UBound(T)-1
  'différence
  T(i+1,3)=T(i,2)-T(i+1,2)
  'variation (pas sûr de la formule !)
  T(i+1,4)=(T(i+1,3)*T(i,2))100
Next

end sub

le code est il faux?

LIBRE_MAX · Answer

Qu' est-ce qui ne marche pas ?
Ou est l' erreur ?
Pour recopier ton tableau T dans ta table T, tu définis un recordset que tu lies à ta table.
Si tu ne sais pas comment faire, fais une recherche dans
le forum sur le sujet.Il y a plusieurs exemples.


Dim rs As RecordSet
Set rs=CurrentDB.OpenRecordSet("T",dbOpenDynamic)


Avant tu vides ta table
CurrentDB.Execute "DELETE * FROM T;"


Ensuite,
Dim i As Integer


For i=1 To NbCompte
  rs.AddNew
  rs.Fields(0)=T(i,1) 
  rs.Fields(1)=T(i,2)
  rs.Fields(2)=T(i,3)
  rs.Fields(3)=T(i,4)
  rs.Update
Next


                	
<hr />

Crééer deux variables (de calcul) avec du vb ou du sql

10 réponses

Votre réponse

Discussions similaires