Discussion :

[alban10000]

Bonsoir à tous,

Novice en VBA, je souhaiterai réaliser une gestion dynamique d'emplacement de stockage (très basique sur le papier mais un peu plus compliqué sur Excel ).

Pour résumer ma demande, j'ai 10 emplacements (de EMPLA0001 à EMPLA0010) et 26 articles, de A à z (pour l'exemple). Je peux avoir plusieurs quantité sur mon article (trois A, deux F, cinq Y, etc). Afin de m'y retrouver, je souhaite développer un fichier simple avec une gestion dynamique des emplacements.

Régles de gestion :

- J'indique mon article en cellule B3 :
- Si pas d'emplacement attribué alors attribution d'un emplacement libre (emplacement libre = aucune donnée dans colonne B : CodeArticle) + départ incrément sur Qté (colonne D).
- si emplacement déjà attribué alors simple incrément sur Qté (colonne D) de l'emplacement déjà attribué. 1 CodeArticle pour 1 emplacement.

- Lorsque je décide de vider ma case : simple suppression manuelle de mes données CodeArticle & Qté sur la ligne de mon emplacement. Mon emplacement devient alors libre pour accueillir un nouveau CodeArticle et une Qté qui redémarre à 1.

- Si tous mes emplacements sont plein et que j'indique une onzième référence (car que 10 emplacements) alors message d'erreur.

Pour l'instant, j'ai placer ma barre en cellule B3, mais je peux la positionner dans un Userform au besoin.

Vous trouverez ci-joint mon fichier pour appuyer mes propos.

Merci d'avance pour toutes vos explications.


Alban

[nibledispo]

Bonjour,

Voici une approche qu'il convient d'améliorer et entre autres la gestion des majuscules et minuscules.

Supprimer tes formules inutiles dans F4 et F5.

Je ne peux affirmer que ce code répond à tous les cas de figures.

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
20
21
22
23
 
Sub alban()
Dim plage As Object
Set plage = Range("B8:B17")
CELfin = [b8].End(xlDown).Rows
For Each C In plage
   If C.Value = "" Then
      C.Value = [B3].Value
   End If
 
   If C.Value = [B3].Value Then
      [F3].Value = C.Value
      [F4].Value = C.Offset(0, 2).Value
      [F5].Value = C.Offset(0, 1).Value
      Exit For
   End If
 
   If C = CELfin Then
      MsgBox "pas d'emplacement disponible"
   End If
Next
 
End Sub

Cordialement