Validation erronée d'une saisie textbox
Résolu
Bonjour,
voila mon problème, je bute sur la validation d'une textbox
voici le code
Private Sub txt_Série_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If txt_Série.Value = "" Then
MsgBox "Ce numéro de saisie n'est pas valable", vbInformation + vbOKOnly, "Article non trouvé"
Else
Feuil11.Range("C1").Value = Me.txt_Série.Value
Me.txt_Désignation = Feuil11.Range("C3").Value
txt_Qté = Feuil11.Range("C4").Value
txt_Référence = Feuil11.Range("C2").Value
txt_Date = Feuil11.Range("C5").Value
txt_Classe = Feuil11.Range("C6").Value
End If
End Sub
tous ce passe bien tant que je rentre un numéro qui se trouve dans un tableau si j'ai malheur de faire une erreur de frappe ou entrer un numéro erroné sa bug sans que n'apparaisse le MsgBox
je pense que l'erreur se situe dans la condition mais comme je suis une quiche en vba je galère pour trouver la solution.
d'avance merci a tous ceux qui voudront bien me consacrer un peut de leur temps.
voila mon problème, je bute sur la validation d'une textbox
voici le code
Private Sub txt_Série_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If txt_Série.Value = "" Then
MsgBox "Ce numéro de saisie n'est pas valable", vbInformation + vbOKOnly, "Article non trouvé"
Else
Feuil11.Range("C1").Value = Me.txt_Série.Value
Me.txt_Désignation = Feuil11.Range("C3").Value
txt_Qté = Feuil11.Range("C4").Value
txt_Référence = Feuil11.Range("C2").Value
txt_Date = Feuil11.Range("C5").Value
txt_Classe = Feuil11.Range("C6").Value
End If
End Sub
tous ce passe bien tant que je rentre un numéro qui se trouve dans un tableau si j'ai malheur de faire une erreur de frappe ou entrer un numéro erroné sa bug sans que n'apparaisse le MsgBox
je pense que l'erreur se situe dans la condition mais comme je suis une quiche en vba je galère pour trouver la solution.
d'avance merci a tous ceux qui voudront bien me consacrer un peut de leur temps.
4 réponses
-
Bonjour,
Quand ca "bug", quelle ligne de code est surlignee si vous cliquez sur debugage ?-
-
-
@f894009message
erreur d'exécution '-2147352571 (800200005)':
impossible de définir la propriété value. le type ne correspond pas
en fait cet textbox envoie la valeur dans une cellule qui déclenche une recherchev ou je récupère le résultat
dans une simple feuille excel j'aurais un message d'erreur du type #N/A -
@cham25Re,
Vous pouvez mettre votre fichier sans donnees confidentielles a dispo
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
-
-
Bonjour, Dsl pour le retard boulot oblige
voici le lien
je n'ai pas fini de construire le formulaire alors tout les boutons ne fonctionne pas encore j'ai aussi alléger le fichier de tous les feuilles contenants des données sensibles.
Pour le formulaire il faut d'abord valider les défauts avants de cliquer sur valider (ca aussi il va falloir que je code).
http://www.cjoint.com/c/GDBhjonbQpl -
Bonjour,
fichier avec formules modifiees feuille Commande lignes 6 a 12
https://www.cjoint.com/c/GDBijZhaAqf -
bon ben je ne sais pas pourquoi je peut plus ouvrir ce fichier ??
-
-
@f894009ca doit venir de ma machine au bureau ca me dit de vérifier le format ou l'extension
-
-
@f894009après avoir tortiller le lient dans tous les sens pas moyen, je vais attendre d'être a la maison pour l'ouvrir.
merci en tous cas, je donne des nouvelles a ce moment là -
@f894009voilà a la maison avec mon pc je l'ouvre sans problème.
je viens de voir les formules modifiées c'est bête comme choux je n'y ai pas pensé,
et çà fonctionne a la perfection
un grand merci pour la réactivité et le temps passé
-
