Remplacement données d'une cellule par celle de userforme

Bonjour a tous,

Alors je explique,

Je dispose d'un tableau avec plein de references et quantité. J'ai créer un user form avec plusieurs formule sans souci. Je n'arrive juste pas a faire 1 seul chose.

Je veux que ma valeur dans textbox6 aille se mettre dans la bonne case (colonne "f") de mon tableau1 en fonction de la reference choisi en textbox2

merci d'avance a celui qui pourrais m’éclairer

Bonjour,

J'ai cru un moment que vous vendiez des cierges...

Attention !!! J'ai supprimé pas mal de procédures dans le userform. Le fichier joint ne traite que de la question posée.

Pour cela, il vous faut travailler avec une ListBox comme ci-dessous. Le bouton Mettre à jour vient corriger la valeur dans votre Tableau1.

Bonjour Mouni,

Pour commencer, il faudrait :

1) Nommer vos Contrôles correctement au lieu de laisser "Textbox6" par exemple
2) Mettre "Option Explicit" en entête de vos Usf et modules (s'il y en avait)
3) Définir vos variables
4) Indenter correctement vos lignes
5) Eviter les lignes blanches
6) Nettoyer votre code des Sub qui ne servent à rien

Sinon pour votre demande les lignes suivantes ont été ajoutées

  ' Si nouvelle quantité saisie
  If Me.Tbx_NewQt.Value <> "" Then
    LigF = TrouverLigne("lieu_saint", "A:A", Me.Tbx_Ref)
    ' Si la ligne a été trouvée
    If LigF > 0 Then
      Sheets("lieu_saint").Range("F" & LigF).Value = Me.Tbx_NewQt * 1
    End If
  End If

Avec une petite fonction

Function TrouverLigne(NomFeuil As String, Dans As String, Quoi As String)
  TrouverLigne = 0
  On Error Resume Next
  With Sheet(NomFeuil).Range(Dans)
    TrouverLigne = .Find(What:=Quoi, LookIn:=xlValues, LookAt:=xlWhole, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False).Row
  End With
  On Error GoTo 0
End Function

Voici le fichier à finir de modifier comme indiqué

Edit : Décidément, bonjour Eric... on se suit