Enregistrer le format d'une valeur textbox en monétaire

[gbstyle]

Bonjour, voila je souhaiterai lors de l'enregistrement sur mon tableau que le format nombre soit monétaire
ci joint mon bout de code
Private Sub BtnAenregistrer_Click()
Ref = Me.TxtARefArticles
With Sheets("Base_Articles")
Set trouvé = .Range("TblBaseArticles").Columns(1).Find(Ref, lookat:=xlWhole, LookIn:=xlValues)
If trouvé Is Nothing Then 'il s'agit d'un nouvelle articles
derlig = .Range("A" & .Rows.Count).End(xlUp).Row + 1 'on se positionne sur la dernière ligne
Else 'existe déjà
derlig = trouvé.Row
If MsgBox("Souhaitez vous modifier l'article ?", vbYesNo) = vbNo Then Exit Sub
End If

.Range("A" & derlig) = TxtARefArticles
.Range("B" & derlig) = CboAFamille
.Range("C" & derlig) = CboASousfamille
.Range("D" & derlig) = TxtADesignation
.Range("E" & derlig) = CboAFournisseur
.Range("F" & derlig) = TxtALongueurcolisage
.Range("G" & derlig) = TxtALargeurcolisage
.Range("H" & derlig) = TxtAHauteurcolisage
.Range("I" & derlig) = TxtACréele
.Range("J" & derlig) = TxtANotes
.Range("K" & derlig) = TxtADelaislivraison
.Range("L" & derlig) = TxtAFraistransport
.Range("M" & derlig) = TxtAFacturation
.Range("N" & derlig) = CboAModedegestion
.Range("O" & derlig) = TxtAminicommande
.Range("P" & derlig) = TxtAPrixUnitHT ' => données à afficher en format Euros lors de la saisie dans le text box et lors de l'enregistrement que sont format se mette en monétaire dans le tableau source
J'ai essaye un code avec .NumberFormat = "#,##0.00 $" mais je n'y arrive pas, il me manque une déclaration de variable je pense

End With

End Sub

D'avance merci

 

[gbstyle]

La 2ème étape j'essayerai de sortir une Lbx qui me synthétisera toute mes lignes saisie dans un ordre décroissant a partir de cet info
BxPPrevFintravaux, "Date prév fin de trav", Format:="mmm.yy"
mais ca sera dans un 2ème temp

 

[Dranreb]

Bonjour
On ne peut guère utiliser la propriété Format pour du texte. Elle est simplement interprétée par la fonction VBA.Format pour mettre en forme du numérique essentiellement. On peut à la rigueur spécifier Format:="""DO2020SL""0000" si la colonne ne porte que le numéro avec un format de cellule qui affiche la même chose. Mais je crains que ce ne serait pas repris en numérique à la création d'une ligne, à moins de le corriger dans TVL avant de l'écrire.
L'objet ControlsAssociés supporte les CheckBox. On peut leur spécifier en Format:="Oui;Non" les valeurs enregistrées dans la base pour True et False si la coche ne convient pas.

 

[gbstyle]

comment je fais pour déclarer mes check, si ca me marque oui ou non dans le TVL ca me va bien , c'est surtout sur le visuel pour moi

 

[Dranreb]

Ben essaye des CA.Add Me.CkxChèqRègPrim, "Règlement Prime", Format:="Oui;Non"