Discussion :

[MehdiM12]

Bonjour developpeur,

J'aimerais solliciter votre aide pour pouvoir assurer via une macro la fonction suivante

j'ai un tableau dans la feuille " StorageData " qui contient " Material Number " et " Storage Bins " tout deux sont conditions par l'existence dans les deux feuilles "Materials" & " Sbins"

Mon objectif est que je veux transferer un material number d"un storage bin à un autre ( j'ai mis un exemple dans la feuille " ce que la macro doit faire " - Le resultat doit être visible dans la feuille " StorageData "

Il n'est pas possible de transfere dans un storage bin qui est déjà rempli

J'ai ajouter une interface pour faciliter la saisie



Je vous remercie enormement pour votre support

[Invité]

Bonjour MehdiM12

Je n'ai franchement pas compris le principe du From/To 🤔

Surtout que vous nous dites ensuite "Il n'est pas possible de transferer dans un storage bin qui est déjà rempli"

Pourriez-vous nous donner plus d'explication SVP

A+

[MehdiM12]

Bonjour BrunoM45,

Tout d'abord merci de votre aide et votre temps

Voila un exemple:

Dans la feuille "StorageData" j'ai l'état suivant


Dans mon interface je veux transferer Material Number 127-333-100 from Bin X01-06-03 To X01-06-04


le résulat sera le suivant dans "StorageData" sheet


Si par exemple je veux transferer Material Number 127-333-100 from Bin X01-06-03 To X02-04-31 , ca ne sera pas possible ( error popup ) car il est déjà occupé par 126-536-000

J'espère que j'ai pu un peu mieux expliquer le besoin

Merci
Bonne journée à vous

[rlapt]

Bonjour,

Dans mon idée l'algorithme est le suivant : (en fait, je pense que c'est ce que vous avez expliqué)

- vérifier que "Matérial number" de la userform existe bien dans la colonne "Materal number".
- vérifier que "From bin" de la userform n'existe pas dans la colonne "Storage bin"
- si la valeur de "From bin" de la userform n'existe pas, remplacer l'ancienne valeur par "To bin"
sinon afficher une message d'erreur.

Il y a peut-être d'autre possibilités.

Cordialement

[MehdiM12]

Bonjour rlapt,

Exactement , c'est ce que je recherche
Pourriez-vous m'aider pour la mise en place de cet algorithme

Merci d'avance
cordialement

[BENNASR]

bonjour mehdi la forum
je crois que avec un combobox est mieux que textbox pour éviter les erreurs de saisie
ce que je propose
combobox1 : tu fais le choix du matériel un textbox apparaître pour te donner la localisation actuelle
si tu veux changer tu n'as qu'a fais ton choix dans combobox2
s'il s'agit d'un nouveau materiel a stocker tu fais simplement ton choix et va s'enregister en fin du tableau
j'espère que ça t'aide à avancer
travail vite fait y a bq d'amélioration possible

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Private Sub ComboBox1_Change()
Dim F3 As Worksheet
Dim plage As Range
Dim C As Range
Set F3 = Sheets("StorageData")
Set plage = F3.Range("A2:A" & F3.Range("A" & Rows.Count).End(xlUp).Row)
Set C = plage.Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not C Is Nothing Then
TextBox1.Visible = True
TextBox1.Value = F3.Cells(C.Row, 2)
Else
TextBox1.Visible = False
TextBox1.Value = ""
End If
End Sub
 
Private Sub CommandButton1_Click()
Dim F3 As Worksheet
Set F3 = Sheets("StorageData")
Dim plage As Range
Dim C As Range
Dim derlig As Long
derlig = F3.Cells(Rows.Count, 1).End(xlUp).Row + 1
Set plage = F3.Range("A2:A" & F3.Range("A" & Rows.Count).End(xlUp).Row)
Set C = plage.Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not C Is Nothing Then
F3.Cells(C.Row, 2) = ComboBox2.Value
Else
F3.Cells(derlig, 1) = ComboBox1.Value
F3.Cells(derlig, 2) = ComboBox2.Value
End If
ComboBox1.Value = ""
ComboBox2.Value = ""
TextBox1.Value = ""
Unload Me
UserForm1.Show
End Sub
 
Private Sub UserForm_Initialize()
Dim F1 As Worksheet
Dim F2 As Worksheet
Dim i As Long
Dim j As Long
Set F1 = Sheets("Materials")
Set F2 = Sheets("Sbins")
For i = 2 To F1.Range("A65536").End(xlUp).Row
  ComboBox1 = F1.Range("A" & i)
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem F1.Range("A" & i)
Next i
For j = 2 To F2.Range("A65536").End(xlUp).Row
  ComboBox2 = F2.Range("A" & j)
  If ComboBox2.ListIndex = -1 Then ComboBox2.AddItem F2.Range("A" & j)
Next j
 
ComboBox1.Value = ""
ComboBox2.Value = ""
TextBox1.Visible = False
 
End Sub