[_Thierry]

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.


Deposits_V02_01.zip (841 Ko)


Deposits_V02_02.zip (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]

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]

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]

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]

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

[ChTi160]

Salut L'artiste
bonjour le fil
Bonjour le Forum

moi je testerai ce soir car le train n'attends pas Lol

bonne Journée à tous

et Merci d'avance

[michel_m]

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]

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]

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]

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]

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]

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é]

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]

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]

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 AsByte
Dim TabBankSelected() AsString
Dim TabBankOrigine() AsString
Dim ColBankUniqueSelected As Collection
Dim ColBankUniqueOrigine As Collection
Dim TabBankUniqueOrigine() AsVariant
Dim BankMulti AsByte
Dim Existing AsByte
Dim BankItem AsVariant
Dim Bank1 As String, Bank2 As String, Bank3 As String, Bank4 AsString

Dim Cell As Range
Dim FirstAddress AsString
Dim TheBank AsString
Dim TotalTxbMoney() AsDouble
Dim MoneyToSend AsDouble
Dim SQLSearch AsString
Dim SendingMoneyOut AsBoolean

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; ReDimPreserve 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; EndIf
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next
&nbsp; &nbsp; EndWith

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; EndIf
&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; ReDimPreserve 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; EndIf
&nbsp; &nbsp; &nbsp; &nbsp; Next i


Set ColBankUniqueSelected = New Collection


&nbsp; &nbsp; For i = 0 To UBound(TabBankSelected)
&nbsp; &nbsp; OnErrorResumeNext
&nbsp; &nbsp; ColBankUniqueSelected.Add TabBankSelected(i), TabBankSelected(i)
&nbsp; &nbsp; Next
&nbsp; &nbsp;
&nbsp; &nbsp; ForEach 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; EndIf
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next X
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; EndIf
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next i
&nbsp; &nbsp; ReDimPreserve 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; OnErrorResumeNext
&nbsp; &nbsp; ColBankUniqueOrigine.Add TabBankOrigine(i), TabBankOrigine(i)
&nbsp; &nbsp; Next
&nbsp; &nbsp;
&nbsp; &nbsp; ForEach 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; EndIf
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next X
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; EndIf
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next i
&nbsp; &nbsp; ReDimPreserve 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

ReDimPreserve TotalTxbMoney(4)
&nbsp; TotalTxbMoney(0) = TbxMoneyVal1
&nbsp; TotalTxbMoney(1) = TbxMoneyVal2
&nbsp; TotalTxbMoney(2) = TbxMoneyVal3
&nbsp; TotalTxbMoney(3) = TbxMoneyVal4
&nbsp;
OnErrorGoTo 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; EndWith


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; IfNot Cell IsNothingThen
&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; LoopWhileNot Cell IsNothing 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; EndIf

&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; EndIf
&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; EndIf
&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 = FalseThen WriteInterestToCurrentAccount
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; EndIf
&nbsp; &nbsp; EndWith
&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; IfNot Cell IsNothingThen
&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; LoopWhileNot Cell IsNothing 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; EndIf

&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; EndIf
&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; EndWith
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next y
EndIf
HiddingLinesMat
EndSub

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]