simplification de code redondant

bonjour a tous
voila, j'ai un code très répétitif car il y a 28 formulaires qui on besoins de cette même ligne de code

Code:

---

1 2 3 4 5 6 7

' indique si c'est une fiche recette ou depense If depense.Value <> "" Then Range("b65536").End(xlUp).Offset(0, 1).Value = "fiche depense" If recette.Value <> "" Then Range("b65536").End(xlUp).Offset(0, 1).Value = "fiche recette" 'inscrit la recette ou la depense If recette.Value <> "" Then Range("b65536").End(xlUp).Offset(0, 4).Value = recette.Value If depense.Value <> "" Then Range("b65536").End(xlUp).Offset(0, 5).Value = depense.Value

---

plutôt que de le copier 28 fois dans chaque formulaire, j'ai penser créer une macro simple (caisse)
j'ai placé caisse dans le programme de chaque formulaire pour qu'il éxécute le code ci-dessous
mais hélas comme "depense" et "recette" sont des textbox, contenue dans chacun des 28 formulaires, le code plante car je ne sais pas comment ratacher le code de la macro au formulaire en cours d'utilisation

Bonjour,

Pas tout compris (on est samedi matin ) ;)

Tes formulaires, ce sont des Userform ?

Il faut peut-être être juste explicite genre
1 classeur, 2 usf simples avec 1 textbox chacun, le 2 a un 1 bouton
et les codes :

Code:

---

1 2 3 4

Private Sub Workbook_Open() UserForm1.Show   End Sub

---

USF1 initialize :

Code:

---

1 2 3

Private Sub UserForm_Initialize() UserForm2.Show End Sub

---

bouton USF2 :

Code:

---

1 2 3 4

Private Sub cmd1_Click() MsgBox TextBox1.Value MsgBox UserForm1.TextBox1.Value End Sub

---

ce qui revient à :

Code:

---

1 2 3 4

Private Sub cmd1_Click() MsgBox Me.TextBox1.Value MsgBox UserForm1.TextBox1.Value End Sub

---

voir Me dans l'aide VBA

de construction :

textbox1.value = TotoUSF1
textbox2.value = ZazaUSF2


Je ne sait pas si ça fait avancer le schimili... ;), à voir..

cordialement,

Didier

je me suis expliquer comme une tache :cry:

bon je reprend étape par étape

1)je lance un fichier excel qui lance un formulaire "general" qui n'est qu'une page avec 28 bouton me permetant de lancé une des 28 autres formuaire

2) chacun des ces 28 formulaire me sert en fait a saisir une comptabilité dans une caisse recette dépense (fichier caisse) et dans un fichier ventilation (le fichier étant d'un nom proche du formulaire (exemple form_colo pour la ventilation colonie)

3) comme le debut de l'opération est exactement la même pour chacun des 28 formulaires (ouverture du fichier caisse, se placer en dessous de la dernière ligne écrite, saisie de la date), j'ai crée une macro "caisse" pour eviter de repeter le programme 28 fois, donc a la place j'ai plac le mot "caisse pour lancer cette macro

4) le problème se pose a ce moment la dans la macro, car si la box depense du formulaire en cours n'est pas vide alors il doit me mettre "fiche depense" mais comme c'est la macro "caisse" qui est en cour, il ne fait pas la relation entre la textbox depense du formulaire et la demande dans la macro qui concerne les textbox du formulaire que j'ai activé

voila j'espère avoir été plus clair !!
sinon je peu envoyé par la suite une version allégé du programme en cour si ce n'est toujours pas clair

bonjour bosk ,Didier le forum
question?? pourquoi!! 28 formulaires je pense que tes 28 formulaires font a peu pres la meme chose si c'est le cas il faudrait coder differament & conserver seulement 1 formulaire a mois que chaque formulaire est bien specifique a mediter!!


ps : pas rafraichi:oops:

Salut. Je rejoins Laëtitia et Ormonth.

Pour moi, problème de conception à la base.

Peux-tu expliquer ce que tu es sensé réaliser avec ton classeur? Nous pourrons alors t'orienter vers une conception de fichier qui te permettra d'avoir du code VBA plus générique, donc plus fiable et plus maintenable.

merci laetitia, j'y ai penser mais le problème vient que chaque formulaire correspond a une type de dépense particulière qui dans les fichier ventilation se saisisse diferement

par exemple sur des licence sportive c'est 20 € de subvention par licence
alors que dans noel ce sont des chèques cadeau de différent valeur, etc...
tout cela se remplie spécifiquement en fonction de la ventilation

ce formulaire en faite, est la pour m'éviter une double saisie (caisse + ventilation) et donc d'oublier entre autre de saisir la ventilation ou de mettre un montant erroné dans l'un par rapport à l'autre

s'il personne n'a de solution a me proposé, je vais recommencé mon architecture en saisissant la première étape dans le premier formulaire qui saisira dans caisse et à l'ouverture du fichier formulaire de ventilation je ferais les sélection spécifique.

merci pierre

donc je crée un module de saisie pour la comptabilité du comité d'entreprise

j'ai donc un fichier caisse pour les recette dépense
je met dans ce fichier
1) la date
2)fiche dépense ou fiche recette
3) le code de ventilation (1 si c'est la subvention du ce, 4 pour un cheque cadeau de naissance, etc)
4) le libéllé
5) la dépense ou la recette

ensuite viens ensuite la ventilation, met la c'est spécifique car il y a des subvention versé au personne pour des colonie, licence sportive, des entrées piscines, des chèques cadeaux noel colis rentrée scolaire, et plein d'autre truc. donc chaque fichier ventilation n'a pas forcement la même architecture donc chaque formulaire va pouvoir se caler au besoins du fichier

donc au vue de la discution je pensais utiliser le formulaire general pour remplir la première partie qui va remplir le fichier caisse et utiliser par la suite la partie specifique en ventilation avec le formulaire qui convient

a moins que vous voyez autre chose a faire

re, salut Pierre l'ideal serait que tu zip une partie de ton fichier sans données confid.. pour voir ce qui est possible de simplifier !!! passer par un module de classe entre autres multipage ect..

Il faut déjà voir si un document peut donner lieu à plusieurs lignes de détails, et si les lignes de détails d'un document sont toujours du même type ou si tu as du panaché

En fonction de cela, on peut avancer un peu plus

Bonjour,

c'est bien ton fil est dans le sous-forum conception, si ton projet n'est pas trop loin, tu pourrais lire les différents posts et notamment celui-ci http://www.developpez.net/forums/d81...projets-excel/

Et tenter d'exposer au mieux tes attentes.

Perso, 28 boutons, ça me donne le vertige ;) => catégoriser via 1 à quelques menus déroulants ?

Citation:

---

je lance un fichier excel qui lance un formulaire "general" qui n'est qu'une page avec 28 bouton me permetant de lancé une des 28 autres formuaire

---

qu'entends-tu par page, une feuille Excel avec des boutons dessus ou un Userform ?


Possible aussi que tout puisse se gérer sur une feuille avec une colonne de codes catégories (1 à 28) et un moteur qui fasse le boulot derrière..

bref, surtout dans ton contexte, penses à demain et à ceux qui suivront ;)

bref commence à répondre à la question fondamentale de Pierre :

Citation:

---

Peux-tu expliquer ce que tu es sensé réaliser avec ton classeur? Nous pourrons alors t'orienter vers une conception de fichier qui te permettra d'avoir du code VBA plus générique, donc plus fiable et plus maintenable.

---

Une fois le cadre dréssé selon tes volontés, tu repasseras sur des fils du forum vba pour qu'on t'aide à résoudre tes problèmes pas à pas.

cordialement,

Didier

Bonjour à tous.

Je n'ai certainement pas tout compris mais il me semble qu'il s'agit de n userform pour lesquels il faut faire le même traitement et que tu n'as pas envie de reecopier le même code dans tous les modules associés.
Si c'est cela, il y a peut-être une idée de solution présentée dans un exemple simple.
Soit 2 userform disposant chacun d'une textbox 'txtExemple'.
J'écris dans un module standard

Code:

---

1 2 3

Sub subInitUfrm(ByRef Ufrm As Object) Ufrm.txtExemple = "coucou" End Sub

---

ET dans le module associé à chaque uform

Code:

---

1 2 3

Private Sub UserForm_Initialize() Call subInitUfrm(Me) End Sub

---

Bien sûr, cette procédure doit être recopiée dans tous les modules des uforms.
Dès qu'on ouvre l'un des 2 uforms, la textbox est renseignée.
Si la procédure subInitUfrm est longue, on y gagne.

Si ça ne répond pas à la question, désolé d'avoir dérangé;

Cordialement,

PGZ

merci a vous tous de venir a mon aide

Ormonth,

Citation:

---

qu'entends-tu par page, une feuille Excel avec des boutons dessus ou un Userform ?

---

je parle d'un userform qui n'est la que pour me permettre d'ouvrir le formulaire qui correspond a ma ventilation car lorsque je fini de saisir une depense et que je soit en saisir une autre il me semble plus simple de revenir vers se formulaire pour choisir le formulaire suivant
si j'ai fait 28 formulaire c'est que la saisie en ventilation est très specifique et que chaque type de ventilation implique des infos très differente a saisir
je ne vois pas comment un formulaire pourrait me generer toutes les differentes spécificité

je vous joint le fichier actuel pour que vous voyer la spécificité de chaque userform
pour l'instant je n'ai fait l'architecture que de :

form_chqkdo_scolaire
form_chqkdo_noel
form_chqkdo_colis
form_baule
form_badminton




pgz,

Citation:

---

Je n'ai certainement pas tout compris mais il me semble qu'il s'agit de n userform pour lesquels il faut faire le même traitement et que tu n'as pas envie de reecopier le même code dans tous les modules associés.

---

exactement
c'est pourquoi j'avais créer ce code dans un module

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub caissse() Dim année4 As String, année2 As String Dim Fichier As String année4 = Year(Date) année2 = Right(année4, 2) Fichier = Dir("c:\compta" & année4 & "\caisse" & année2 & ".xls") If Fichier <> "" Then 'le fichier existe Else 'le fichier n'existe pas End If Workbooks.Open Filename:="c:\compta" & année4 & "\caisse" & année2 & ".xls"   'place la date Range("b65536").End(xlUp).Offset(1, 0) = Date ' indique si c'est une fiche recette ou depense If depense.Value <> "" Then Range("b65536").End(xlUp).Offset(0, 1).Value = "fiche depense" If recette.Value <> "" Then Range("b65536").End(xlUp).Offset(0, 1).Value = "fiche recette" 'inscrit la recette ou la depense If recette.Value <> "" Then Range("b65536").End(xlUp).Offset(0, 4).Value = recette.Value If depense.Value <> "" Then Range("b65536").End(xlUp).Offset(0, 5).Value = depense.Value End Sub

---

afin de démarrer chaque formulaire avec "caissse" pour que l'opération du début se face en s'appuyant sur cette macro
mais le hic est avec "depense" et "recette" qui sont les nom de la textbox et lorsque cette macro s'active je reçois le message
variable non definie
avec un focus bleu sur le mot "depense"
alors que depense n'est que le nom d'une textbox du formulaire

voila si vous voyer un moyen de minimiser le nombre de
formulaire je reste preneur

Bonjour,


bosk1000,
Créer quelque chose est toujours positif, à un moment ou un niveau donné, il faut bien débuter et explorer de nouveaux horizons.
Pour bien se comprendre, il faut parler le même langage
Un des ennemis principaux de VBA est l’ambiguïté. sa puissance d’interprétation qui nous aide bien au départ a vite fait de se révéler une fausse amie si on ne maîtrise pas les « sous-entendus » (= les instructions sous-jacentes) des « non-dits » => code non explicite.

Dans ta case d’aide Excel, tape Formulaire et vois ce qu’il en dit, fais en suite de même dans l’aide VBA et vois aussi la réponse…

Donc oui, ta création de 28 USF est justifiée et quand je parle de gérer sur une feuille, je parlais de LA feuille Excel qui gère les données avec les infos du moment.

Bon pour tenter d’illustrer la piste que t’as fournis pgz, et qui répond à ta demande, je t’ai fait rapidos un mini classeur, loin d’être parfait mais qui devrait te donner des pistes de réflexions.

http://stock.dg-solutions.fr//Fichie...gumentsUSF.xls

En dehors de ça, on en revient aux ambigüités, et qu’il faut bien débuter sur certaines étapes : qu’il n’y ai pas de malentendu là-dessus…
Ceci dit, la syntaxe de ton code est une véritable bombe à retardement et s’il tourne, ce sera une galère à maintenir dans le temps… même pour son auteur.

Ton unique module s’appelle caisse et dans ce module, tu as une procédure qui s'appelle caisse:

Code:

---

1 2 3 4 5 6

Sub caisse() Dim année4 As String, année2 As String Dim Fichier As String année4 = Year(Date) …/… End Sub

---

Il serait étonnant que VBA te permette ça dans ton appel genre il va planter :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub valider_Click() Dim année4 As String, année2 As String Dim Fichier As String année4 = Year(Date) année2 = Right(année4, 2)   caisse   …/…   End sub

---

Vu que dans le cas présent, pour lui, tu appelles un module !!

Sinon, dans form_baule tu as cette procédure :

Code:

---

1 2 3 4 5

Private Sub valider_Click() Dim année4 As String, année2 As String Dim Fichier As String   Etc….

---

Suivie ce celle-ci :

Code:

---

1 2 3 4 5 6 7

Private Sub validez_Click() 'vérifie et ouvre le fichier caisse de la bonne année Dim année4 As String, année2 As String Dim Fichier As String année4 = Year(Date)   etc…

---

VbA distingue sans problème, valider de validez, mais l’être humain censé débugger ou maintenir cette syntaxe va tourner bourrique.

Idem pour des noms dans tes USF, tu as un textbox qui a pour nom « recette » et à côté un OPtionButton dont les nom est « recete » avec les 2 boutons.name « validez » et « valider » qui correspondent au Sub ci-dessus.
Tu trouves donc dans ton code à quelques lignes d’intervalle :

Code:

---

1 2 3 4 5 6 7

…/… If recette.Value <> "" Then Range("a65536").End(xlUp).Offset(0, 1).Value = "fiche recette" ' met le libéllé Range("a65536").End(xlUp).Offset(0, 2).Value = libelle.Value 'inscrit la recette ou la depense If recete.Value = True Then Range("a65536").End(xlUp).Offset(0, 3).Value = recette.Value If charge.Value = True Then Range("a65536").End(xlUp).Offset(0, 4).Value = depense.Value

---

Prends le temps de lire les Tutos du forum, notamment :

http://bidou.developpez.com/tutoriels/ExcelVBA/
http://argyronet.developpez.com/office/vba/convention/

http://silkyroad.developpez.com/VBA/LesVariables/

Chapitre IV pour le passage d’arguments)etc….

Tu y gagneras, au final, un temps précieux..

Cordialement,

Didier

bonjour tous je verrais bien comme cela pour demarrer avec un multipage apres il faut voir pour simplifier le code !!! module de classe peut être ??

merci pour votre aide precieuse
je teste tout cela ce soir

j'ai bien vue en testant, que de donné le nom caisse a mon module et ma procedure crée un bug, c'est pourquoi j'ai rajouté un s à la procedure, juste pour testé et ça passe

pour le code dans form_baule, c'est en fait le point de depart, et lorsque j'ai commencé je trouvé galère, et lourd l'iddée de repeter 28 fois le code, alors qu'une procedure allegerais le fichier, d'ou ma venue ici pour le bug lié au nom des deux textboxs, je n'avais pas encore nettoyé le code de ce formulaire car la nouvelle procedure ne fonctionnait pas

je vais bien lire les tutos

merci
je ferais suivre ce soir le resultat

Ormonth
je viens d'étudier le fichier que tu as fait
je comprend beaucoup mieux maintenant
il est vrai que je ne pratique pas (par ignorance) les procédure qui ont des élément entre parenthèse comme "by val..."
mais j'en ai appris de très bonne chose
et il solutionne mon problème

concernant les 3 liens que tu m'as fais suivre, tu pense a mes longues soirée pour cette hiver :), par contre le 3eme lien est mort apparemment


laetitia
ta conception est très jolie, et mérite que je m'attarde dessus.

je vais prendre le temps de la réflexion pour repenser la conception de ce que je dois faire, mais j'ai grace a vous deux les billes pour avancer

merci

Bonjour,

OK merci pour le lien, j'avais buggé le copié- collé, je l'ai rectifié dans le post d'origine :ccool:

Pour les ByVal etc... et tes lectures, prends l'habitude de t'approprier le vocabulaire du genre : "passage d'arguments", ça simplifiera tes lectures et te donnera les bons mots clefs pour les recherches futures ;)

bon courage,

cordialement,

Didier