Discussion :

[max452]

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 :

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
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

[Menhir]

Tu peux faire tout ça sans boucle et en une seule ligne avec la méthode Replace.
https://msdn.microsoft.com/fr-fr/lib.../ff194086.aspx

[max452]

Je ne connais pas cette fonction, peux tu être plus clair ?

Merci d'avance

[Menhir]

Dans le lien que j'ai fourni, il y a la description, la syntaxe, les paramètres, une explication et un exemple.
A part faire tout le boulot pour toi, je ne vois pas comment être plus clair.

Mais il est vrai qu'en ayant répondu 2 min après ma proposition, tu n'as pas du avoir le temps de lire tout ça...

[max452]

Bonsoir,

j'ai pourtant essayé mais jusqu'à tard et je n'y arrive pas, ce n'est pas de la mauvaise volonté. J'ai l'impression d'être encore plus perdu.
J'espère que quelqu'un pourra m'expliquer ce qui ne va pas car j'ai eu toutes sorte d'erreur. Avant, j'arrivais à remplacer une seule case mais maintenant plus rien. Je désespère.

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
Private Sub ComboBox1_Click()
Me.TextBox1.SetFocus
End Sub
 
Private Sub CommandButton1_Click()
  If TextBox1.Value = "" Then
MsgBox "Texte de remplacement définitif est vide !"
TextBox1.SetFocus
Else
End If
 
Sheets("Feuill").Columns("D").Replace (What:="Combobox1", Replacement:="Textbox1",
 SearchOrder:=xlByColumns, MatchCase:=True)
 
 
    If Not Cel Is Nothing Then
      Ligne = Cel.Row
      If MsgBox("Voulez-vous modifier le numéro de palette ?", _
                      vbQuestion + vbYesNo, "Modification") <> vbYes Then Exit Sub
 
 
 
 
 
 
  End If
  Unload Me
  UserForm2.Show vbModeless
 
 End Sub
 
Private Sub TextBox1_Change()
 
End Sub
 
Private Sub TextBox2_Change()
TextBox2.Value = ComboBox1.Value
End Sub
 
Private Sub UserForm2_Initialize()
Dim i As Long
With Sheets("Feuil1")
For i = 2 To 1500
ComboBox1.AddItem .Cells(i, 1)
Next i
End With
End Sub

[unparia]

Bonjour

Sheets("Feuill").Columns("D").Replace (What:="Combobox1", Replacement:="Textbox1",
SearchOrder:=xlByColumns, MatchCase:=True)

Tu cherches à remplacer la chaîne de caractères "Combobox1" par la chaîne de caractères "Textbox1" ?
Vraiment ?

[Pierre Fauconnier]

Autant de messages (6 utiles pour 12 inutiles) qui tournent autour du pot au lieu de donner et d'expliquer directement la solution...