VBA recherchev avec remplacement

[msingle]

Bonsoir,

Je cherche un code VBA qui permettrait, via un formulaire, de remplacer une donnée d'un tableau se trouvant sur une autre feuille.

Ce sera plus compréhensible avec un exemple...

Merci de votre aide.

 

[youky(BJ)]

Re : VBA recherchev avec remplacement

Bonsoir msingle,
Voici du tout cuit sur ton fichier.

Bon weekend
Bruno

 

[msingle]

Re : VBA recherchev avec remplacement

Super solution!

Malheureusement, les formules de la colonne B me sont indispensables...😛

Donc je cherche à remplacer sur feuil2, la désignation de l'article "Texte" par la valeur de la Textbox1.

 

[youky(BJ)]

Re : VBA recherchev avec remplacement

Donc plus simple,
Voici la rectification

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 And Target = "Texte" Then UserForm1.Show
End Sub

Bruno

 

[msingle]

Re : VBA recherchev avec remplacement

Oui, c'est encore plus simple, mais cela ne résout pas mon problème...

Au lieu de placer la valeur Textbox1 sur Feuil1, je voudrais que cette valeur remplace la valeur qui se trouve en B7 sur Feuil2.

Marc

 

[youky(BJ)]

Re : VBA recherchev avec remplacement

Nouveau fichier
A voir si cela conviens
Bruno

 

[msingle]

Re : VBA recherchev avec remplacement

Parfait!

Merci Bruno.

Marc

 

[msingle]

Re : VBA recherchev avec remplacement

Désolé, mais j'ai été un peu trop rapide.

Dans la ligne de code "Feuil2.[B7] = TextBox1" [B7] devrait pouvoir être variable.

J'avais essayé avec
"WorksheetFunction.VLookup((ActiveCell.Value), Sheets("Feuil2").Range("Tableau1"), 2, False) = TextBox1.Value"
mais cela ne fonctionne pas.