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

gbstyle · 9 Février 2018

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 · 19 Juin 2018

Ok c'est noté merci DRANREB
je voulais également ajouter pour une question d'esthétisme et de modif diverce par mon magasinier cette procédure :

VB:

Private Sub Workbook_Open()
    '--- ouverture classeur, met en plein écran ---
    Application.DisplayFullScreen = True
End Sub

L'objectif et de ne pas afficher les ruban pour modification, si je pouvais dévérouiller l'affichager par un password ca serait mieux mais je sent que ca va etre compliqué cette histoire

Dranreb · 19 Juin 2018

Je me demande si je ne m'orienterais pas sur une manœuvre connue de vous seul, tel que trois clics espacés d'une seconde environ sur le fond d'un UserForm par exemple…

gbstyle · 20 Juin 2018

Bonjour Dranreb ce sont des choses qui sont faisable ca, c'est extraordinaire :/:
- Mon besoin affichage en plein écran de la base avec impossibilité de modifier et d'accéder au développeur VBA
- Définir un endroit et une méthode de déverrouillage (acces ruban Excel et développeur VBA) connu que par moi même pour modification éventuelle et intervention.
Si je pouvais faire cela ca serait parfait car parfois curieur ou personne mal formé pourrait très vite faire une fausse manip et faussé le fonctionnement de la base.

Dranreb · 20 Juin 2018

Bonjour.
Cette procédure dans un UserForm basculerait alternativement l'affichage plein écran et normal par deux doubles clics successifs dans une zone inutilisée (quelque part entre les Frame) :

VB:

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Static Temps As Date
If Temps <> 0 Then
   Application.DisplayFullScreen = Not Application.DisplayFullScreen
Else
   Temps = Now + TimeSerial(0, 0, 1)
   Do: DoEvents: Loop Until Now > Temps
   End If
Temps = 0
End Sub

gbstyle · 20 Juin 2018

je vais essayer de l'intégrer dans un des 3 userform utilisé je reviens vers toi merci encore mille fois

gbstyle · 20 Juin 2018

C'est vraiment top, par contre suite à ma procédure de masque au démarrage dans this workbook pour affichage pleine écran, est il possible d'empecher l'apparition du dévelppeur VBA (Alt F11) car en faisant la manip je l'ai toujour
Et en deuxième point, je me suis aperçus que je pouvais faire réapparaitre les rubans en cliquant droit et fermer l'affichage plein écran, je souhaite verrouiller cette possibilité

Dranreb · 20 Juin 2018

Non là je ne sais pas, il faudrait que je cherche autant que vous.
Vous pouvez naturellement protéger votre projet VBA par un mot de passe, mais c'est un coup à ne plus s'en rappeler et vous ne seriez alors ni le premier ni le dernier à tout perdre.

gbstyle · 20 Juin 2018

J'ai une méthodologie bien définit pour mes mot de passe et il sont toujour archiver et suivis sur un petit fichier texte en fonction de tout mes projet sauvegarder sur 2 support différent au cas ou :/ lol
Ca peut éventuellement m'intéresser

Sinon j'ai essayer de regarder un petit peu sur la toile pour le verrouillage du mode plein écran mais pas beaucoup de retour :
- certain recommande de verrouiller éventuellement les icone en haut à droite
- mais j'ai pas trouver de réponse pour éviter le clic droit fermer le plein écran ou meme le bouton échap a prioris :/

gbstyle · 29 Juin 2018

Bonjour Dranreb, après avoir voulu passer une première commande j'ai eu un nouveau message d'erreur, pour info je viens de changer de version Excel et je suis passé sur la dernière version excel.
ci joint message d'erreur : et je n'arrive pas à comprendre ce qui s'est passé depuis le temp :/

Dranreb · 29 Juin 2018

Bonjour.
Je ne sais pas. Il y a longtemps que je n'ai plus eu ce message d'un objet qui s'est déconnecté de ses clients et je n'ai jamais bien su ce que ça voulait dire. Mais j'avais en tout cas toujours trouvé une incohérence quelque part dans la pérennité de l'existence vue de divers points de vue des objets impliqués. Je ne peux que vous conseiller de mettre des espions sur les expressions impliquée dans l'instruction pour voir plus précisément ce qui n'est plus bien défini.

gbstyle · 29 Juin 2018

euh je ne maitrise plus trop la mise en place des espions puis je t'envoyer un exemplaire du fichier ? car je pense ne pas réussir à identifier le soucis :/ si toi même tu vois que c'est compliqué

gbstyle · 29 Juin 2018

j'ai un message qui s'arrete toujour sur ceci :

Dranreb · 29 Juin 2018

Je ne sais quoi dire. J'ai affiché par touche F5 la FRmGlobal, j'ai fait exécuter la CBnValiderC_Click, et bien que j'ai du sauter des instructions parce que je n'avais pas correctement utilisé l'outil pour avoir date et montant initialisés, la ligne de commande s'est bien ajoutée.
Pour ajouter un espion en débogage, sélectionner une expression dans l'instruction où l'exécution est arrêtée, menu Débogage, commande Ajouter un espion…

gbstyle · 29 Juin 2018

bon et bien mince je n'arrive meme pas à reproduire ta manipulation j'ai toujour la meme erreur et meme en mettant l'espion ca ne m'aide pas vraiment ca s'arrete toujour au meme endroit
Par contre ce qui m'étonne c'est que tu as réussis à créer quand meme une ligne de commande

gbstyle · 29 Juin 2018

J'ai mon erreur qui s'arrete toujour au meme endroit et meme avec l'espion je n'arrive meme pas à envisager de creer la ligne de commande, pourtant je n'ai rien toucher d'orginine c'est bisarre

Effectuez une recherche sur Excel Downloads...

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

gbstyle

XLDnaute Impliqué

gbstyle

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

gbstyle

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

gbstyle

XLDnaute Impliqué

gbstyle

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

gbstyle

XLDnaute Impliqué

gbstyle

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

gbstyle

XLDnaute Impliqué

gbstyle

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

gbstyle

XLDnaute Impliqué

gbstyle

XLDnaute Impliqué

Pièces jointes

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums