Macros et VBA - application gestion transferts matériels

Bonjour à tous,


Sur le classeur ci-joint je bloque sur deux éléments:

- En premier lieu je souhaite que le tableau de l'onglet transfert s'ajuste automatiquement et regroupe l'ensemble des matériels saisis dans chaque onglet catégorie (5 onglets bleus foncé). De même pour la ligne 2 qui doit intégrer les nouveaux chantiers à la suite du chantier E.

J'affecte ensuite manuellement chaque quantité de matériels présents sur mon parc.

- Ensuite grâce au bouton 2 je souhaite pouvoir effectuer les transferts de matériel d'un chantier à un autre sur l'onglet transfert et que le tout se mette à jour automatiquement.


J'espère être suffisamment clair dans ma demande et merci d'avance ;)
Pièce jointe 372919

Bonjour à tous,

Visiblement ma demande est compliquée à réaliser, j'ai donc simplifier ma demande (du moins j'espère :) ) . J'ai repris mon classeur en ne conservant qu'un seul onglet. Je souhaiterais maintenant compléter mes comboBox dans l'userform mais je bloque ...

Pièce jointe 373264

Combo1: prendre parmi les 5 catégorie (Colonne A)
Combo 2: afficher liste de matériel de la catégorie sélectionnée (colonne B)
Combo 3 et 4: sélectionner les deux lieux entre lesquels le transfert se fait (Dépôt ou chantier)
Combo 5: La quantité prise sur le lieu de provenance

Je souhaite ensuite que les quantités s'ajustent dans les rubrique Dépôt à chantier (colonnes D à J) ... (je dois pouvoir rajouter des chantier) sachant que le stock global sera constant le stock dépôt est donc égale à somme stock global - somme stock sur chantiers.

J'espère que ma demande est plus compréhensible de cette façon et plus simple à mettre en oeuvre.

Merci d'avance :) passez une bonne journée

Bonjour,

Pour remplir les ComboBox de ton userform tu peux procéder comme cela :

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize() For i = 1 To Range("A" & Rows.Count).End(xlUp).Row ComboBox1.AddItem (Cells(i, 1).Value) Next For i = 1 To Range("B" & Rows.Count).End(xlUp).Row ComboBox2.AddItem (Cells(i, 2).Value) Next End Sub

---

Etc...

Pour récupérer ensuite les valeurs sélectionnées, il te suffit de faire

Code:

---

ComboBox1.Value

---

Je penses qu'avec ça tu pourra réaliser ta demande

Si tu as d'autre questions n'hésite pas

Bonne journée

Bonjour,

Merci, et pour récupérer mes noms de chantier dans provenance et destination comment puis-je procéder ?

Bonne journée

Je n'ai pas ouvert ton document mais je suppose que provenance et destination sont deux feuilles différentes ?

Si oui, le principe est le même, sauf qu'il faut spécifier sur quelle feuille tu récupère tes informations.

Code:

---

ComboBox1.AddItem (Worksheets("provenance").Cells(i, 1).Value)

---

Dis-moi si c'était bien ça ta question ;)

Non en fait tout est sur une seule et même feuille comme sur la photo ci-dessous.
Pièce jointe 373345

Le bouton m'affiche ensuite l'userform suivant que je souhaite compléter

Pièce jointe 373348

Bonjour,

Même principe que pour les autre ComboBox, sauf que cette fois on incrémente les colonnes :

Code:

---

1 2 3

For i = 5 To Cells(3, Cells.Columns.Count).End(xlToLeft).Column ComboBox1.AddItem (Cells(3, i).Value) Next

---

Petite question : A quoi sert ton ComboBox dans la catégorie ?

Bonne journée :)

Bonjour,

Le ComboBox dans la catégorie me permet de sélectionner le type de matériel que je souhaite déplacé dans celle ci.

Pièce jointe 373496

Si je comprend bien je dois placer ton code dans mon Combobox 3 (provenance) et 4 (destination) c'est bien ça ?

Bonne journée :)

Re,

Oui, ainsi tu auras la liste des chantiers dans tes deux ComboBox

Si tu as d'autre question n'hésite pas

J'ai rentré le code mais rien ne s'affiche dans les comboBox :?

As-tu mis le code dans ton UserForm_Initialize() et en mettant le bon nom de ComboBox ?