Envoyer les données d'un USF après saisie dernier Textbox
3 réponses
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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
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" wrote:
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.
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"
<pasdespambasta...@freepasdespam.fr> wrote:
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.
Private Sub TextBo9_Change() If Len(Me.TextBox9) = 11 Then .... .... End If End Sub
JB
On 4 fév, 17:37, "Patrick BASTARD" wrote:
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
Salut, essai en comptant le nombre de caracteres Private Sub TextBox1_Change() If Len(TextBox1.Text) = 11 Then Beep End Sub
Youky
"Patrick BASTARD" a écrit dans le 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.
Salut,
essai en comptant le nombre de caracteres
Private Sub TextBox1_Change()
If Len(TextBox1.Text) = 11 Then Beep
End Sub
Youky
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: %23bFUsw0ZIHA.4284@TK2MSFTNGP03.phx.gbl...
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.
Salut, essai en comptant le nombre de caracteres Private Sub TextBox1_Change() If Len(TextBox1.Text) = 11 Then Beep End Sub
Youky
"Patrick BASTARD" a écrit dans le 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
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" wrote:
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.
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"
<pasdespambasta...@freepasdespam.fr> wrote:
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.
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" wrote:
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.
