6 pièce(s) jointe(s)
Correction de mes differents code vba
Bonjour a Tous,
Je viens a tous pour un hic rencontre dans mon code vba.
La logique de mon fichier excel etait de me permettre de trouver l'emplacement(positionnement) de mes marchandises dans les differents magasins.
Pour Effectuer la recherche j'utilise un userform et a l'aide d'un code vba je dois retrouver la merchandise rechercher.
La merchandise rechercher se differentie par une couleur verte lorsqu'on la trouve.
Les 4 magasins s'etendent de la colonne B a colonne BK et de la ligne 5 a la ligne 42.
la recherche se fait comme suit (voir ecran) , le numero de lot est renseigner dans l'userform pour retrouver sa position dans le magasin.
Pièce jointe 515161
A la suite un userform s'affiche ou l'utilisateur devra cliquer sur "voir plan" pour voir la position virtuel de la marchandise dans le magasin qui sera colore maintenant a la suite mon probleme arrive lorsqu'une autre recherche est faite a nouveau la preccedente position coloree reste toujours verte y compris la nouvelle position la merchandise recherche , au lieu de colore uniquement la position exacte ou se trouve la nouvelle recherche ou souvent il colore plusieurs positions.(Voir image)
Ci-dessous les images
Pièce jointe 515165Pièce jointe 515167Pièce jointe 515171
Merci voir mes differents code VBA
Code VBA pour userform pour les boutons commande1"voir sur plan" et commande2"fermer".
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
| Private Sub CommandButton1_Click()
ThisWorkbook.Sheets(1).Activate
Dim lign As Integer, col As Integer
For ligne = 5 To 42
For col = 2 To 65
If Len(Cells(ligne, col)) = 3 Or Len(Cells(ligne, col)) = 5 Then
Cells(ligne, col).Interior.ColorIndex = 24
End If
If Cells(ligne, col).Value = UserForm1.Label6.Caption Then
Cells(ligne, col).Interior.ColorIndex = 4
End If
Next col
Next ligne
End Sub
Private Sub CommandButton2_Click()
Dim lign As Integer, col As Integer
For ligne = 5 To 42
For col = 2 To 65
If Len(Cells(ligne, col)) = 3 Or Len(Cells(ligne, col)) = 5 Then
Cells(ligne, col).Interior.ColorIndex = 24
End If
Next col
Next ligne
Unload UserForm1
ThisWorkbook.Sheets(2).Activate
End Sub |
Pièce jointe 515178
Code vba pour la feuille "recherche"
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
| Private Sub Worksheet_Activate()
Dim reference As String, verif As String
reference = InputBox("saisissez une reference:", "rechercher une reference")
verif = ""
Dim i As Integer
i = 2
Do While Sheets("recherche").Cells(i, 1) <> ""
If Sheets("recherche").Cells(i, 1) Like reference Then
UserForm1.Label11.Caption = Sheets("recherche").Cells(i, 1).Value
UserForm1.Label2.Caption = Sheets("recherche").Cells(i, 2).Value
UserForm1.Label5.Caption = Sheets("recherche").Cells(i, 3).Value
UserForm1.Label6.Caption = Sheets("recherche").Cells(i, 4).Value
UserForm1.Label7.Caption = Sheets("recherche").Cells(i, 5).Value
verif = "ok"
UserForm1.Show
End If
i = i + 1
Loop
If verif <> "ok" Then
MsgBox "reference invalide..."
End If
End Sub |
Pièce jointe 515183
