VBA recherchev avec remplacement

youky(BJ)

XLDnaute Barbatruc

• 14 Février 2014

• #2

Re : VBA recherchev avec remplacement

Bonsoir msingle,
Voici du tout cuit sur ton fichier.

Bon weekend
Bruno

 

Pièces jointes

• Classeur test.xlsm

  30.8 KB · Affichages: 31
• Classeur test.xlsm

  30.8 KB · Affichages: 36
• Classeur test.xlsm

  30.8 KB · Affichages: 35

Vote positif 0 Vote négatif

msingle

XLDnaute Occasionnel

• 14 Février 2014

• #3

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.

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 14 Février 2014

• #4

Re : VBA recherchev avec remplacement

Donc plus simple,
Voici la rectification

Code:

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

 

Vote positif 0 Vote négatif

msingle

XLDnaute Occasionnel

• 14 Février 2014

• #5

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 14 Février 2014

• #6

Re : VBA recherchev avec remplacement

Nouveau fichier
A voir si cela conviens
Bruno

 

Pièces jointes

• Classeur test.xlsm

  20 KB · Affichages: 33
• Classeur test.xlsm

  20 KB · Affichages: 38
• Classeur test.xlsm

  20 KB · Affichages: 33

Vote positif 0 Vote négatif

msingle

XLDnaute Occasionnel

• 14 Février 2014

• #7

Re : VBA recherchev avec remplacement

Parfait!

Merci Bruno.

Marc

 

Vote positif 0 Vote négatif

msingle

XLDnaute Occasionnel

• 14 Février 2014

• #8

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.

 

Vote positif 0 Vote négatif