Fonction rechercher et remplacer vba
Bonjour à tous,
je peine sur un autre problème, je range 6 produits par emplacement. Il m'arrive de les changer de place et donc comme il y en a des centaines à chaque fois je voudrais pourvoir rechercher dans le fichier et remplacer l'emplacement des 6 produits
par un autre. Là où je coince c'est que mon code ne me permet de le faire qu'à un seul et ignore les autres et une fois le remplacement fait, soit la combobox et la textbox ne s'efface pas, soit elles s’efface et je perd la liste du menu déroulant.
Quelqu'un peut il m'éclairer ?
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
| Option Explicit
Dim Ligne As Long
Dim Cel As Range
Private Sub CommandButton1_Click()
With Sheets("Feuil1")
Set Cel = .Columns("D").Find(what:=Me.ComboBox1, LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
Ligne = Cel.Row
If MsgBox("Voulez-vous attribuer un numéro de palette définitif ?", _
vbQuestion + vbYesNo, "Modification") <> vbYes Then Exit Sub
.Range("D" & Ligne) = Me.TextBox1
End If
End With
Unload Me
UserForm1.Show vbModeless
End Sub
Private Sub ComboBox1_Change()
TextBox1.Value = ComboBox1.Value
End Sub |
