Doubler des infos d'un UserForm

[JPS28]

Bonjour.
Une petite question pour vous les spécialistes du VBA comment doubler des informations que l'on inscrit dans un UserForm d'un classeur pour les copiers dans une autre colonne d'une autre feuille dans un autre classeur ?
Merci de vos propositions.
Cordialement.
JPS.

 

[JPS28]

Re : Doubler des infos d'un UserForm

Bonsoir Hasco, le forum.
j'ai fait la modif en plus elle etait de ma faute je n'ai pas les yeux en face des troux par contre maintenant que j'ai collé tous tes paragraphes j'ai différents bugs que j'essaie de corriger mais cela m'en déclenche d'autres et ainsi de suite peux tu y jeter un oeil STP Merci.
Cordialement.
JPS

 

[Guest]

Re : Doubler des infos d'un UserForm

Bonjour JPS,

C'est certain que si tu te contentes de faire du copier coller sans chercher à comprendre ce que tu fais, cela entraine des erreurs de synthaxe, ou de structure de boucle etc....

Dis moi, c'est toi qui a écrit le reste du code?

En regardant ce que tu as cherché à faire, je n'ai pas compris quand tu veux modifier ou ajouter le cavalier à la liste des cavaliers dans formcavaliercheval. Autre question Faut-il (et quand) ajouté ou modifié le galop dans le fichier formcavaliercheval?

Encore une autre, où et quand est valorisée la variable TypeSaisie. Visiblement, la validation ne peut pas fonctionner sans.

A mon sens il est plus facile de gérer les cavaliers d'un côté et la saisie des clients de l'autre sinon, puisque tu as du mal, ton application risque de devenir une usine à gaz dont on ne saura plus démêler les tuyaux.

Dans le fichier joint tu trouveras en fin de module de UsfSaisieClient:

1 - Une procédure 'ValiderCavalier()' qui modifie ou ajoute un Cavalier dans le fichier formcavaliercheval. Cette procédure est appelée par la procédure cmdValider_Click() du userForm

2 - Une procédure 'AjoutCavalier()' appélée par la précédente au besoin

3 - Une fonction 'RechercheCavalier()' qui retourne une cellule du fichier formcavaliercheval s'il est trouvé.

4 - Une fonction 'FichierCavalierOuvert()' qui vérifie si le fichier FichierCavalierOuvert est ouvert

A bientôt

 

[JPS28]

Re : Doubler des infos d'un UserForm

Bonsoir Hasco, le forum.
D'abord, je te remercie de m'aider dans mes problèmes.
L'histoire de ce fichier est un petit fichier que j'ai trouvé sur le cite et que j'ai modulé par des petites phrases coller ou créer suivant mes besoins et avec l'aide de différentes personnes quand tout va bien car comme je l'ai déjà signaler sur différents cites et sur celui ci je suis atteint d'une maladie Neurologique "l'ataxie cérébelleuse" je ne vais pas m’étendre ce n'est pas un cite pour cela, c'est pour ça que je fait ce programme pour m'automatiser un maximum de choses vue que la mémoire flanche tout doucement ce qui m'empêche d'enregistré ou de comprendre certaine choses et je vous envie vous les pros du vba mais je ne me plaint pas, je vie ! Tout en me forçant à entretenir ce p... de cerveau par, par exemple cette création de programme. Voila toute l'histoire de ce fichier et je te remercie encore une fois ainsi que les autres personnes qui lisent ces phrases et qui mon aidés.
Pour le fichier je cherche à éliminer ou a modifié le client désigné par l'userform client dans le fichier gestion facture a l'identique sur le fichier formcavaliercheval ce qui ne concerne que le cavalier et surtout le galop.
Cordialement. A+
JPS

 

[Guest]

Re : Doubler des infos d'un UserForm

Bonjour JPS, le forum,

Dans le fichier joint tu trouveras:

1 - module3 les 3 procédures et fonction écrites précédement.

2 - usfListeClients, procédure cmdSupprimer_Click() les lignes qui supprime le cavalier et le galop associé dans formchevalcavalier.xls

3 - usfSaisieclient cmdValider_Click() les lignes pour modifier ou ajouter un cavalier et son galop dans formchevacavalier.xls

Avant suppression d'un cavalier, une demande de confirmation est posée.
Avant ajout, un test est effectué pour savoir si le cavalier existe déjà ou non. S'il existe, une demande de confirmation de l'ajout est posée.

Pour l'ajout, comme tes messages n'i faisait pas mention, je me suis demandé s'il fallait ou pas le faire. Si non tu efface les lignes concernées.

J'ai testé la suppression et la modification qui m'ont l'air ok.

dans l'usfSaisieClient, j'ai pas compris l'utilité de:
Private Sub txtGalop_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txtCavalier.Value = Trim(txtGalop.Value)
End Sub

Mais j'ai pas forcément besoin de savoir son utilité, en tous cas dis nous si cela te convient ou pas.

P.S. Regarde tes messages privés.
A bientôt

 

[JPS28]

Re : Doubler des infos d'un UserForm

Bonsoir Hasco, le forum.
Merci pour ce que tu as fait,super! Je n'ai rien remarqué sur le fonctionnement. J'aimerais travaillé aussi bien en vba il y a t'il un bouquin ou autres qui pourrais me faire avancé malgré...?
Encore Merci.
Cordialement A+
JPS.
P.S. Pour ton messages privés j'y répondrais mardi.

 

[Guest]

Re : Doubler des infos d'un UserForm

Bonjour JPS,

Alors pour un bouquin, tu as:

Excel 2002 et VBA, Le guide du Développeur de John Walkenbach paru chez OEM.

Ce bouquin donne de bonne base, sans trop ce prendre la tête.

A bientôt

 

[Guest]

Re : Doubler des infos d'un UserForm

Bonjour Pad,
Brigitte🙂,

J'ai laissé trainé une faute dans la procédure MiseEnForme en fin de procédure, il manque un l à Cellules.Address.

J'avais modifié cette partie après mes tests. Excuses-moi, C'est Brigitte qui me la signalé. Merci Brigitte.


A bientôt

 

[JPS28]

Re : Doubler des infos d'un UserForm

Bonsoir le forum
Me revoici avec ce post que je remonte car je viens seulement de travailler avec et je viens de me rendre compte que sur le fichier que Hasco ma renvoyer super fichier d'ailleurs qui rassemble mon fichier Gestion Clients Factures Cavalier + Mire et mon fichier FormCavalierCheval il y a un problème je n'ai plus de n°client ni date de facture ni n°de facture sur la feuille facture on peut voir tout ces n° dans le fichier joint plus haut et je n'ai pas trouvé la solution ? Il ne faut surtout pas toucher a la mire car elle ne fonctionne pas d'ailleurs si il y a une aimable personne qui me m'aider sur cette autre problème je suis preneur ? Je joins le modèle facture car sans celui ci on ne peut pas archiver de factures. Je remercie toutes les personnes qui se pencheront sur mon problème.
Merci cordialement.
JPS

 

[JPS28]

Re : Doubler des infos d'un UserForm

Oups le modèle

 

[Guest]

Re : Doubler des infos d'un UserForm

Bonjour JP, Le Forum,

Pour ce qui est de la date,une simple formule =Aujourdhui()
Pour le numéro de client en bas de la facture =05

Par contre tu ne dis pas comment et où étais calculé le numéro de factures. Sur quelle base. Est-ce que c'est le numéro maximum des facture enregitrées en feuille Archives FC +1?

A bientôt pour plus de précision

 

[JPS28]

Re : Doubler des infos d'un UserForm

Bonjour Hasco, le forum.
Je suis content de te retrouver et je suis désolé de te remettre à contribution.
Pour ce que tu me donne comme solution je vais essayer cela tout a l'heure pour le n° client c'était la date du jour de l'inscription plus 1 ex: 011020081 et si j'ai un client le même jour plus 2 : 011020082 et ainsi de suite.
Pour le n° de facture c'était l'année plus 4 zero ex:20080000 plus 1 a chaque fois que la facture etait archivée facture 200080001,etc...
Je ne comprends pas d'ailleurs pourquoi tout cela n'existe plus dans le dernier fichier que tu m'avais renvoyé fichier qui ma bien plus a part cette histoire de disparition de n° qui fonctionnait très bien sur l'autre fichier mais une fois cette facture remis en état je préfère de loin ton fichier J'ai essayé beaucoup de choses pour récupérer ces données mais je ne suis arrivé a rien comme d'habitude.
Cordialement.
JPS

 

[Guest]

Re : Doubler des infos d'un UserForm

Bonsoir JPS,

Je suis également content de te retrouver.

Apparament la macro appelée par le bouton Archiver FC efface les formules qui retournent les numéros de clients et de facture.
N'ayant pas le temps ce soir de voir cela. Je me pencherai sur le problème demain matin.

Bonne soirée à toi.

 

[Guest]

Re : Doubler des infos d'un UserForm

Hello JPS,

Voici un nouveau fichier,

Tu trouveras une réécriture de l'archivage fc dans le module (Archive)

Pour générer une nouvelle facture il suffit de renseigner la cellule C20 de la feuille facture. Après archivage, celle-ci n'est plus remise à blanc automatiquement, afin de faciliter les tests et vérifications. Lorsque tout sera ok on pourra alors éventuellement rétablir le comportement antérieur.

L'adresse, n'est plus renseignée par formule mais par macro, parceque l'appel à la fonction personnelle AdresseClient provoquait des désagréments dans la gestion des évènements. Mais c'est toujours cette fonction qui est utilisée mais par l'évènement change de la feuille Facture.

Testes le et dis mois ce que tu en penses, s'il faut ou non revoir ou améliorer certaines choses.

Je n'ai pas eu le temps de tester l'archivage dans un nouveau classeur au moyen du fichier facture.xlt. Mais je pense qu'il ne devrait pas y avoir de problème.

A bientôt

[Edition] Oups! j'oubliais le fichier

 

[JPS28]

Re : Doubler des infos d'un UserForm

Bonjour Hasco, le forum
Cela me plait beaucoup mais pour ma part j'ai une erreur 1004 (feuille protégée) en archivant ma facture ce qui me désactive les boutons.
Je suis allé dans outils protection et rien ne me parais suspecte je ne vois pas d'ou cela peu provenir ?
Mais ton boulot super la mire fonctionne aussi, enfin le peu que j'ai pu en voir car je suis bloqué par cette désactivation de bouton.
Merci A+
JPS

 

[Guest]

Re : Doubler des infos d'un UserForm

Hello JP,

Cela me plait beaucoup mais pour ma part j'ai une erreur 1004 (feuille protégée) en archivant ma facture

Lorsque tu archive avec le bouton 'Archiver' ou le bouton 'Archiver FC'?

A+