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

Dranreb

XLDnaute Barbatruc
Non, non, rien de tout ça. Le plus simple possible.
 

Dranreb

XLDnaute Barbatruc
Moi j'aimerais même savoir si cette simple procédure ne plante pas déjà :
VB:
Sub VérifBogue1()
Dim LOt As ListObject, Rng As Range
Set LOt = ActiveSheet.ListObjects(1)
Set Rng = LOt.HeaderRowRange.Offset(LOt.ListRows.Count + 1)
Rng.Value = "X"
End Sub
 

gbstyle

XLDnaute Occasionnel
A prioris en executant la macro tout les champs ont était renseigné par des X dans le tableau
mais vigilance je suis sur office 2010 j'essayerai aussi demain sous 2016 toute les manipulations
 

Dranreb

XLDnaute Barbatruc
Bonjour.
Bon alors en la transformant en une CommandButton1_Click de l'UserForm, elle marche toujours ?
 

Dranreb

XLDnaute Barbatruc
Ben il faut se rapprocher progressivement du cas de figure où ça plante.
Comme ça ça marche toujour ?
VB:
Option Explicit
Private LOt As ListObject, Rng As Range
Private Sub UserForm_Initialize()
Set LOt = ActiveSheet.ListObjects(1)
End Sub
Private Sub CBnValiderF_Click()
Set Rng = LOt.HeaderRowRange.Offset(LOt.ListRows.Count + 1)
Rng.Value = "X"
End Sub
 

Dranreb

XLDnaute Barbatruc
L'étape suivante c'est d'ajouter un nouveau module de classe avec ce code :
VB:
Option Explicit
Public PlgTablo As Range
Public Sub Init()
Set PlgTablo = ActiveSheet.ListObjects(1).DataBodyRange
End Sub
Et dans l'UserForm :
VB:
Option Explicit
Private CLs1 As Classe1
Private Sub UserForm_Initialize()
Set CLs1 = New Classe1
CLs1.Init
End Sub
Private Sub CBnValiderF_Click()
CLs1.PlgTablo.Rows(CLs1.PlgTablo.Rows.Count + 1).Value = "X"
End Sub
Mais ça commence à m'impatienter…
Es-tu sûr que ton classeur d'application plante toujours ?
Que disent les msgbox, les espions, tout ça ?
 

gbstyle

XLDnaute Occasionnel
Alors écoute je viens d'effectuer toute les manip demandés et cela fonctionne.
En ce qui concerne le classeur d'application je te confirme que oui c'est la première chose que j'ai testé ce matin.

Ecoute je vais revoir le classeur d'application en recréant mes userform, et avancé étape par étape sous excel 2016 :
d'abord fiche fournisseur ensuite fiche article et ensuite fiche commande

Par contre je ne peux réécrire tes module de classe définis donc je vais les copier normalement ils sont plus que bon vu que ca fonctionne chez toi.
 

Fichiers joints

Dranreb

XLDnaute Barbatruc
Ça a l'air bon, et juste après ça plante !???
Mais non, attend, c'est bizarre, combien de lignes il dit ?
Ah non. Faute de frappe c'est le nombre de lignes de CLsA.Plgtablo, ça change rien.
 
Dernière édition:

gbstyle

XLDnaute Occasionnel
Dranreb j'ai ptet quelque chose qui pourrait t'aider regarde
upload_2018-7-4_12-12-6.png
ci joint 2 point d'arret + un espion sur ClscValeurvers
Lorsque je fais l'execution en mode pas à pas je peux ajouter des article à la commande, par contre lorsque que je quitte le débogage et que je veux utiliser la base elle plante.
Essais tu verras ca va faire 2 manipulation que je fais et ca fonctionne que quand je fais executer la fonction a partir du menu débogage
 

Fichiers joints

gbstyle

XLDnaute Occasionnel
C'est un truc de fou je fais 2 fois la manip ca fonctionne je ferme le fichier et je recommance et ca plante meme en débogage
 

Dranreb

XLDnaute Barbatruc
ValeursVers n'est pas une propriété mais une méthode. Elle ne renvoie pas de valeur.
C'est expliqué ainsi que tout le reste dans la page d'aide de CBxL.xlsm (c'est valable même pour les modules de service si le xlam n'est pas utilisé)
À part ça je sèche toujours, même si ça m'a fait tiquer de lire que ça plantait moins en pas à pas qu'en exécution continue. C'est généralement le signe de requêtes système non exécutées à temps. Une Instruction DoEvents peut parfois arranger les choses.
 

gbstyle

XLDnaute Occasionnel
Je ne sais pas si ca peut t'aider mais j'ai essayer une autre manipulation :
Au démarrage de l'userform dans le fichier joint
- Je vais sur la listbox C00001 je sélectionne le 2 ème article
- Je le supprime avec la CBn
- a partir de la listbox des réf lié aux fournisseur je selectionne un article pour l'ajouter à la commande
- je saisie une quantité
- je valide par la cmd buton ajouter
miracle l'article apparait bien dans la commande
je décide donc :
- de sélectionner un nouvelle article
- je resaisie une quantité
- je valide par commande bouton

Et la la base plante.
 

Discussions similaires


Haut Bas