Envoyer les données d'un USF après saisie dernier Textbox

Le
Patrick BASTARD
Bonjour à tous.

Encore moi et mon USF.

La saisie s'effectue par lecture optique de codes à barre.

Pouvez-vous me dire s'il est possible, et dans ce cas, comment envoyer sur
la feuille les données saisies dans l'Userform dès que la saisie attendue
dans le dernier textbox (11 caractères numériques) est atteinte (sans
utiliser un bouton Valider) ?

D'avance, merci.
--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5147741
Bonsoir,

Utiliser l'évennement Change()

Private Sub TextBo9_Change()
If Len(Me.TextBox9) = 11 Then
....
....
End If
End Sub

JB


On 4 fév, 17:37, "Patrick BASTARD"
 Bonjour à tous.

Encore moi et mon USF.

La saisie s'effectue par lecture optique de codes à barre.

Pouvez-vous me dire s'il est possible, et dans ce cas, comment envoyer sur
la feuille les données saisies dans l'Userform dès que la saisie atten due
dans le dernier textbox (11 caractères numériques) est atteinte (sans
utiliser un bouton Valider) ?

D'avance, merci.
--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.


Youky
Le #5147731
Salut,
essai en comptant le nombre de caracteres
Private Sub TextBox1_Change()
If Len(TextBox1.Text) = 11 Then Beep
End Sub

Youky


"Patrick BASTARD" message de news: %
Bonjour à tous.

Encore moi et mon USF.

La saisie s'effectue par lecture optique de codes à barre.

Pouvez-vous me dire s'il est possible, et dans ce cas, comment envoyer sur
la feuille les données saisies dans l'Userform dès que la saisie attendue
dans le dernier textbox (11 caractères numériques) est atteinte (sans
utiliser un bouton Valider) ?

D'avance, merci.
--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.



Patrick BASTARD
Le #5147721
Re, Jacques, Bonsoir, Youki

Merci pour vos suggestions.

Je teste et je reviens en cas de souci.

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.


Bonsoir,

Utiliser l'évennement Change()

Private Sub TextBo9_Change()
If Len(Me.TextBox9) = 11 Then
....
....
End If
End Sub

JB


On 4 fév, 17:37, "Patrick BASTARD"
Bonjour à tous.

Encore moi et mon USF.

La saisie s'effectue par lecture optique de codes à barre.

Pouvez-vous me dire s'il est possible, et dans ce cas, comment
envoyer sur la feuille les données saisies dans l'Userform dès que
la saisie attendue dans le dernier textbox (11 caractères
numériques) est atteinte (sans utiliser un bouton Valider) ?

D'avance, merci.
--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.




Publicité
Poster une réponse
Anonyme