Bouton enregistrer récalcitrant

[La Vouivre]

Bonsoir à tous
Avec votre précieuse aide, j’ai réussi à faire un fichier pour enregistrer des commandes, mais on me demande de pouvoir modifier la référence magasin des articles .
La liste des articles se trouve sur une feuille cachée BdD
J’ai donc rajouté un bouton « modification de la référence » dans l’userform recherche, mais je n’arrive pas à faire fonctionner le code pour qu’il enregistre la nouvelle référence

 

[ftho]

Re : Bouton enregistrer récalcitrant

Bonsoir,

Essaye en changeant le code de ton bouton 3 par celui-ci

Private Sub CommandButton3_Click()
Dim i As Integer, n As Integer
With Sheets("BdD")
For i = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
If .Cells(i, 2) = Me.ComboBox1.Value Then
.Cells(i, 3) = Me.TextBox2.Value
Exit Sub
End If
Next
End With
End Sub

 

[skoobi]

Re : Bouton enregistrer récalcitrant

Bonsoir,

voici le code du bouton "modification de la référence":

 Private Sub CommandButton3_Click()
With Sheets("BdD")
    col1 = "b"
    n = .Columns("B").Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole).Row
    .Range(col1 & n) = ComboBox1.Value
    .Range(col1 & n).Offset(0, 1) = TextBox2.Value
End With
MsgBox "La base de donnée a été modifiée."
End Sub

 

[La Vouivre]

Re : Bouton enregistrer récalcitrant

merci beaucoup les amis ,c'est pile poil ce que je cherchais .
encore merci pour votre travail
bonne soirée

 

[Robert]

Re : Bouton enregistrer récalcitrant

Bonsoir le fil, bonsoir le forum,

Autre méthode en utilisant la ListIndex de la ComboBox1. Voir aussi la simplification du remplissage de cette même ComboBox1...