Modif valeur d'une cellule par textbox avec vlookup

Bonjour !

Je cherche à modifier la valeur d'une cellule retrouvée à l'aide d'un vlookup. Cette valeur est extraite d'une textbox userform.

If TextBox2 <> "" Then
TextBox2.Value = Application.VLookup(sku, Sheets("sku nb pcs").Range("A2:D500"), 2, False)
End If

Si je fais comme ca, c'est ma textbox qui devient la valeur que je cherche à modifier, vous l'aurez compris, je cherche à faire l'inverse ;)

Merci d'avance pour votre aide !

Corentin

Bonjour Corentin, bonjour le forum,

Peut-être en inversant les données de part et d'autre du signe = :

If TextBox2 <> "" Then
Application.VLookup(sku, Sheets("sku nb pcs").Range("A2:D500"), 2, False).Value = TextBox2.Value
End If

Merci à toi pour ton retour.

Bien tenté, mais non malheureusement

Re,

Pourquoi une capture d'écran ? On n'est pas sur un forum PhotoChope... Sans le fichier qui va bien, pour pouvoir tester je passe la main.

Bonjour,

Désolé pour le délai et pour la capture d'écran.

Voici un fichier reprenant mon problème.

Il faudrait que la textbox1 remplace la valeur de la deuxième colonne en référence au label1.

La macro du fichier :

Private Sub CommandButton1_Click()

Dim sku As String
sku = Label1

Application.VLookup(sku, Sheets("feuil1").Range("a1:b500"), 2, False).Value = TextBox1.Value

End Sub

Merci !

Re,

Essaie comme ça :

Private Sub CommandButton1_Click()
Dim O As Worksheet
Dim sku As String
Dim R As Range

Set O = Worksheets("Feuil1")
Set tv = O.Range("A1").CurrentRegion
sku = Label1.Caption
Set R = O.Columns(1).Find(sku, , xlValues, xlWhole)
If Not R Is Nothing Then
    R.Offset(0, 1).Value = Me.TextBox1.Value
End If
End Sub