XL 2013 Format Valeur Textbox avec un Vlookup

[CGU2022.]

Bonjour et meilleurs vœux a tout le monde.

Afin de rapatrier la valeur des colonnes manquantes (limite de colonnes listebox) j'ai utilisé le code suivant:

'cherche la valeur d'une textbox va chercher dans la base de donnees et met la valeur dans une autre textbox

Private Sub Txt_label_Change()
On Error GoTo 1
If WorksheetFunction.CountIf(Sheets("Articles").Range("A:A"), Txt_label.Value) = 0 Then
MsgBox "pas d'article", vbInformation + vbOKOnly, "client non"

End If
With Me 'joseph étant une plage de nom
.Txt_F1 = Application.WorksheetFunction.VLookup(Me.Txt_label, Sheets("Articles").Range("joseph"), 7, 0)
.Txt_F2 = Application.WorksheetFunction.VLookup(Me.Txt_label, Sheets("Articles").Range("joseph"), 8, 0)


End With
1 'renvoi de On Error GoTo 1
End Sub

je cherche que la valeur retour dans listbox soit sous forme monétaire: Txt_F1 et Txt_F2: "#.## €"

 

[mapomme]

Bonne année @christophe.garrigou@gmail ,

Pour nos étrennes ce serait bien de nous joindre un fichier .

A+

Sinon allez voir du côté : Txt_F1=Format(Txt_F1,"#.## €")

 

[job75]

Bonjour christophe.garrigou@gmail, mapomme,

Bonne année et pour bien la commencer faites les choses simplement :

Private Sub Txt_label_Change()
If Application.CountIf(Sheets("Articles").Range("joseph").Columns(1), Txt_label) = 0 Then
    MsgBox "pas d'article", vbInformation + vbOKOnly, "client non"
Else
    Txt_F1 = Format(Application.VLookup(Txt_label, Sheets("Articles").Range("joseph"), 7, 0), "0.00 €")
    Txt_F2 = Format(Application.VLookup(Txt_label, Sheets("Articles").Range("joseph"), 8, 0), "0.00 €")
End If
End Sub

A+

 

[CGU2022.]

Bonjour christophe.garrigou@gmail, mapomme,

Bonne année et pour bien la commencer faites les choses simplement :

Private Sub Txt_label_Change()
If Application.CountIf(Sheets("Articles").Range("joseph").Columns(1), Txt_label) = 0 Then
    MsgBox "pas d'article", vbInformation + vbOKOnly, "client non"
Else
    .Txt_F1 = Format(Application.VLookup(Txt_label, Sheets("Articles").Range("joseph"), 7, 0), "0.00 €")
    .Txt_F2 = Format(Application.VLookup(Txt_label, Sheets("Articles").Range("joseph"), 8, 0), "0.00 €")
End If
End Sub

A+

Merci.............................

j'ai simplement récupèré la lignes et adapté à la suite de mon projet.

.Txt_F1 = Format(Application.VLookup(Txt_label, Sheets("Articles").Range("joseph"), 7, 0), "0.00 €")

 

[cp4]

Bonjour @mapomme , @job75 , @christophe.garrigou@gmail,

Bonne année 2022 à toutes et à tous.

@christophe.garrigou@gmail : C'est de mettre un pouce bleu, ça serait mieux de pointer la solution fournie par @job75. Tu sais les 2 icônes (haut / bas) à droite du post servent justement à ça. En faisant ainsi, tu auras facilité à un autre membre de trouver facilement une solution à un problème similaire.

Merci.

 

[cp4]

Merci.............................

j'ai simplement récupèré la lignes et adapté à la suite de mon projet.

.Txt_F1 = Format(Application.VLookup(Txt_label, Sheets("Articles").Range("joseph"), 7, 0), "0.00 €")













Regarde la pièce jointe 1126186

n'aurais-tu pas oublié le With Me et End With

 

[CGU2022.]

Bonne année @christophe.garrigou@gmail ,

Pour nos étrennes ce serait bien de nous joindre un fichier .

A+

Sinon allez voir du côté : Txt_F1=Format(Txt_F1,"#.## €")

Bonjour ci joint le fichier mais il y a tout. j'ai résolu le problème avec la ligne de job75.....
d'autres infos pourront surement servir à d'autres personnes ......

 

[cp4]

Bonjour ci joint le fichier mais il y a tout. j'ai résolu le problème avec la ligne de job75.....
d'autres infos pourront surement servir à d'autres personnes ......

Ce n'est pas ce que je voulais dire mais ceci en demo

 

[job75]

n'aurais-tu pas oublié le With Me et End With

Moi je l'avais oublié mais c'est bien inutile, j'enlève les points en trop de mon post #3.