Code pour USF

Bonjour le forum,

pouvez vous m'aider pour un code SVP?

Je joint le fichier https://www.excel-pratique.com/~files/doc/7KonXfichier.xls

Un USF qui permet de remplacer un code client par rapport à une référence donnée et existante...

merci

Salut le forum

Vavoch, tu aurais pu mettre ton début de code sur ton USF

Mytå

Bien justement Mytå, je ne sais pas quel code utiliser pour cette action...

Merci

J'ai essayé de le faire avec un ShowDataForm mais je n'y suis pas arrivé!

Je ne crois pas que ce soit la bonne solution.

Re le forum

Vacoch, tu pourrais donner un exemple du changement voulu dans ton UserForm.

A te relire

Mytå

Oui bien sur,

en fait je souhaiterais pouvoir modifier le code client d'une référence grace à la liste codes clients, le tout dans l'USF.

https://www.excel-pratique.com/~files/doc/ftCyufichier2.xls

encore merci Mytå

J'ai mis un fichier explicatif ici : (+100ko)

merci

Re le forum

Vacoch, essaye avec ceci pour voir, à mettre dans le code du UserForm.

Private Sub Modif_Click()
  Dim PremCell As String
  Dim Cell As Range

  Set Cell = Cells.Find(reference, LookIn:=xlValues, Lookat:=xlWhole)

  If Not Cell Is Nothing Then
    PremCell = Cell.Address
    Do
      Cell.Offset(0, 2) = codeclient
      Set Cell = Cells.FindNext(Cell)
    Loop Until Cell.Address = PremCell
    MsgBox ("Remplacement terminé !")
  Else
  MsgBox ("Référence inexistante !")
  End If

End Sub

Mytå

Vraiment super Mytå !

Ca marche super bien!

Puis je avoir quelques explications sur ces lignes?

Merci beaucoup !