Discussion :

[BENNASR]

Bonjour tout le monde
Sur la base d'un précieux aide d'un ami du forum j'ai arrivé à développer un petit programme pour gérer et suivre les dépenses par cargaison mais à ce stade je suis bloquer et j'ai pas arrivé à développer un userform pour inviter les dépenses déjà saisies et porter les modification et/ou la mise à jour
je dépose ci joint mon petit projet en espérant recevoir votre aide
pour le USERFORM mise à jour j'ai renommé les case en ajoutant modif..exemple si le champs dans le USF saisie_des_charges s'appelle : "navire", la même champs sur sur la USF mise à jour s'appelle "modifnavire"
je sais pas si ça est correcte !!
Bref je suis bloqué et je souhaite votre aide

Merci d'avance

[bboy-eazy]

bonjour,

je n'ai pas ouvert votre fichier mais voici un début:

pour afficher les valeurs de la cellule A1 dans un textbox d'un userform:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Userform1.TextBox1.Value = Workbooks("classeur").Sheets("feuille").Cells(1, 1).Value

Inversement pour mettre la valeur du textbox1 dans la feuille en cellule A1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("classeur").Sheets("feuille").Cells(1, 1).Value = Userform1.TextBox1.Value

Grâce à ceci vous pouvez facilement modifier les données et récupérer les données depuis des textbox dans un userform.

[casefayere]

re BENNASR, bonjour le forum,

pour le USERFORM mise à jour j'ai renommé les case en ajoutant modif..exemple si le champs dans le USF saisie_des_charges s'appelle : "navire", la même champs sur sur la USF mise à jour s'appelle "modifnavire"

Je ne comprends plus trop ton but, peux-tu expliquer en détail ce que tu cherches à faire, en fonction de quoi la mise à jour doit être faite ?, quelle sera la reference unique ?, qu'est-ce qui sera mis à jour ?, etc.

[BENNASR]

bonjour casefayere, bonjour la forum
Après la saisie des données par cargaison et les envoyées sur excel je souhaite récupérer les dépenses par numéro de vente (par cargaison) pour imputer les montants de certaines factures (les montants réels) car au moment de la clôture de la situation mensuelle certaines factures ne sont pas encore reçues dont j'estime la charge... aussi en cas d'oublie d'une prestation je l'ajoute celle la au moment de la mise à jour.
un USF pour mise à jour n'est pas obligatoire s'il y a autre solution sans donner la main de saisir directement sur la feuille Excel
Encore merci et j’espère être clair
la référence unique est le numéro de vente et le type de matière

[casefayere]

Bonsoir,

J'ai commencé mais ne comprends pas quelles colonnes faire apparaitre dans l'Usf "mise à jour", je t'envoies le fichier et dis -moi en plus

1 - au depart de l'Usf seul le combobox "modifmatiere" apparait
2- une fois rempli, le combo "navire apparait (combobox1)
3 - une fois rempli, les autres rubriques apparaissent, donc adaptes ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex <> -1 Then
  For Each Ctrl In Controls
    Ctrl.Visible = True
  Next Ctrl
End If
With Sheets(modifmatiere.Value)
  Set Dl = Plg.Find(ComboBox1.Value)
  modifmois_vte = .Range("A" & Dl.Row)
  modifnum_vte = .Range("C" & Dl.Row)
  modifclient = .Range("D" & Dl.Row)
  modifQuantite = .Range("E" & Dl.Row)
  modifcharges = .Range("F" & Dl.Row)
  modiffrais_tm = .Range("G" & Dl.Row)
  mmodifecart = .Range("H" & Dl.Row) 'suite à adapter
  'manque numero et suite à adapter
End With
 
End Sub

Dis-moi en plus ou remplis déjà cette parie si tu comprends

Demain, je ne serai là que le soir mais pas sur d'être disponible

Bonne nuit

[BENNASR]

Bonsoir DOM, Bonsoir la forum
J'espère que tout va bien, j'ai bien reçu votre code...c'est formidable
j'arrive à récupérer l'entête du tableau mais pas encore les prestations y relatif
j'ai constaté que tu as ajouté une feuille (modifmatiere) avec le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each Sh In Worksheets
 If Sh.Name <> "DONNEES" And Sh.Name <> "compte comptable" And Sh.Name <> "Saisie charges" Then modifmatiere.AddItem Sh.Name
Next Sh

mais j'ai pas compris le structure de cette zone de stockage des données et j'ai complété le code au hasard
Dois-je ajouter une zone de stockage des prestations qui existent sur la feuille "saisie des charges"?? pour les récupérer lors de mise à jour..??
aussi quand je fais le choix de matière à mettre à jour...s'affiche le numéro de la vente et ça c'est super mais si je clique encore sur la case numéro de vente et je choisi un autre numéro, les autres données ne changent pas !!!
Ci joint mon fichier en attente de votre précieux aide, si t'es occupé ou t'as pas le gout de faire ça dans les proches pas grave, je continue à battre pour ce petit projet et je te dédie mon respect à vous et tous et à toutes les bénévoles de forum

[casefayere]

Bonsoir le forum, BENNASR,

j'ai constaté que tu as ajouté une feuille (modifmatiere) avec le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each Sh In Worksheets
 If Sh.Name <> "DONNEES" And Sh.Name <> "compte comptable" And Sh.Name <> "Saisie charges" Then modifmatiere.AddItem Sh.Name
Next Sh

mais j'ai pas compris le structure de cette zone de stockage des données et j'ai complété le code au hasard

1 - j'ai préféré faire référence aux feuilles qu'à ton tableau, en effet j'ai constaté, au départ, des différences de nom entre tes feuillles, le tableau dans la feuille "DONNEES" et la feuille "compte comptable", des espaces intégrés ou cette feuille "AlF3" qui ne portait pas le même nom dans tes tableaux, en VBA il faut être précis et savoir à quoi tu fais référence, donc pour l'important c'est le nom des feuilles, donc le code ci-dessus dit si ce n'est pas une des 3 feuilles j'alimente le combobox "modifmatiere" avec le nom des autres feuilles.

2 -

...et j'ai complété le code au hasard...

en VBA, le hasard ne fait pas bien les choses, je n'ai pas encore eu le temps de regarder ton nouveau fichier mais je veux savoir exactement ce qu'il est possible de modifier ou compléter, de plus quels champs ou textbox pouvont-nous éviter ?, le mumero de vente, c'est quoi ? ton num de facture ?, ta ref achats ?, sois disert en terme d'explications, je ne suis pas un devin.

A bientôt

[BENNASR]

bonsoir DOM, bonsoir la forum,
ce petit programme me serve pour suivre les dépenses par cargaison (vente et achat)
à l'entête c'est le type de matière à exporter ou à importer
le numéro de la vente ou l'achat, le nom de navire loué, la date de l'opération et la quantité
au dessous c'est les frais engagés pour réaliser cette exportation ou importation
En fait les dépenses engagées sont saisie par un agent indépendant qui se base sur des prévision vu que les factures définitives ne sont pas encore reçues
le comptable complète ce tableau par le saisie du montant réel et le numéro de la facture après réception de cette dernière. De même, l'omission est possible c'est pourquoi le comptable peut recevoir une facture dont la prestation non prévu initialement. Pour ce le comptable procède à la mise à jour et recalcule les dépenses par cargaison et les envoyer de nouveau vers excel
j’espère être claire
pour le mot AlF3 : t'as totalement raison : c'est l’abréviation du mot fluorure d'aluminium
pour la feuille "DONNEES" je vais la cacher..c'est la ou existe la liste des fournisseurs, et des prestations
le feuille "comptes comptables" : c'est le matrice / matière / prestation / compte comptable : aussi à cacher après la fin de mon travail
Encore Bonne soirée
Avec mon respect

[casefayere]

J'insiste...

le numéro de la vente ou l'achat, le nom de navire loué, la date de l'opération et la quantité

quelles feuilles après saisie dans cet Usf mets-tu à jour ? la feuille "saisie charges" ? les feuilles correspondant aux matières ? les deux,

Je n'ai de toutes façons, plus le temps et demain je serai encore parti toute la journée (ah, la vie de retraité !!!!)

à peut-être vendredi, je ne sais plus comment je vis

[BENNASR]

Bonne journée DOM, bonjour la forum
le USF "saisie des charges" remplie la feuille SAISIE DES CHARGES par les détails des prestations comme il remplie en même temps la feuille correspondante (selon type matière) par le synthèse
c a d : si j'ai un navire de "spath fluor" ayant comme date le 15/01/2014, origine "Italie", quantité 5000 TM. sur cette cargaison j'ai engagé deux :
* prestation 1: aconage avec fournisseur XY d'un montant estimé de 5000.000
* prestation 2 :Location camion avec fournisseur BB d'un montant estimé de 10000.000
le bouton calculer de le USF saisie des charges fait le calcul et enregistre la somme de 15000 comme total charge et 3.000 comme frais par tonne...
le envoie vers excel :l'entete du tableau : c a d : le nom de navire , la date de l'opération , l'origine, le total des charges, les frais par tonne sont envoyé vers la feuille "spath fluor" (vu qu'il s'agit d'un navire de spath fluor)
les deux prestation à savoir l'aconage et la location de camion sont insérer dans la feuille "saisie des charges"
le USF mise à jour récupère tout le tableau, et le comptable saisie le montant réel, le numéro de la facture, il ajoute autres prestation s'il y a lieu et refaire le calcul et envoie de nouveau les données vers excel