macro pour transfer

Version imprimable

22/02/2023, 09h55
MehdiM12

2 pièce(s) jointe(s)

macro pour transfer

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

Pièce jointe 634662

Je vous remercie enormement pour votre support
24/02/2023, 03h24
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+
24/02/2023, 08h53
MehdiM12

3 pièce(s) jointe(s)

Bonjour BrunoM45,

Tout d'abord merci de votre aide et votre temps

Voila un exemple:

Dans la feuille "StorageData" j'ai l'état suivant
Pièce jointe 634783

Dans mon interface je veux transferer Material Number 127-333-100 from Bin X01-06-03 To X01-06-04
Pièce jointe 634785

le résulat sera le suivant dans "StorageData" sheet
Pièce jointe 634786

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
26/02/2023, 16h53
rlapt

Algorithme Macro pour transfert

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
27/02/2023, 08h49
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

1 pièce(s) jointe(s)

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:

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

27/02/2023, 17h38
MehdiM12

Bonjour BENNASR,

c'est parfaitement ce que je voulais , juste deux petite remarque

1- quand je choisi le material number , le texbox choisi le premier emplacement ce qui limite mes choix l'objectif est que je choisi moi même la localisation
2- l'execution ne prend pas en compte les localisations déjà occupé du coup je risque d'avoir des doubles dans ma liste ou plus

Je m'excuse mais je suis encore débutant dans la programmation j'essaye un peu d'apprendre

Je te remerci pour ton grand aide.

cordialement

1 pièce(s) jointe(s)

bonjour Mehdi , la forum
donc tu veux avant de stocker un article vérifier si ce lieu est libre ou non
si n'est pas libre en ne peut pas enregistrer
Aussi et si j'ai bien compris, un matériel peut existé dans deux lieux
tester ça avec prudence :
nb : c'est le bricolage d'un autodidacte et nécessite bq d'amélioration

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
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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
Private Sub ComboBox1_Change()
Dim F3 As Worksheet
Dim plage As Range
Dim C As Range
Dim V As Range
 ComboBox3.Clear
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
 For Each V In plage
 If V.Value = ComboBox1.Value Then ComboBox3.AddItem F3.Range("B" & V.Row)
 Next V
 Else
 ComboBox3.Value = ""
  ComboBox3.Clear
End If
 
End Sub
 
Private Sub CommandButton1_Click()
Dim F3 As Worksheet
Set F3 = Sheets("StorageData")
Dim plage As Range
Dim plage2 As Range
Dim C As Range
Dim Cc As Range
Dim Cs As Range
Dim derlig As Long
Application.ScreenUpdating = False
derlig = F3.Cells(Rows.Count, 1).End(xlUp).Row
Set plage = F3.Range("A2:A" & F3.Range("A" & Rows.Count).End(xlUp).Row)
Set plage2 = F3.Range("B2:B" & F3.Range("B" & Rows.Count).End(xlUp).Row)
 
For i = 2 To derlig
If F3.Cells(i, "A") = ComboBox1.Value And F3.Cells(i, "B") = ComboBox3.Value Then
Set Cc = plage2.Find(ComboBox2.Value, LookIn:=xlValues, lookat:=xlWhole)
If Cc Is Nothing Then
F3.Cells(i, "B") = ComboBox2.Value
Else
MsgBox ("la localisation est déja réservée, merci de choisir une autre")
Exit Sub
End If
End If
Next i
 
 
Set C = plage.Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If C Is Nothing Then
Set Cs = plage2.Find(ComboBox2.Value, LookIn:=xlValues, lookat:=xlWhole)
If Cs Is Nothing Then
F3.Cells(derlig + 1, 1) = ComboBox1.Value
F3.Cells(derlig + 1, 2) = ComboBox2.Value
Else
MsgBox ("la localisation est déja réservée, merci de choisir une autre")
Exit Sub
End If
End If
ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
Application.ScreenUpdating = True
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 = ""
ComboBox3.Value = ""
ComboBox3.ListIndex = -1
 
End Sub

01/03/2023, 09h13
MehdiM12

Bonjour BENNASR,

Je ne sais pas comment je peux te remercier, effectivement c'est ce que je souhaitais avoir comme résultat
J'essaye maintenant juste de conditionner mes choix car on executant la macro j'ai remarqué que je peux entrer n'impoter quelle localisation ou article même s'il n'existe pas dans les deux feuilles "Materials" et "Sbins"
Votre aide me serais précieuse pour finaliser

Je te remercie encore une fois pour temps et pour ce que j'ai pu apprendre grace à toi
Cordialement

Bonjour
pour empécher le saisie dans les combobox ajoute :

Code:

1
2
3
4
5
6
7
8
9
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = 0
End Sub
Private Sub ComboBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = 0
End Sub
Private Sub ComboBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = 0
End Sub

02/03/2023, 14h08
MehdiM12

Bonjour BENNASR

Malheureusement je ne peux pas empécher le saisie car je veux utiliser un scan de barecode pour entrer l'article ainsi que les emplacements

Cordialement