Sujet Précédent Sujet Suivant

Au secours Besoin !

limaseb Messages postés 38 Date d'inscription mercredi 2 février 2005 Statut Membre Dernière intervention 18 décembre 2007 - 8 févr. 2005 à 20:57
MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 - 10 févr. 2005 à 20:23
Je suis debutant et je voudrais faire un formulaire avec des textbox mais j arrive pas a faire une validation de textbox a textbox avec la touche ENTER . j arrrive pas appliquer vos solutions a mon formulaire aider moi merci. [mailto:limaseb@tiscali.fr limaseb@tiscali.fr]. J ai fait ce VBA :
Private Sub TextBox1_Change()
TextBox1.Value = UCase(TextBox1)
End Sub


Private Sub TextBox10_Change()
TextBox10.Value = UCase(TextBox10)
End Sub


Private Sub TextBox11_Change()
TextBox11.Value = UCase(TextBox11)
End Sub


Private Sub TextBox12_Change()
TextBox12.Value = UCase(TextBox12)
End Sub


Private Sub TextBox13_Change()
TextBox13.Value = UCase(TextBox13)
End Sub


Private Sub TextBox14_Change()
TextBox14.Value = UCase(TextBox14)
End Sub


Private Sub TextBox15_Change()
TextBox15.Value = UCase(TextBox15)
End Sub


Private Sub TextBox16_Change()
TextBox16.Value = UCase(TextBox16)
End Sub


Private Sub TextBox17_Change()
TextBox17.Value = UCase(TextBox17)
End Sub


Private Sub TextBox18_Change()
TextBox18.Value = UCase(TextBox18)
End Sub


Private Sub TextBox19_Change()
TextBox19.Value = UCase(TextBox19)
End Sub


Private Sub TextBox2_Change()
TextBox2.Value = UCase(TextBox2)
End Sub


Private Sub TextBox20_Change()
TextBox20.Value = UCase(TextBox20)
End Sub


Private Sub TextBox21_Change()
TextBox21.Value = UCase(TextBox21)
End Sub


Private Sub TextBox22_Change()
TextBox22.Value = UCase(TextBox22)
End Sub


Private Sub TextBox23_Change()
TextBox23.Value = UCase(TextBox23)
End Sub


Private Sub TextBox24_Change()
TextBox24.Value = UCase(TextBox24)
End Sub


Private Sub TextBox25_Change()
TextBox25.Value = UCase(TextBox25)
End Sub


Private Sub TextBox26_Change()
TextBox27.Value = UCase(TextBox26)
End Sub


Private Sub TextBox27_Change()
TextBox27.Value = UCase(TextBox27)
End Sub


Private Sub TextBox28_Change()
TextBox28.Value = UCase(TextBox28)
End Sub


Private Sub TextBox29_Change()
TextBox29.Value = UCase(TextBox29)
End Sub


Private Sub TextBox3_Change()
TextBox3.Value = UCase(TextBox3)
End Sub


Private Sub TextBox30_Change()
TextBox30.Value = UCase(TextBox30)
End Sub


Private Sub TextBox31_Change()
TextBox31.Value = UCase(TextBox31)
End Sub


Private Sub TextBox32_Change()
TextBox32.Value = UCase(TextBox32)
End Sub


Private Sub TextBox33_Change()
TextBox33.Value = UCase(TextBox33)
End Sub


Private Sub TextBox34_Change()
TextBox34.Value = UCase(TextBox34)
End Sub


Private Sub TextBox35_Change()
TextBox35.Value = UCase(TextBox35)
End Sub


Private Sub TextBox36_Change()
TextBox36.Value = UCase(TextBox36)
End Sub


Private Sub TextBox37_Change()
TextBox37.Value = UCase(TextBox37)
End Sub


Private Sub TextBox4_Change()
TextBox4.Value = UCase(TextBox4)
End Sub


Private Sub TextBox40_Change()
TextBox40.Value = LCase(TextBox40)
End Sub


Private Sub TextBox41_Change()
TextBox41.Value = LCase(TextBox41)
End Sub


Private Sub TextBox42_Change()
TextBox42.Value = UCase(TextBox42)
End Sub


Private Sub TextBox43_Change()
TextBox43.Value = UCase(TextBox43)
End Sub


Private Sub TextBox44_Change()
TextBox44.Value = UCase(TextBox44)
End Sub


Private Sub TextBox45_Change()
TextBox45.Value = UCase(TextBox45)
End Sub


Private Sub TextBox46_Change()
TextBox46.Value = UCase(TextBox46)
End Sub


Private Sub TextBox47_Change()
TextBox47.Value = UCase(TextBox47)
End Sub


Private Sub TextBox48_Change()
TextBox48.Value = Format(TextBox48, "### ### ## ##")
End Sub


Private Sub TextBox49_Change()
TextBox49.Value = UCase(TextBox49)
End Sub


Private Sub TextBox5_Change()
TextBox5.Value = UCase(TextBox5)
End Sub


Private Sub TextBox50_Change()
TextBox50.Value = Format(TextBox50, "0# ## ## ## ##")
End Sub


Private Sub TextBox51_Change()
TextBox51.Value = Format(TextBox51, "### ### ## ##")
End Sub


Private Sub TextBox52_Change()
TextBox52.Value = Format(TextBox52, "0# ## ## ## ##")
End Sub


Private Sub TextBox53_Change()
[A9].Value = TextBox55.Value & Space(1) + TEXTBOX53.Value & Space(1) + TextBox54.Value & Space(1)
TEXTBOX53.Value = UCase(TEXTBOX53)
End Sub


Private Sub TextBox54_Change()
[A9].Value = TextBox55.Value & Space(1) + TEXTBOX53.Value & Space(1) + TextBox54.Value & Space(1)
TextBox54.Value = UCase(TextBox54)
End Sub


Private Sub TextBox55_Change()
[A9].Value = TextBox55.Value & Space(1) + TEXTBOX53.Value & Space(1) + TextBox54.Value & Space(1)
TextBox55.Value = UCase(TextBox55)
End Sub


Private Sub TextBox6_Change()
TextBox6.Value = UCase(TextBox6)
End Sub


Private Sub TextBox7_Change()
TextBox7.Value = UCase(TextBox7)
End Sub


Private Sub TextBox8_Change()
TextBox8.Value = UCase(TextBox8)
End Sub


Private Sub TextBox9_Change()
TextBox9.Value = UCase(TextBox9)
End Sub
Merci d avance. a bientot j espere

7 réponses

Réponse 1 / 7
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
8 févr. 2005 à 21:54
Pour passer de Text1 à Text10 en cliquant sur 'Entree'





Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then

Text10.SetFocus

End If

End Sub

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
0
Réponse 2 / 7
MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 1
8 févr. 2005 à 22:35
Oulala mais un conseil qui devrait t'etre fort utile : utilise des index parce que la avoir 50000 textbox c'est pas très pratique pour coder


Ciao
MadMatt
0
Réponse 3 / 7
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 9
9 févr. 2005 à 08:25
>>MadM@tt : je ne suis pas sûr qu'il y ait des Index en VBA

It@li@
0
Réponse 4 / 7
MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 1
9 févr. 2005 à 19:20
Aie oui effectivement je n'y avait pas pensé, je ne pratique pas trop le vba


Ciao
MadMatt
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
limaseb Messages postés 38 Date d'inscription mercredi 2 février 2005 Statut Membre Dernière intervention 18 décembre 2007
9 févr. 2005 à 21:14
Merci beaucoup econs mais degouter sa focntionne pas. Peux etre une mauvaise manipe que je fait.
Je debute aussi ds le VBA. Merci de m aider. A plus.
0
Réponse 6 / 7
limaseb Messages postés 38 Date d'inscription mercredi 2 février 2005 Statut Membre Dernière intervention 18 décembre 2007
9 févr. 2005 à 21:22
Merci beaucoup econs mais degouter sa focntionne pas. Peux etre une mauvaise manipe que je fait. Par contre j arrrive a y mettre ds une linge de mais textbox exemple:textbox53

if keycode=13 then
sendkeys"[enter}", true

et la touche enter fonctionne mais j arrive pas a passer a l autre textbox? (textbox54 ainsi de suite). Mais cette formule marche que pour une validation de textbox non pour un passage de textbox a textbox. Degouter............

Je debute aussi ds le VBA. Merci de m aider. A plus.
0
Réponse 7 / 7
MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 1
10 févr. 2005 à 20:23
Bah fait un sendkeys de la touche TAB sinon ?


ça doit marcher ptèt


Ciao
MadMatt
0
Rejoignez-nous