Test textbox suivant choix dans combobox

[GClaire]

Salut a toutes et tous.

J'aimerais pouvoir faire un test des saisies dans les textbox, car ceux si on un format suivant l'unité séléctionnée dans le ComboBox.

Pour le moment si je sélectionne en premier l'unité, cela me fait bien ce test, mais s'il y a un changement d'unité aprés saisie des TextBox le test ne fonctionne plus.

Par exemple :

Si je choisi Pièce en premier dans le ComboBox et que je saisaie un nombre avec une virgule, un message apparait.


Mais si je viens a changer le type d'unité aprés (Car j'ai fait une erreur de sélection ou que je n'avait pas fait de sélection avant), le test ne se fait plus.

Je vous remercie par avance, G'Claire

 

[Robert]

Bonjour G’Claire, bonjour le forum,

Je n’ai pas de vrai solution à ton problème mais je te propose ceci :

Private Sub cbxUnite_Change()
StockBox.Value = ""
txtEntreeInitial = ""
StockBox.SetFocus
End Sub

Qui effacera les entrée en cas de changement d’Unité.

Je me permets quand même quelques remarques même si ça ne me regarde pas…
1- dans ton UserForm, pourquoi placer la Combobox de l’unité en dernier si ensuite tu obliges l’utilisateur à renseigner cette valeur. Je pense que sa place devrait être en premier…
2- J’ai perdu un temps fou à comprendre tes codes car il y a plusieurs parties que tu as supprimées sans en supprimer les lignes (cbxFournisseur, cbxOpérateur, ajoutlignG1, cmdValider, etc… ).
3- du coup il y a bug (frmRenseignementsArticle.Top = 120) à l’utilisation de ton UserForm. Difficile de comprendre alors le cheminement car il faut commencer par supprimer le bug.

Bref, c’est pas très sympa pour ceux qui veulent t’aider…

À plus,

Robert

 

[GClaire]

Salut Robert, le forum

Merci, pour ton aide, je tiens compte de ton idée et je continue a chercher.

Quand j'ai supprimé mes controls, j'ai bien fait les tests, le seul bug était celui du deuxième controle que j'avais oublier d'enlever le code qui ne servait pas pour l'exemple, (Enfin c'est ce que je pensais), mais ensuite c'est vrai quand j'ai regardé dans le code il restait des codes inutiles, mais je n'avais pas eu de message d'erreur s'y repportant, alors toutes mes plus plates excuses pour ces oublis, et la perte de temps occasionnée.

Pièce jointe modifiée

Merci, G'Claire

 

[GClaire]

Salut a toutes et tous

Voila ce que j'ai fait, je ne sais si c'est la meilleur solution :

Private Sub cbxUnite_Change()
If cbxUnite = "Pièce" Then
StockBox = Format(StockBox, "##,##0")
txtEntreeInitial = Format(txtEntreeInitial, "##,##0")
Else
StockBox = Format(StockBox, "##,##0.00")
txtEntreeInitial = Format(txtEntreeInitial, "##,##0.00")
End If
End Sub

Merci encore, G'Claire