Validation erronée d'une saisie textbox

Résolu/Fermé
cham25 Messages postés 13 Date d'inscription mercredi 1 mai 2013 Statut Membre Dernière intervention 19 septembre 2017 - 26 avril 2017 à 11:24
cham25 Messages postés 13 Date d'inscription mercredi 1 mai 2013 Statut Membre Dernière intervention 19 septembre 2017 - 27 avril 2017 à 17:47
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.

4 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
26 avril 2017 à 11:30
Bonjour,

Quand ca "bug", quelle ligne de code est surlignee si vous cliquez sur debugage ?
0
cham25 Messages postés 13 Date d'inscription mercredi 1 mai 2013 Statut Membre Dernière intervention 19 septembre 2017
26 avril 2017 à 11:37
cette ligne

Me.txt_Désignation = Feuil11.Range("C3").Value
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > cham25 Messages postés 13 Date d'inscription mercredi 1 mai 2013 Statut Membre Dernière intervention 19 septembre 2017
26 avril 2017 à 11:40
Re,

Oui, et le message de l'erreur .....
0
cham25 Messages postés 13 Date d'inscription mercredi 1 mai 2013 Statut Membre Dernière intervention 19 septembre 2017 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
26 avril 2017 à 12:15
message

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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > cham25 Messages postés 13 Date d'inscription mercredi 1 mai 2013 Statut Membre Dernière intervention 19 septembre 2017
26 avril 2017 à 16:08
Re,

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...
0
cham25 Messages postés 13 Date d'inscription mercredi 1 mai 2013 Statut Membre Dernière intervention 19 septembre 2017
27 avril 2017 à 09:16
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
27 avril 2017 à 10:10
Bonjour,

fichier avec formules modifiees feuille Commande lignes 6 a 12

https://www.cjoint.com/c/GDBijZhaAqf
0
cham25 Messages postés 13 Date d'inscription mercredi 1 mai 2013 Statut Membre Dernière intervention 19 septembre 2017
27 avril 2017 à 10:30
bon ben je ne sais pas pourquoi je peut plus ouvrir ce fichier ??
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
27 avril 2017 à 10:37
Re,
Je viens de le telecharger et c'est ok......
0
cham25 Messages postés 13 Date d'inscription mercredi 1 mai 2013 Statut Membre Dernière intervention 19 septembre 2017 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
27 avril 2017 à 10:53
ca doit venir de ma machine au bureau ca me dit de vérifier le format ou l'extension
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > cham25 Messages postés 13 Date d'inscription mercredi 1 mai 2013 Statut Membre Dernière intervention 19 septembre 2017
27 avril 2017 à 10:56
Re,

.XLSM: au moins EXCEL2007
0
cham25 Messages postés 13 Date d'inscription mercredi 1 mai 2013 Statut Membre Dernière intervention 19 septembre 2017 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
27 avril 2017 à 14:31
aprè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à
0
cham25 Messages postés 13 Date d'inscription mercredi 1 mai 2013 Statut Membre Dernière intervention 19 septembre 2017 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
27 avril 2017 à 17:47
voilà 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é
0