=> DEMO UserForm ADO Access Deposits Management

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonsoir à Tous et Toutes

Bon j'ai pas mal travaillé ce week end car je dois faire une sorte de maquette des 'Process' que je veux obtenir sur un 'Vrai' programme.

Access/Excel et VBA me servant ici pour construire cette Maquette.

Je suis désolé par contre tout est en anglais. (Boulot oblige)

Grosso modo voici le topo, c'est un programme de gestion de Cash en Dépôts à courts termes. Le tout dans un souci d'ergonomie et du minimum de manipulation manuelle des utilisateurs finaux.

Le programme proposera une liste de Dépots arrivant à maturité (en provenance d'un système comptable), ceci permettra de les renouveller, de les diviser (split), de les fermer, ou de les augmenter. Il sortira des Fax en impression à moins que ne passiez sur une imprimante virtuelle (PDF), et enfin une simulation d'écriture comptables sera générée, le tout en quelques clicks et autres 'Drag & Drop'

Les Outils Nécessaires :

[li]Access (réalisé sous Access 2003, testé sous 2002)[/li] PAS INDISPENSABLE en consultation!!! (voir plus bas Post du 25/10/2005 08:44 !)
[li]Excel (réalisé sous 2003, testé sous 2002)[/li]
[li]DTPicker (Microsoft Date and Time Picker) Mscomct2.ocx (fourni)[/li]

Dans le Fichier Zip ci-joint, vous trouverez :

[li]Database_2005-10-22.mdb[/li]
[li]Demo_Deposits_V02_01_XLD.xls[/li]
[li]Mscomct2.ocx[/li]
[li]READ_ME_First.txt[/li]


Phases d'Installation :

L'OCX doit être copiée dans le répertoire Windows System32

Ensuite vous devez l'enregistrer avec une ligne de commande à exécuter dans la fenêtre 'exécuter' que l'on atteind par le menu Démarrer. (voir le READ_ME_First.txt)

Enfin les deux Fichiers Access et Excel doivent être placés dans le répertoire que vous souhaitez à condition que ces deux fichier soient bien dans ce même répertoire.

Sous Excel 2003 il est possible que vous ayez un message vous indiquant que le projet initialise des ActiveX non sûrs... et de vérifier si la source est fiable... Je pense qu'elle l'est c'est mon travail !

Pour l'instant ce n'est qu'une Beta version, mais je compte sur vous pour me signaler toute anomalie en détail, ce qui me fera avancer un max.

En contre-partie, vous aurez sous les yeux une appli quasi complète, un peu encore en bazard au niveau des codes car je n'ai pas encore passé à l'optimisation, je n'en suis qu'aux concepts de base.


Ce lien n'existe plus (841 Ko)


Ce lien n'existe plus (729 Ko elle maigrit !!!)


Merci à tous et toutes d'avance et bonne nuit

[ol]@+Thierry[/ol]


EDITION !!!

Mise en Ligne de la Mise à Jour de la V02.02
(Bug Fix plus Help Card on Spilt Deposits Userform)


Sorry for inconvenience ! et bonne nuit ;)

Message édité par: _Thierry, à: 25/10/2005 00:25

EDITION !!!

Il s'avère qu'en consultation Access n'est pas indispensable sur la Machine ...

Message édité par: _Thierry, à: 25/10/2005 09:02


EDITION !!!!

Bien vu Jam, le lien n'était pas bon vers la V02.02

Message édité par: _Thierry, à: 27/10/2005 19:05

Message édité par: _Thierry, à: 22/01/2006 13:10
 

MichelXld

XLDnaute Barbatruc
Re:=> "Petite" DEMO (entre amis) pas encore le 2000èm

bonjour cher @+Thierry

Excellent !

testé avec Excel2002 , Access2002 & WinXP

je n'ai pas eu le temps de tout tester :j'en ai au moins pour un mois de travail à décortiquer les procedures ADO, la manipulation des SpreadSheet....


ps
je ne savais pas que la BLUE OYSTER CULT LIMITED avait une agence à monaco ...;o)



bonne journée
MichelXld
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Re:=> "Petite" DEMO (entre amis) pas encore le 2000èm

Bonjour Michel, Bonjour le Forum

Grand merci à Toi Michel d'être déjà à l'écoute à 5:50 du mat !!!

Oui c'est assez monstrueux comme appli, peut-être pas un mois à décortiquer, mais sûrement du temps, c'est clair !

Ce qui est et sera le plus long sera cette phase d'optimisation dans le but de réduire toutes ces procédures en quasiment une seule ultra bien goupillée et pratiquement 'intelligente' qui appellerait elles même des Functions bien roulées pour traiter tous les cas de figures... Pour l'instant je me suis contenté de pondre et d'écrire des procédures à la volée au fur et à mesure des évènements totalement différents que peuvent engendrer tous les cas possibles qui s'offrent à l'utilisateur.

Une autre énorme complication est de rendre cette appli internationalement compatible... Car quand je dis 'Réalisée sous Office 2003, c'est sous une version Win/Office FR, et quand je dis 'Testée sous 2002', c'est sous une version Win/Office US... J'ai eu encore des sueurs froides sur ce coup là.

En tout cas merci Michel d'avoir pris un peu de temps pour moi, et donc si tu n'as déjà pas signalé de problème c'est très bon signe. Je te remercie infiniment.

Dans la journée cette démo devrait être livrée chez un éditeur de Software (Navision / Navigator) pour une étude de réalisation des Process que je souhaite obtenir sur un future progiciel.

Entre temps, je remercie d'avance tous ceux qui auraint le temps (et Access, indispensable, bien lire le Read_Me_First.txt) pour tester cette Beta Version.

Bonne Journée à Tous et Toutes et bonne semaine

[ol]@+Thierry[/ol]
 

dg62

XLDnaute Barbatruc
Re:=> "Petite" DEMO (entre amis) pas encore le 2000èm

Bonjour Thierry, Michel, le Forum



Aucun bug sur ma config, XP pro + version 2003 pour excel et access

l'OCX est plus récent sur ma machine que celui livré.

L'impression est impec.


dans le choix du taux est-il normal de ne pas pouvoir le saisir directement au clavier ?

Sans rien connaître dans le domaine la saisie des infos est assez intuitive.


Beau travail et plein de trucs à récupérer.

Bonne Journée
 

PascalXLD

XLDnaute Barbatruc
Modérateur
Re:=> "Petite" DEMO (entre amis) pas encore le 200

Bonjour

Bon je n'étais pas là ce dimanche donc je viens juste de voir ta démo

Ouah impressionnant !!!!!!!!

Je crois qu'en essayant de comprendre un peu le code je vais en apprendre encore pas mal

Sinon j'ai testé 'rapidement' avec Access 2000 et Excel 2000 sous Win XP Pro et aucun bug; bon par contre je ne sais pas si j'ai tout bien fait ;)

Bonne journée à toi et au forum
 

michel_m

XLDnaute Accro
Re:=> "Petite" DEMO (entre amis) pas encore le 200

Bonjour Thierry et les autres intervenants,

J'attend ce soir avec impatience pour regarder ton bébé: ce sera donc un test avec Win98 SE et Office 2000. Réponse dans quelques jours.

Amicalement

Michel_M
 

michel_m

XLDnaute Accro
Re:=> "Petite" DEMO (entre amis) pas encore le 200

Bonjour Thierry et les autres intervenants,

J'attend ce soir avec impatience pour regarder ton bébé: ce sera donc un test avec Win98 SE et Office 2000. Réponse dans quelques jours.

Amicalement

Michel_M
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Re:=> \"Petite\" DEMO (entre amis) pas encore le 200

Bonjour Didier, Pascal, Jean-Marie(Chti), re Michel

Merci beaucoup les gars, le simple fait de savoir que celà fonctionne sur différentes configs est ultra important pour mon projet, car je ne connais pas encore les profils des bécannes qui recevront cette maquette.

Pour Didier, oui c'est 'normal', en fait j'ai bloqué les TextBox de 'Rate' pour n'être alimentées que pas l'intermédiare des SpinButtons... Je ne sais pas si c'est vraiment ergonomique, mais c'est pratique pour m'éviter un tas de controls sur le numérique saisi ! (non non je ne suis pas Corse lol)

Et sinon, oui pour l'OCX, je me doute qu'elle n'est pas de toute première fraicheur (1999, c'est pour ceci que je peux me permettre de la fournir d'ailleurs) mais si tu as donc une version plus récente et que mon ActiveX fonctionne avec, c'est aussi une bonne nouvelle. Merci de cette info.

Pour Pascal, le fait d'avoir une confirmation que celà tourne sous 2000 est aussi pour moi un plus dans le 'confort' du déploiement.

Pour Jean-Marie, je n'ai pas encore fait la Version pour le WAP, ni encore pour les Palm ou les Pockets PC, mais c'est 'en train' lol

Merci, merci merci ! vous êtes tous super sympas !

Bonne Journée
[ol]@+Thierry[/ol]


EDITION !!!

Oups Bonjour Michel_M, désolé je n'avais pas raffraichi.... Mais 'Of Course you are Welcome' (je sais que tu n'aime pas le RostBeef ! LOL) Mais tu seras sûrement d'un très bon support avec ton oeil expert et averti dans la matière ADO/Access. (le drag and DRop te remémorera quelque chose aussi ;-) )

Bonne Journée à toi aussi et vivement ce soir pour tes commentaires aussi.

Message édité par: _Thierry, à: 24/10/2005 08:55
 

Gipéhel

XLDnaute Occasionnel
Re:=> "Petite" DEMO (entre amis) pas encore le 200

Bonjour le forum, Thierry,
Un petit bug, je n'ai pas pu faire un transfert du compte Rolling stones corporation sur le mien LOL.
Sinon ce que j'ai essayé fonctionne avec Win 2000 Office 2000.
Bravo. Quel travail !!
JPL.
 

ZZR09

XLDnaute Occasionnel
Re:=> "Petite" DEMO (entre amis) pas encore le 200

Bonjour Thierry, le forum

Ayant déjà eu des problèmes avec mes macros au bureau, je me suis permis de tester le programme sur office2003 et 97.

Office 2003
On reconnaît bien la 'patte' de Thierry par la numérotation des chiffres en rouge.
La première interface est un peu austère par rapport aux suivantes.
Je sais bien que ce n'est pas de la programmation et que ça prend des ressources. :p

J'ai bien sûr essayé de ne pas suivre les instructions : d'oublier ou inverser quelques étapes ... :silly: je me suis fait 'rammassé' à chaque fois (le programme a détecté mon erreur etme l'a signalée).

Office 97
bug aux premiers clics :
La méthode Clear a échoué :(

Bon, c'est vrai que 1997 n'est plus de notre siècle depuis longtemps mais hélas beaucoup de secteurs professionnels ne suivent pas l'évolution informatique. Je travaille dans l'un d'eux (pourtant organisé en réseau et qui 'brasse' beaucoup de personnes elles-mêmes technologiquement avancées).

Le programme n'est peut être pas destiné à un si large public!
Et 'Clear' n'est certainement pas une méthode qui te posera problème mais je n'est pas réusii à aller plus loin.


Conclusion :
C'est du Grand thierry (on s'y attendait un peu en ouvrant ce fichier ;) ).
Pour moi qui fonctionne sous office 2003, je vais bien sûr récupérer ce fichier pour décortiquer un peu le code ... quand j'aurrai moi aussi envie de faire le coup de la migraine :lol: :)

A+
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Re:=> "Petite" DEMO (entre amis) pas encore le 200

Bonjour Gipéhel, ZZR09, re le Fil, le Forum

Grand merci à vous aussi, je suis à la bourre pour partir au bureau !!!

Pour XL97 oui c'est clair que ça sent un peu le renfermé !!! Ce bon vieux Soft ne supporte pas de travailler sur des Feuille 'Non-Active' en général et encore moins en 'VeryHidden'... Mais il est clair que dans mon objectif, je ne compte pas de dépoiement vers cette version (idem pou Mac, sorry Jean-Marie)

Merci encore de votre temps, vous êtes vraiment sympas

[ol]@+Thierry[/ol]
 

Hervé

XLDnaute Barbatruc
Re:=> "Petite" DEMO (entre amis) pas encore le 200

Bonjour tout le monde

Superbe travail thierry, J'ai du boulot pour décortiquer tout ca.

Je t'explique la manip que j'ai faite, et le résultat que j'ai eu.


- Nouveau dépot
- sélectionner aerosmith et eur
- sélectionner citybank
- amount = 10000
- mis la date du 26/10/05
- validation
- sélectionner city bank
-sélectionner 2 premieres banques pour le nouveau dépot
-validation
-j'ai bien 5000 pour chaque banque.

- en imaginant que je me sois planté de banque, je fais cancellation.

retour à l'userform précédent.

- je sélectionne 2 nouvelles banques (ou pas d'ailleurs)
- refait validation.

Et là, les deux acomptes se trouvent à 0.

voilà

En espérant t'avoir été utile.

salut
 

Abel

XLDnaute Accro
Re:=> "Petite" DEMO (entre amis) pas encore le 200

Bonjour le fil,

Hein ?

Qu'est-ce j'entends ?

BOC (lire Blue Oyster Cult pour les néophytes. Je vous le conseil vivement).

Je vais donc regarder ça de plus près.

Michel, un mois dis tu de décorticage. Un mois de BOC, ça me va (Arf !). L'huitre bleue est trop rare.

Abel.
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Re:=> "Petite" DEMO (entre amis) pas encore le 200

Bonjour Abel, Hervé, re Bonjour toute la Fine Equipe !!!

Merci vraiment de vous être tous penchés sur cette Démo ! C'est génial !

Entre temps, j'ai découvert un Bug aussi, bien plus embêtant, alors que j'avais prévu la Routine 'WriteRenewingDepositSameBank' je ne la lançait pas ! Arf !

En clair, si vous sélectionnez dans les Dépots existant arrivant à maturité, exemple :

BANK OF MONTREAL * LED ZEP * EUR 15 M 25/10/2005

Que vous le splittez ainsi :

BANK OF MONTREAL EUR 5 M (Renouvellement Même Banque Depôt)
DEUTCHE BANK EUR 5 M (Nouvelle Banque Depôt)
DRESDNER BANK EUR 5 M (Nouvelle Banque Depôt)
CITIBANK EUR 28,462.50 (Banque Compte Courant)

Et bien horreur et damnation !!! Le PrintOut adressé à B.O.M. comporte des zones Vides (Arf Arf)

Voici le 'Patch S/P1'
Pour remplacement pûr et simple de la Sub 'CollectingRenewedDep' en Top de Module 'BuildingFaxMat'

Sub CollectingRenewedDep() '<<<<< Corrected
Dim i As Byte, j As Byte, y As Byte, X As Byte, Z As Byte, Compteur As Byte, BankNew As Byte, Matching As Byte
Dim TabBankSelected() As String
Dim TabBankOrigine() As String
Dim ColBankUniqueSelected As Collection
Dim ColBankUniqueOrigine As Collection
Dim TabBankUniqueOrigine() As Variant
Dim BankMulti As Byte
Dim Existing As Byte
Dim BankItem As Variant
Dim Bank1 As String, Bank2 As String, Bank3 As String, Bank4 As String

Dim Cell As Range
Dim FirstAddress As String
Dim TheBank As String
Dim TotalTxbMoney() As Double
Dim MoneyToSend As Double
Dim SQLSearch As String
Dim SendingMoneyOut As Boolean

CleaningFaxMat
CleaningFaxNew

&nbsp; &nbsp;
With SelectedMatured
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
For i = 1 To .Range('B255').End(xlUp).Row
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
If .Cells(i, 11) = '' Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
ReDim Preserve TabBankOrigine(X)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TabBankOrigine(X) = .Cells(i, 2)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; X = X + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End If
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Next
&nbsp; &nbsp;
End With

X = 0

&nbsp; &nbsp; &nbsp; &nbsp;
For i = 1 To 4
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
If USFSplitDep.Controls('TxbBank' & i).Value <> '' Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BankNew = BankNew + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End If
&nbsp; &nbsp; &nbsp; &nbsp;
Next

&nbsp; &nbsp; &nbsp; &nbsp;
For i = 1 To BankNew
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
If USFSplitDep.Controls('TxbBank' & i).Value <> '' Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
ReDim Preserve TabBankSelected(X)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TabBankSelected(X) = USFSplitDep.Controls('TxbBank' & i).Value
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; X = X + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End If
&nbsp; &nbsp; &nbsp; &nbsp;
Next i


Set ColBankUniqueSelected = New Collection


&nbsp; &nbsp;
For i = 0 To UBound(TabBankSelected)
&nbsp; &nbsp;
On Error Resume Next
&nbsp; &nbsp; ColBankUniqueSelected.Add TabBankSelected(i), TabBankSelected(i)
&nbsp; &nbsp;
Next
&nbsp; &nbsp;
&nbsp; &nbsp;
For Each BankItem In ColBankUniqueSelected
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BankMulti = BankMulti + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Compteur = 0
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
For i = 0 To UBound(TabBankSelected)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
If BankItem = TabBankSelected(i) Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Compteur = Compteur + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Existing = 0
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
For X = 0 To UBound(TabBankOrigine)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
If BankItem = TabBankOrigine(X) Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Existing = Existing + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End If
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Next X
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End If
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Next i
&nbsp; &nbsp;
ReDim Preserve TabBankUniqueSelected(3, Z)
&nbsp; &nbsp; TabBankUniqueSelected(0, Z) = BankItem
&nbsp; &nbsp; TabBankUniqueSelected(1, Z) = Existing
&nbsp; &nbsp; TabBankUniqueSelected(2, Z) = Compteur
&nbsp; &nbsp; Z = Z + 1
&nbsp; &nbsp;
&nbsp; &nbsp;
Next BankItem

&nbsp; &nbsp;
Set ColBankUniqueOrigine = New Collection
&nbsp; &nbsp;
&nbsp; &nbsp; Z = 0
&nbsp; &nbsp;
For i = 0 To UBound(TabBankOrigine)
&nbsp; &nbsp;
On Error Resume Next
&nbsp; &nbsp; ColBankUniqueOrigine.Add TabBankOrigine(i), TabBankOrigine(i)
&nbsp; &nbsp;
Next
&nbsp; &nbsp;
&nbsp; &nbsp;
For Each BankItem In ColBankUniqueOrigine
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Compteur = 0
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
For i = 0 To UBound(TabBankOrigine)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
If BankItem = TabBankOrigine(i) Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Compteur = Compteur + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Existing = 0
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
For X = 0 To UBound(TabBankSelected)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
If BankItem = TabBankSelected(X) Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Existing = Existing + 1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End If
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Next X
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End If
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Next i
&nbsp; &nbsp;
ReDim Preserve TabBankUniqueOrigine(3, Z)
&nbsp; &nbsp; TabBankUniqueOrigine(0, Z) = BankItem
&nbsp; &nbsp; TabBankUniqueOrigine(1, Z) = Existing
&nbsp; &nbsp; TabBankUniqueOrigine(2, Z) = Compteur
&nbsp; &nbsp; Z = Z + 1
&nbsp; &nbsp;
&nbsp; &nbsp;
Next BankItem
&nbsp; &nbsp;
NombreBankMaturity = UBound(TabBankUniqueOrigine, 2)
NombreBankRenewing = UBound(TabBankUniqueSelected, 2)
&nbsp; &nbsp;
BuildingRenewedDep

ReDim Preserve TotalTxbMoney(4)
&nbsp; TotalTxbMoney(0) = TbxMoneyVal1
&nbsp; TotalTxbMoney(1) = TbxMoneyVal2
&nbsp; TotalTxbMoney(2) = TbxMoneyVal3
&nbsp; TotalTxbMoney(3) = TbxMoneyVal4
&nbsp;
On Error GoTo 0
&nbsp;
&nbsp; &nbsp;
&nbsp; &nbsp; SQLSearch = '
'' & SelectedMatured.Range('C1') & '''
&nbsp; &nbsp;
With MatrixMat
&nbsp; &nbsp; &nbsp; &nbsp; .Range('I3') =
Date
&nbsp; &nbsp; &nbsp; &nbsp; .Range('I4') = 'D-' & Format(Home.Range('A1') + 1, '00000')
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
If ReNewIngDep = True Then: Home.Range('A1') = Home.Range('A1') + 1
&nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; .Range('I5') = SelectedMatured.Range('J1')
&nbsp; &nbsp; &nbsp; &nbsp; .Range('A1') = USFSplitDep.LabelCompany
&nbsp; &nbsp; &nbsp; &nbsp; .Range('A2') = CompanyDetailADOQuery(SQLSearch, 4)
&nbsp; &nbsp; &nbsp; &nbsp; .Range('C5') = TabBankUniqueOrigine(0, 0) & ', ' & VlookupBankData(TabBankUniqueOrigine(0, 0), 3)
&nbsp; &nbsp; &nbsp; &nbsp; .Range('C6') = VlookupBankDetails(TabBankUniqueOrigine(0, 0), 5)
&nbsp; &nbsp; &nbsp; &nbsp; .Range('C7') = VlookupBankDetails(TabBankUniqueOrigine(0, 0), 6)
&nbsp; &nbsp;
End With


If TabBankUniqueOrigine(1, 0) > 0 Then
&nbsp; &nbsp; &nbsp; &nbsp;
For y = 0 To NombreBankRenewing
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
With SelectedMatured.UsedRange
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
If TabBankUniqueOrigine(0, 0) = TabBankUniqueSelected(0, y) Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CountMaturityFax = TabBankUniqueOrigine(2, 0)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WriteClosingDeposit CountMaturityFax, CStr(TabBankUniqueOrigine(0, 0))
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CountRenewingFax = TabBankUniqueSelected(2, y)

'HERE >>>>>>>> WAS MISSING THE FOLLOWING LINE :
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WriteRenewingDepositSameBank CountRenewingFax, CStr(TabBankUniqueSelected(0, y))
'========================================================================================================
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
For Z = 1 To NombreBankRenewing
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
If TabBankUniqueOrigine(0, 0) <> TabBankUniqueSelected(0, Z) Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TheBank = TabBankUniqueSelected(0, Z)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MoneyToSend = 0
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
For j = 1 To 4
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
If USFSplitDep.Controls('TxbBank' & j).Value = TheBank Then
&nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Set Cell = .Find(TheBank, , , xlWhole)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
If Not Cell Is Nothing Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; FirstAddress = Cell.Address
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Do
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.Offset(0, 12) = 'Tagged'
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Set Cell = .FindNext(Cell)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Loop While Not Cell Is Nothing And Cell.Address <> FirstAddress
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End If

&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MoneyToSend = MoneyToSend + TotalTxbMoney(j - 1)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End If
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Next j
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WriteOtherBanksToSend TheBank, MoneyToSend
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WriteInterestToCurrentAccount
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; SendingMoneyOut =
True
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End If
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Next Z
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
If SendingMoneyOut = False Then WriteInterestToCurrentAccount
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Else
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End If
&nbsp; &nbsp;
End With
&nbsp; &nbsp;
Next y
Else
&nbsp; &nbsp; &nbsp; &nbsp;
For y = 0 To NombreBankRenewing
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
With Renewed.UsedRange
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CountMaturityFax = TabBankUniqueOrigine(2, 0)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WriteClosingDeposit CountMaturityFax, CStr(TabBankUniqueOrigine(0, 0))
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TheBank = TabBankUniqueSelected(0, y)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MoneyToSend = 0
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
For j = 1 To 4
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
If USFSplitDep.Controls('TxbBank' & j).Value = TheBank Then

&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Set Cell = .Find(TheBank, , , xlWhole)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
If Not Cell Is Nothing Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; FirstAddress = Cell.Address
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Do
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.Offset(0, 12) = 'Tagged'
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Set Cell = .FindNext(Cell)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Loop While Not Cell Is Nothing And Cell.Address <> FirstAddress
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End If

&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MoneyToSend = MoneyToSend + TotalTxbMoney(j - 1)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End If
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Next j
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WriteOtherBanksToSend TheBank, MoneyToSend
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WriteInterestToCurrentAccount
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End With
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Next y
End If
HiddingLinesMat
End Sub


Sorry for inconvenience !!!

Pour Hervé, oui la partie 'New Deposit' et loin d'être blindée encore, en fait c'est la cerise sur le gateau qui est la partie la plus 'facile' mais que j'ai un peu délaissée, mais au moins tu as bien testé, merci à toi aussi. (je veillerai à vérouiller un peu mieux)

Pour Abel et MichelXLD, et bien je vois que êtes connaisseurs Blue Oyster Cult ;-) bravo !

Et grand grand grand merci à tous

Bon App
[ol]@+Thierry[/ol]
 

Discussions similaires

Réponses
6
Affichages
268

Statistiques des forums

Discussions
311 725
Messages
2 081 944
Membres
101 849
dernier inscrit
florentMIG