Aide pour Textbox dans USF
Résolu/Fermé
tchulio
Messages postés
161
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
9 juillet 2019
-
2 sept. 2008 à 21:04
tchulio Messages postés 161 Date d'inscription lundi 7 janvier 2008 Statut Membre Dernière intervention 9 juillet 2019 - 6 sept. 2008 à 21:07
tchulio Messages postés 161 Date d'inscription lundi 7 janvier 2008 Statut Membre Dernière intervention 9 juillet 2019 - 6 sept. 2008 à 21:07
A voir également:
- Aide pour Textbox dans USF
- Vba textbox date format dd/mm/yyyy ✓ - Forum Excel
- Textbox date ✓ - Forum VB / VBA
- Format textbox vba ✓ - Forum VB / VBA
- Textbox backcolor - Forum VB / VBA
- Vba textbox ✓ - Forum VB / VBA
14 réponses
tchulio
Messages postés
161
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
9 juillet 2019
1
3 sept. 2008 à 06:31
3 sept. 2008 à 06:31
.
tchulio
Messages postés
161
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
9 juillet 2019
1
3 sept. 2008 à 06:40
3 sept. 2008 à 06:40
j'ai essayé ce code mais sans succès...
If Me.ListBox1.lign6.Value <> Me.TextBox1.Value + Me.TextBox3.Value + Me.TextBox5.Value + me.TextBox7.Value Then
MsgBox "Vérifier les quantités"
Me.ListBox1.SetFocus
Exit Sub
End If
If Me.ListBox1.lign6.Value <> Me.TextBox1.Value + Me.TextBox3.Value + Me.TextBox5.Value + me.TextBox7.Value Then
MsgBox "Vérifier les quantités"
Me.ListBox1.SetFocus
Exit Sub
End If
wilfried_42
Messages postés
907
Date d'inscription
mardi 19 août 2008
Statut
Contributeur
Dernière intervention
8 décembre 2009
243
3 sept. 2008 à 12:31
3 sept. 2008 à 12:31
bonjour
tous les controles des USF sont des controls texte, donc tu ne peux faire un test entre un test et un numerique
definit deja tes variables en double et teste le resultat
de plus la saisie est importante, c'est du texte donc la saisie de numerique est bordelique (. ou ,)
si des points sont saisis, il faut utiliser VAL("125.36") si ce sont des virgules : CDBL("125,36")
donc declarer tes valeurs : dim a as double, b as double, c as double, t as double
if instr(listbox1.items(5).value,".")>0 then t = val(listbox1.items(5)) else t = cdbl(listbox1.items(5)) ' pour tester si . ou ,
pareil avec tes textbox
ensuite tester if a + b+ c = t then .............................
tous les controles des USF sont des controls texte, donc tu ne peux faire un test entre un test et un numerique
definit deja tes variables en double et teste le resultat
de plus la saisie est importante, c'est du texte donc la saisie de numerique est bordelique (. ou ,)
si des points sont saisis, il faut utiliser VAL("125.36") si ce sont des virgules : CDBL("125,36")
donc declarer tes valeurs : dim a as double, b as double, c as double, t as double
if instr(listbox1.items(5).value,".")>0 then t = val(listbox1.items(5)) else t = cdbl(listbox1.items(5)) ' pour tester si . ou ,
pareil avec tes textbox
ensuite tester if a + b+ c = t then .............................
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
tchulio
Messages postés
161
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
9 juillet 2019
1
3 sept. 2008 à 17:56
3 sept. 2008 à 17:56
je suis désolé je ne suis pas un pro avec Vb, et je n'arrive pas à faire ce code... Pourrais tu me donner un peu plus de précisions? c'est un peu compliqué... Merci beaucoup
wilfried_42
Messages postés
907
Date d'inscription
mardi 19 août 2008
Statut
Contributeur
Dernière intervention
8 décembre 2009
243
3 sept. 2008 à 18:57
3 sept. 2008 à 18:57
re:
si tu fournissais ton classeur par cjoint.fr, ne mets que l'essentiel et retire le confidentiel
@ te lire
si tu fournissais ton classeur par cjoint.fr, ne mets que l'essentiel et retire le confidentiel
@ te lire
tchulio
Messages postés
161
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
9 juillet 2019
1
3 sept. 2008 à 19:24
3 sept. 2008 à 19:24
Voila le fichier:
http://www.cijoint.fr/cjlink.php?file=cj200809/cijAe9yJSw.xls
Il faut tout d'abord choisir un N° de lot (1 , 2 ,ou 3) puis les données s'affichent dans le list box. ensuite il faut enregistrer ce lot en mettant les données dans les textbox puis en appuyant sur valider.. voila.
Je te remercie beaucoup
http://www.cijoint.fr/cjlink.php?file=cj200809/cijAe9yJSw.xls
Il faut tout d'abord choisir un N° de lot (1 , 2 ,ou 3) puis les données s'affichent dans le list box. ensuite il faut enregistrer ce lot en mettant les données dans les textbox puis en appuyant sur valider.. voila.
Je te remercie beaucoup
wilfried_42
Messages postés
907
Date d'inscription
mardi 19 août 2008
Statut
Contributeur
Dernière intervention
8 décembre 2009
243
3 sept. 2008 à 20:19
3 sept. 2008 à 20:19
re:
ton fichier en retour
j'ai fait sur le bouton valider la modif pour le contrôle tu total des textbox 1,3,5,7 avec la quantité en ligne 6 de la listbox
j'ai aussi fait une autre modif, tu passes 65000 lignes pour retrouver le bon produit, trop long, j'ai don défini Cible en public (voir module1) pour qu'il soit utilisable partout dans le classeur
lors du choix (combobox), cible est mis en place, lors de la validation, tu peux le reutiliser sans faire de recherche
https://www.cjoint.com/?jdumpYO2rR
autre probleme, ton fichier est enorme alors qu'il ne contient que 3 lignes et 2 USF, logiquement il devrait faire environ 30Ko alors qu'il depasse 500 Ko
--
Cordialement
Wilfried
ton fichier en retour
j'ai fait sur le bouton valider la modif pour le contrôle tu total des textbox 1,3,5,7 avec la quantité en ligne 6 de la listbox
j'ai aussi fait une autre modif, tu passes 65000 lignes pour retrouver le bon produit, trop long, j'ai don défini Cible en public (voir module1) pour qu'il soit utilisable partout dans le classeur
lors du choix (combobox), cible est mis en place, lors de la validation, tu peux le reutiliser sans faire de recherche
https://www.cjoint.com/?jdumpYO2rR
autre probleme, ton fichier est enorme alors qu'il ne contient que 3 lignes et 2 USF, logiquement il devrait faire environ 30Ko alors qu'il depasse 500 Ko
--
Cordialement
Wilfried
tchulio
Messages postés
161
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
9 juillet 2019
1
3 sept. 2008 à 20:59
3 sept. 2008 à 20:59
C'est parfait je te remercie de tout coeur :)
Tu maitrise excel, c'est gentil de faire partager tes connaissances!
Tu maitrise excel, c'est gentil de faire partager tes connaissances!
tchulio
Messages postés
161
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
9 juillet 2019
1
4 sept. 2008 à 19:18
4 sept. 2008 à 19:18
Salut, je crois que tu avais raison. Je pense que 65000 ça faisait trop long.
Mais je ne comprends pas quand tu dis définir la cible en PUBLIC.
Mais comme tu pourras voir sur le fichier que je vais joindre, maintenant à chaque fois que je clique sur le bouton menu, ça m'affiche 'dépassement de capacité".
J'espère que l'on peut y remédier, car mon "vrai" fichier, contient autant de ligne...
Désolé de crier encore à l'aide...
http://www.cijoint.fr/cjlink.php?file=cj200809/cijwcxo8wu.xls
Mais je ne comprends pas quand tu dis définir la cible en PUBLIC.
Mais comme tu pourras voir sur le fichier que je vais joindre, maintenant à chaque fois que je clique sur le bouton menu, ça m'affiche 'dépassement de capacité".
J'espère que l'on peut y remédier, car mon "vrai" fichier, contient autant de ligne...
Désolé de crier encore à l'aide...
http://www.cijoint.fr/cjlink.php?file=cj200809/cijwcxo8wu.xls
tchulio
Messages postés
161
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
9 juillet 2019
1
4 sept. 2008 à 21:54
4 sept. 2008 à 21:54
.
tchulio
Messages postés
161
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
9 juillet 2019
1
5 sept. 2008 à 06:35
5 sept. 2008 à 06:35
En fait quand tu me parlais de la fonction "public" ou dois je la mettre pour quelle fasse effet? Merci
tchulio
Messages postés
161
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
9 juillet 2019
1
6 sept. 2008 à 09:17
6 sept. 2008 à 09:17
personne ne peut m'aider....?
tchulio
Messages postés
161
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
9 juillet 2019
1
6 sept. 2008 à 21:07
6 sept. 2008 à 21:07
.