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

[MuscatMimi]

Bonsoir a tous

J'aimerais savoir , si en Vba il est possible de faire des calcul de somme
de colonnes dans des cellules.
de solde partiels ........entre deux colonnes
Les données sont saisie via un Usf
et chaque mois elle ce valide auto ,dans une autre feuille
donc la feuille de donnée ce retrouve vide

Les explications plus précise sont dans le fichier

merci a tous a l'avance
cordialement

 

[Bebere]

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

 

[MuscatMimi]

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

 

[PMO2]

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

 

[MuscatMimi]

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

 

[MuscatMimi]

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+

 

[Bebere]

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

bonjour Vaucluse

une proposition

à bientôt

 

[MuscatMimi]

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 +

 

[Bebere]

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

 

[MuscatMimi]

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

 

[Bebere]

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

 

[MuscatMimi]

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

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+

 

[Bebere]

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

bonjour Vaucluse
ok met le sur cjoint
à bientôt

 

[MuscatMimi]

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

 

[Bebere]

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