Faire des Sommes en Vba dans une BDD avec données saisie avec Usf

B

Bebere

XLDnaute Barbatruc

• 6 Décembre 2008

• #2

Re : Faire des Sommes en Vba dans une BDD avec données saisie avec Usf

bonsoir Vaucluse
fait quelques autres changements

With Worksheets("INTERVENTIONS")
Derlgn = .Range("B65536").End(xlUp).Row + 1
'.Cells(Derlgn, 1) = Derlgn '- ta ligne de départ pour
.Cells(Derlgn, 1) = Pointer.Value
.Cells(Derlgn, 2) = NomCompte.Value
.Cells(Derlgn, 3) = CDate(DTPicker2.Value) 'La_Date.Value
.Cells(Derlgn, 4) = NomBanque.Value '
.Cells(Derlgn, 5) = TypeOperation.Value
.Cells(Derlgn, 6) = Libelle.Value
.Cells(Derlgn, 7) = CDbl(Debit)
.Cells(Derlgn, 8) = CDbl(Credit)
.Range(.Cells(Derlgn, 7), .Cells(Derlgn, 8)).NumberFormat ("# ##0.00 €")
.Range("L2") = Evaluate("SUM(H3:H" & Derlgn & ")")
.Range("L3") = Evaluate("SUM(G3:G" & Derlgn & ")")
End With

à bientôt

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 6 Décembre 2008

• #3

Re : Faire des Sommes en Vba dans une BDD avec données saisie avec Usf

Salut bébére

merci de ton aide
je viens d'essayer ,ça me met une erreur dans les deux lignes suivantes
je parle de Validation avec le bouton 1

.Cells(Derlgn, 7) = CDbl(Debit)
.Cells(Derlgn, 8) = CDbl(Credit)

et pour le solde Intermédiaire a chaque ligne dans colonne I ?????
A + merci

 

Dernière édition: 6 Décembre 2008

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 6 Décembre 2008

• #4

Re : Faire des Sommes en Vba dans une BDD avec données saisie avec Usf

Bonjour,

Une piste avec le code évènementiel ci-dessous

A copier dans Feuil1(INTERVENTIONS)
**************
Private Sub Worksheet_Change(ByVal Target As Range)
Dim var
Dim var2
Dim initial#
Dim totalCredit#
Dim totalDebit#
Dim tempo
Dim R As Range
Dim i&
Dim cpt&
var = ActiveSheet.UsedRange
If IsNumeric(var(1, 12)) Then initial# = var(1, 12)
Set R = Range(Cells(3, 9), Cells(UBound(var, 1), 9))
var2 = R
For i& = 3 To UBound(var, 1)
cpt& = cpt& + 1
If IsNumeric(var(i&, 7)) Then totalDebit# = totalDebit# + var(i&, 7)
If IsNumeric(var(i&, 8)) Then totalCredit# = totalCredit# + var(i&, 8)
tempo = totalCredit# - totalDebit#
If IsNumeric(tempo) Then
tempo = CDbl(tempo) + initial#
var2(cpt&, 1) = tempo
tempo = 0
End If
Next i&
Application.EnableEvents = False
R = var2
R.NumberFormat = "#.##00 €"
[L2] = totalCredit#
[L3] = totalDebit#
Range("L2:L3").NumberFormat = "#.##00 €"
Application.EnableEvents = True
End Sub
**************

Cordialement.

PMO
Patrick Morange

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 6 Décembre 2008

• #5

Re : Faire des Sommes en Vba dans une BDD avec données saisie avec Usf

bonsoir a tous

merci pour ta réponse pmo2

je viens d'essayer ,ça ne fonctionne pas
quand un crédit est entré avec mon usf, la OK
mais quand je rentre un débit ça éfface
le montant du crédit , je parle dans les colonnes pas dans L1,L2

J'ai remis un nouveau fichier avec les exemple
bonne soirée

 

Pièces jointes

• Classeur1.xls

  80 KB · Affichages: 129
• Classeur1.xls

  80 KB · Affichages: 134
• Classeur1.xls

  80 KB · Affichages: 140

Dernière édition: 7 Décembre 2008

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 7 Décembre 2008

• #6

Re : Faire des Sommes en Vba dans une BDD avec données saisie avec Usf

Bonjour a tous

je suis triste personne n'a la solution a mon soucis????

Bon Dimanche

A+

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 7 Décembre 2008

• #7

Re : Faire des Sommes en Vba dans une BDD avec données saisie avec Usf

bonjour Vaucluse

une proposition

à bientôt

 

Pièces jointes

• ClasseurVaucluse.zip

  27.9 KB · Affichages: 71
• ClasseurVaucluse.zip

  27.9 KB · Affichages: 71
• ClasseurVaucluse.zip

  27.9 KB · Affichages: 76

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 7 Décembre 2008

• #8

Re : Faire des Sommes en Vba dans une BDD avec données saisie avec Usf

Bonjour Bébére

merci pour ton aide
je viens de visionner, ça me parait parfait

Je viens de constater ,que si le bouton de mon Usf "creation" n'est pas sur la feuil INTERVENTIONS
le calcul du Total débit en L3
et le Total Crédit en L2 ne ce Valide pas

Autre chose, j'espére que ,quand je vais passer en mode Modifs que cela va marcher aussi

Cordialement
A +

 

Dernière édition: 7 Décembre 2008

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 7 Décembre 2008

• #9

Re : Faire des Sommes en Vba dans une BDD avec données saisie avec Usf

bonsoir Vaucluse
corrections effectuées
en principe la routine calcul recalcule tout,à essayer donc
à bientôt

 

Pièces jointes

• ClasseurVaucluse.zip

  27.8 KB · Affichages: 58
• ClasseurVaucluse.zip

  27.8 KB · Affichages: 53
• ClasseurVaucluse.zip

  27.8 KB · Affichages: 53

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 7 Décembre 2008

• #10

Re : Faire des Sommes en Vba dans une BDD avec données saisie avec Usf

Re Bébére
merci, super ,ça fonctionne nickel

Mais regarde, j'ai aussi un souci avec N° de chéque,si je ne sélectionne pas "Chéque"dans "Cbx Opérations"ça me met en erreur

Par contre j'ai aussi un soucis du côté "Modifications" des Données Saisie , en éffet je consulte mes données dans un Usf avec ListView,dans cette ListView je peux Modifier mes données lignes par lignes si nécessaire,mais pour Valider ces Modif avec ce ton code Calcul, je vois pas comment faire,dans le Code

Une idée, ton code Calcul ne peux pas être mis dans la feuille Interventions en Evénementiel????
ce serait plus pratique en cas de Modifs, du moins je pense
Merci pour le temps que m'a consacré
Fichier joint avec le code de N° Chéque

Bonne soirée

 

Pièces jointes

• ClasseurVaucluseN°Chéque.xls

  76.5 KB · Affichages: 113

Dernière édition: 8 Décembre 2008

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 8 Décembre 2008

• #11

Re : Faire des Sommes en Vba dans une BDD avec données saisie avec Usf

bonjour Vaucluse
j'ai mis le code dans module1,tu peux l'appeler de n'importe quel userform
changé ini cbxchèque(plis de lignes vides),je ne vois pas de fautes
précise ou cela se passe
à bientôt

 

Pièces jointes

• ClasseurVaucluse.zip

  29.8 KB · Affichages: 84
• ClasseurVaucluse.zip

  29.8 KB · Affichages: 84
• ClasseurVaucluse.zip

  29.8 KB · Affichages: 79

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 9 Décembre 2008

• #12

Re : Faire des Sommes en Vba dans une BDD avec données saisie avec Usf

Bebere à dit:

bonjour Vaucluse
j'ai mis le code dans module1,tu peux l'appeler de n'importe quel userform
changé ini cbxchèque(plis de lignes vides),je ne vois pas de fautes
précise ou cela se passe
à bientôt

Cliquez pour agrandir...

Bonjour Bébére

Merci beaucoup

J'ai mis la Modif du code N°Chéque dans l'Usf "creation"de mon appli en cours de dévellopement,mais ça ne fonctionne pas
pas j'ai passé deux heures a voir ce qu'il peut y avoir ,mais sans succés

par contre il fonctionne sur le fichier que tu m'a passé

Si tu veux ,je peux te passer mon fichier sur Ci-Joint.com
car il est trop lourd pour le passer en Zip sur ce site

Bonne journée a toi
A+

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 9 Décembre 2008

• #13

Re : Faire des Sommes en Vba dans une BDD avec données saisie avec Usf

bonjour Vaucluse
ok met le sur cjoint
à bientôt

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 9 Décembre 2008

• #14

Re : Faire des Sommes en Vba dans une BDD avec données saisie avec Usf

Salut bébére

Merci encore pour ton aide précieuse

J'ai trouvé ,pour le code N° de Chéques

j'ai remplacé Private Sub CbxN°ChéqueChange()
Par Private Sub CbxN°Chéque_Change()

et Annuler CbxN°Chéque.Clear et ça marche ,j'ai pas trop compris

Je te joint mon fichier Compte Bancaire,
le problémes qui reste est de pouvoir Modifier les Ecritures dans Feuil INTERVENTIONS
avec L'Usf ConsultationEcritures

Par la suite , j'aimerais pouvoir a la création d'un nouveau classeur pour l"année suivante ,de vider les Ecritures Datées de l'année écoulées dans
Feuil ECHEANCE,,et Echéancier, et de ne conserver que celles qui sont Datées de L'année suivante,

Cijoint.fr - Service gratuit de dépôt de fichiers
A + Bébére

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 9 Décembre 2008

• #15

Re : Faire des Sommes en Vba dans une BDD avec données saisie avec Usf

Vaucluse
à mon avis une histoire d'accent chéque,chèque(bonne orthographe)
je vois pour la suite
à bientôt

 

Vote positif 0 Vote négatif