Activer un textbox après la saisie d'un autre, en boucle

Le
Patrick BASTARD
Bonsoir à tous.

Mon Userform - suite !

Tous les contrôles de mon usf, (excepté TextBoxSaisieC5 et
TextBoxSaisiePlomb) sont à Tabstop false.
Je souhaite activer TextBoxSaisieC5, après la saisie d'un code à barres dans
TextBoxSaisiePlomb, pour poursuivre la saisie.
J'ai essayé avec SetFocus, mais sans succès.

Pouvez-vous me dire comment procéder ?
(code sous ma signature)

D'avance, merci.

Private Sub TextBoxSaisiePlomb_Change()
If Len(ComboBoxLiaison) = 6 Then
If TextBoxCaisse <> "" Then
If Len(TextBoxSaisieC5) = 28 Then
If Len(TextBoxSaisiePlomb) = 11 Then

InsereUneLigne
'recopie les valeurs saisies sur la ligne insérée
ActiveCell = Me.TextBoxDate
ActiveCell.Offset(0, 1) = Me.ComboBoxLiaison
ActiveCell.Offset(0, 2) = Me.TextBoxCaisse
ActiveCell.Offset(0, 3) = Me.TextBoxSaisieC5
ActiveCell.Offset(0, 4) = Me.TextBoxSaisiePlomb
Me.TextBoxSaisieC5 = ""
Me.TextBoxSaisiePlomb = ""
TextBoxSaisieC5.SetFocus
End If
End If
End If
End If

End Sub

--
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 Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Laurent
Le #5283781
bonsoir

Remplacer la ligne : TextBoxSaisieC5.SetFocus
Par Me.TextBoxSaisieC5.locked= true logiquement ca debloque pour la
saisie :)
"Patrick BASTARD" message de news:
Bonsoir à tous.

Mon Userform - suite !

Tous les contrôles de mon usf, (excepté TextBoxSaisieC5 et
TextBoxSaisiePlomb) sont à Tabstop false.
Je souhaite activer TextBoxSaisieC5, après la saisie d'un code à barres
dans TextBoxSaisiePlomb, pour poursuivre la saisie.
J'ai essayé avec SetFocus, mais sans succès.

Pouvez-vous me dire comment procéder ?
(code sous ma signature)

D'avance, merci.

Private Sub TextBoxSaisiePlomb_Change()
If Len(ComboBoxLiaison) = 6 Then
If TextBoxCaisse <> "" Then
If Len(TextBoxSaisieC5) = 28 Then
If Len(TextBoxSaisiePlomb) = 11 Then

InsereUneLigne
'recopie les valeurs saisies sur la ligne insérée
ActiveCell = Me.TextBoxDate
ActiveCell.Offset(0, 1) = Me.ComboBoxLiaison
ActiveCell.Offset(0, 2) = Me.TextBoxCaisse
ActiveCell.Offset(0, 3) = Me.TextBoxSaisieC5
ActiveCell.Offset(0, 4) = Me.TextBoxSaisiePlomb
Me.TextBoxSaisieC5 = ""
Me.TextBoxSaisiePlomb = ""
TextBoxSaisieC5.SetFocus
End If
End If
End If
End If

End Sub

--
Bien amicordialement,
P. Bastard

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



Daniel.C
Le #5283771
Bonsoir.
Ceci fonctionne chez moi :

Private Sub TextBox1_Change()
If Len(TextBox1) = 5 Then
Me.TextBox3.SetFocus
End If
End Sub

Cordialement.
Daniel
"Patrick BASTARD" message de news:
Bonsoir à tous.

Mon Userform - suite !

Tous les contrôles de mon usf, (excepté TextBoxSaisieC5 et
TextBoxSaisiePlomb) sont à Tabstop false.
Je souhaite activer TextBoxSaisieC5, après la saisie d'un code à barres
dans TextBoxSaisiePlomb, pour poursuivre la saisie.
J'ai essayé avec SetFocus, mais sans succès.

Pouvez-vous me dire comment procéder ?
(code sous ma signature)

D'avance, merci.

Private Sub TextBoxSaisiePlomb_Change()
If Len(ComboBoxLiaison) = 6 Then
If TextBoxCaisse <> "" Then
If Len(TextBoxSaisieC5) = 28 Then
If Len(TextBoxSaisiePlomb) = 11 Then

InsereUneLigne
'recopie les valeurs saisies sur la ligne insérée
ActiveCell = Me.TextBoxDate
ActiveCell.Offset(0, 1) = Me.ComboBoxLiaison
ActiveCell.Offset(0, 2) = Me.TextBoxCaisse
ActiveCell.Offset(0, 3) = Me.TextBoxSaisieC5
ActiveCell.Offset(0, 4) = Me.TextBoxSaisiePlomb
Me.TextBoxSaisieC5 = ""
Me.TextBoxSaisiePlomb = ""
TextBoxSaisieC5.SetFocus
End If
End If
End If
End If

End Sub

--
Bien amicordialement,
P. Bastard

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



Patrick BASTARD
Le #5283741
Bonjour, *Laurent *

Merci de ton intérêt, mais cela ne fonctionne toujours pas.

--
Bien amicordialement,
P. Bastard

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

bonsoir

Remplacer la ligne : TextBoxSaisieC5.SetFocus
Par Me.TextBoxSaisieC5.locked= true logiquement ca debloque pour
la saisie :)
"Patrick BASTARD" message de news:
Bonsoir à tous.

Mon Userform - suite !

Tous les contrôles de mon usf, (excepté TextBoxSaisieC5 et
TextBoxSaisiePlomb) sont à Tabstop false.
Je souhaite activer TextBoxSaisieC5, après la saisie d'un code à
barres dans TextBoxSaisiePlomb, pour poursuivre la saisie.
J'ai essayé avec SetFocus, mais sans succès.

Pouvez-vous me dire comment procéder ?
(code sous ma signature)

D'avance, merci.

Private Sub TextBoxSaisiePlomb_Change()
If Len(ComboBoxLiaison) = 6 Then
If TextBoxCaisse <> "" Then
If Len(TextBoxSaisieC5) = 28 Then
If Len(TextBoxSaisiePlomb) = 11 Then

InsereUneLigne
'recopie les valeurs saisies sur la ligne insérée
ActiveCell = Me.TextBoxDate
ActiveCell.Offset(0, 1) = Me.ComboBoxLiaison
ActiveCell.Offset(0, 2) = Me.TextBoxCaisse
ActiveCell.Offset(0, 3) = Me.TextBoxSaisieC5
ActiveCell.Offset(0, 4) = Me.TextBoxSaisiePlomb
Me.TextBoxSaisieC5 = ""
Me.TextBoxSaisiePlomb = ""
TextBoxSaisieC5.SetFocus
End If
End If
End If
End If

End Sub

--
Bien amicordialement,
P. Bastard

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




Patrick BASTARD
Le #5283731
Bonjour, *Daniel.C*

Merci pour ton aide, mais cela ne veut décidément pas fonctionner chez moi
...
...Et je ne sais pas pourquoi.
La question reste ouverte.
--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir.
Ceci fonctionne chez moi :

Private Sub TextBox1_Change()
If Len(TextBox1) = 5 Then
Me.TextBox3.SetFocus
End If
End Sub

Cordialement.
Daniel
"Patrick BASTARD" message de news:
Bonsoir à tous.

Mon Userform - suite !

Tous les contrôles de mon usf, (excepté TextBoxSaisieC5 et
TextBoxSaisiePlomb) sont à Tabstop false.
Je souhaite activer TextBoxSaisieC5, après la saisie d'un code à
barres dans TextBoxSaisiePlomb, pour poursuivre la saisie.
J'ai essayé avec SetFocus, mais sans succès.

Pouvez-vous me dire comment procéder ?
(code sous ma signature)

D'avance, merci.

Private Sub TextBoxSaisiePlomb_Change()
If Len(ComboBoxLiaison) = 6 Then
If TextBoxCaisse <> "" Then
If Len(TextBoxSaisieC5) = 28 Then
If Len(TextBoxSaisiePlomb) = 11 Then

InsereUneLigne
'recopie les valeurs saisies sur la ligne insérée
ActiveCell = Me.TextBoxDate
ActiveCell.Offset(0, 1) = Me.ComboBoxLiaison
ActiveCell.Offset(0, 2) = Me.TextBoxCaisse
ActiveCell.Offset(0, 3) = Me.TextBoxSaisieC5
ActiveCell.Offset(0, 4) = Me.TextBoxSaisiePlomb
Me.TextBoxSaisieC5 = ""
Me.TextBoxSaisiePlomb = ""
TextBoxSaisieC5.SetFocus
End If
End If
End If
End If

End Sub

--
Bien amicordialement,
P. Bastard

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




Laurent
Le #5283691
Desolé... :(
"Patrick BASTARD" message de news:OFnyw%
Bonjour, *Laurent *

Merci de ton intérêt, mais cela ne fonctionne toujours pas.

--
Bien amicordialement,
P. Bastard

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

bonsoir

Remplacer la ligne : TextBoxSaisieC5.SetFocus
Par Me.TextBoxSaisieC5.locked= true logiquement ca debloque pour
la saisie :)
"Patrick BASTARD" message de news:
Bonsoir à tous.

Mon Userform - suite !

Tous les contrôles de mon usf, (excepté TextBoxSaisieC5 et
TextBoxSaisiePlomb) sont à Tabstop false.
Je souhaite activer TextBoxSaisieC5, après la saisie d'un code à
barres dans TextBoxSaisiePlomb, pour poursuivre la saisie.
J'ai essayé avec SetFocus, mais sans succès.

Pouvez-vous me dire comment procéder ?
(code sous ma signature)

D'avance, merci.

Private Sub TextBoxSaisiePlomb_Change()
If Len(ComboBoxLiaison) = 6 Then
If TextBoxCaisse <> "" Then
If Len(TextBoxSaisieC5) = 28 Then
If Len(TextBoxSaisiePlomb) = 11 Then

InsereUneLigne
'recopie les valeurs saisies sur la ligne insérée
ActiveCell = Me.TextBoxDate
ActiveCell.Offset(0, 1) = Me.ComboBoxLiaison
ActiveCell.Offset(0, 2) = Me.TextBoxCaisse
ActiveCell.Offset(0, 3) = Me.TextBoxSaisieC5
ActiveCell.Offset(0, 4) = Me.TextBoxSaisiePlomb
Me.TextBoxSaisieC5 = ""
Me.TextBoxSaisiePlomb = ""
TextBoxSaisieC5.SetFocus
End If
End If
End If
End If

End Sub

--
Bien amicordialement,
P. Bastard

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








Youky
Le #5283471
Bonjour,
En TextBoxSaisieC5
Tu n'aurais pas mis la propriétée Enabled úlse au lieu de True
A vérifier
Youky....avec un y

"Patrick BASTARD" message de news: %23LqQt$
Bonjour, *Daniel.C*

Merci pour ton aide, mais cela ne veut décidément pas fonctionner chez moi
...
...Et je ne sais pas pourquoi.
La question reste ouverte.
--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir.
Ceci fonctionne chez moi :

Private Sub TextBox1_Change()
If Len(TextBox1) = 5 Then
Me.TextBox3.SetFocus
End If
End Sub

Cordialement.
Daniel
"Patrick BASTARD" message de news:
Bonsoir à tous.

Mon Userform - suite !

Tous les contrôles de mon usf, (excepté TextBoxSaisieC5 et
TextBoxSaisiePlomb) sont à Tabstop false.
Je souhaite activer TextBoxSaisieC5, après la saisie d'un code à
barres dans TextBoxSaisiePlomb, pour poursuivre la saisie.
J'ai essayé avec SetFocus, mais sans succès.

Pouvez-vous me dire comment procéder ?
(code sous ma signature)

D'avance, merci.

Private Sub TextBoxSaisiePlomb_Change()
If Len(ComboBoxLiaison) = 6 Then
If TextBoxCaisse <> "" Then
If Len(TextBoxSaisieC5) = 28 Then
If Len(TextBoxSaisiePlomb) = 11 Then

InsereUneLigne
'recopie les valeurs saisies sur la ligne insérée
ActiveCell = Me.TextBoxDate
ActiveCell.Offset(0, 1) = Me.ComboBoxLiaison
ActiveCell.Offset(0, 2) = Me.TextBoxCaisse
ActiveCell.Offset(0, 3) = Me.TextBoxSaisieC5
ActiveCell.Offset(0, 4) = Me.TextBoxSaisiePlomb
Me.TextBoxSaisieC5 = ""
Me.TextBoxSaisiePlomb = ""
TextBoxSaisieC5.SetFocus
End If
End If
End If
End If

End Sub

--
Bien amicordialement,
P. Bastard

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








Patrick BASTARD
Le #5282961
Bonjour, *Youky*

Merci pour ton intérêt.
La propriété Enabled de TextBoxSaisieC5 zst bien = True.
???...

--
Bien amicordialement,
P. Bastard

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

Bonjour,
En TextBoxSaisieC5
Tu n'aurais pas mis la propriétée Enabled úlse au lieu de True
A vérifier
Youky....avec un y

"Patrick BASTARD" message de news: %23LqQt$
Bonjour, *Daniel.C*

Merci pour ton aide, mais cela ne veut décidément pas fonctionner
chez moi ...
...Et je ne sais pas pourquoi.
La question reste ouverte.
--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir.
Ceci fonctionne chez moi :

Private Sub TextBox1_Change()
If Len(TextBox1) = 5 Then
Me.TextBox3.SetFocus
End If
End Sub

Cordialement.
Daniel
"Patrick BASTARD" le message de news:
Bonsoir à tous.

Mon Userform - suite !

Tous les contrôles de mon usf, (excepté TextBoxSaisieC5 et
TextBoxSaisiePlomb) sont à Tabstop false.
Je souhaite activer TextBoxSaisieC5, après la saisie d'un code à
barres dans TextBoxSaisiePlomb, pour poursuivre la saisie.
J'ai essayé avec SetFocus, mais sans succès.

Pouvez-vous me dire comment procéder ?
(code sous ma signature)

D'avance, merci.

Private Sub TextBoxSaisiePlomb_Change()
If Len(ComboBoxLiaison) = 6 Then
If TextBoxCaisse <> "" Then
If Len(TextBoxSaisieC5) = 28 Then
If Len(TextBoxSaisiePlomb) = 11 Then

InsereUneLigne
'recopie les valeurs saisies sur la ligne insérée
ActiveCell = Me.TextBoxDate
ActiveCell.Offset(0, 1) = Me.ComboBoxLiaison
ActiveCell.Offset(0, 2) = Me.TextBoxCaisse
ActiveCell.Offset(0, 3) = Me.TextBoxSaisieC5
ActiveCell.Offset(0, 4) = Me.TextBoxSaisiePlomb
Me.TextBoxSaisieC5 = ""
Me.TextBoxSaisiePlomb = ""
TextBoxSaisieC5.SetFocus
End If
End If
End If
End If

End Sub

--
Bien amicordialement,
P. Bastard

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








Daniel.C
Le #5282931
Bonsoir.
Est-ce que tu peux mettre un classeur exemple sur www.cjoint.com (avec des
données bidon) ?
Daniel
"Patrick BASTARD" message de news: O8kmJ$
Bonjour, *Youky*

Merci pour ton intérêt.
La propriété Enabled de TextBoxSaisieC5 zst bien = True.
???...

--
Bien amicordialement,
P. Bastard

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

Bonjour,
En TextBoxSaisieC5
Tu n'aurais pas mis la propriétée Enabled úlse au lieu de True
A vérifier
Youky....avec un y

"Patrick BASTARD" message de news: %23LqQt$
Bonjour, *Daniel.C*

Merci pour ton aide, mais cela ne veut décidément pas fonctionner
chez moi ...
...Et je ne sais pas pourquoi.
La question reste ouverte.
--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir.
Ceci fonctionne chez moi :

Private Sub TextBox1_Change()
If Len(TextBox1) = 5 Then
Me.TextBox3.SetFocus
End If
End Sub

Cordialement.
Daniel
"Patrick BASTARD" le message de news:
Bonsoir à tous.

Mon Userform - suite !

Tous les contrôles de mon usf, (excepté TextBoxSaisieC5 et
TextBoxSaisiePlomb) sont à Tabstop false.
Je souhaite activer TextBoxSaisieC5, après la saisie d'un code à
barres dans TextBoxSaisiePlomb, pour poursuivre la saisie.
J'ai essayé avec SetFocus, mais sans succès.

Pouvez-vous me dire comment procéder ?
(code sous ma signature)

D'avance, merci.

Private Sub TextBoxSaisiePlomb_Change()
If Len(ComboBoxLiaison) = 6 Then
If TextBoxCaisse <> "" Then
If Len(TextBoxSaisieC5) = 28 Then
If Len(TextBoxSaisiePlomb) = 11 Then

InsereUneLigne
'recopie les valeurs saisies sur la ligne insérée
ActiveCell = Me.TextBoxDate
ActiveCell.Offset(0, 1) = Me.ComboBoxLiaison
ActiveCell.Offset(0, 2) = Me.TextBoxCaisse
ActiveCell.Offset(0, 3) = Me.TextBoxSaisieC5
ActiveCell.Offset(0, 4) = Me.TextBoxSaisiePlomb
Me.TextBoxSaisieC5 = ""
Me.TextBoxSaisiePlomb = ""
TextBoxSaisieC5.SetFocus
End If
End If
End If
End If

End Sub

--
Bien amicordialement,
P. Bastard

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












Patrick BASTARD
Le #5282851
Bonjour, *Daniel.C*

Voila une version allégée du projet.
http://cjoint.com/?cft6fIj6Q1
Avec toutes les imperfections que mon niveau en VBA n'a pas permis de
déceler...
N'hésite pas à me communiquer toute critique, toute correction qui te
semblerait pertinente.
Idem, bien sûr pour tous les éminents (je n'ai pas dit Eminences) membres de
cette communauté


--
Bien amicordialement,
P. Bastard

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


Bonsoir.
Est-ce que tu peux mettre un classeur exemple sur www.cjoint.com
(avec des données bidon) ?
Daniel
"Patrick BASTARD" message de news: O8kmJ$
Bonjour, *Youky*

Merci pour ton intérêt.
La propriété Enabled de TextBoxSaisieC5 zst bien = True.
???...

--
Bien amicordialement,
P. Bastard

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

Bonjour,
En TextBoxSaisieC5
Tu n'aurais pas mis la propriétée Enabled úlse au lieu de True
A vérifier
Youky....avec un y

"Patrick BASTARD" le message de news: %23LqQt$
Bonjour, *Daniel.C*

Merci pour ton aide, mais cela ne veut décidément pas fonctionner
chez moi ...
...Et je ne sais pas pourquoi.
La question reste ouverte.
--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir.
Ceci fonctionne chez moi :

Private Sub TextBox1_Change()
If Len(TextBox1) = 5 Then
Me.TextBox3.SetFocus
End If
End Sub

Cordialement.
Daniel
"Patrick BASTARD" dans le message de news:
Bonsoir à tous.

Mon Userform - suite !

Tous les contrôles de mon usf, (excepté TextBoxSaisieC5 et
TextBoxSaisiePlomb) sont à Tabstop false.
Je souhaite activer TextBoxSaisieC5, après la saisie d'un code à
barres dans TextBoxSaisiePlomb, pour poursuivre la saisie.
J'ai essayé avec SetFocus, mais sans succès.

Pouvez-vous me dire comment procéder ?
(code sous ma signature)

D'avance, merci.

Private Sub TextBoxSaisiePlomb_Change()
If Len(ComboBoxLiaison) = 6 Then
If TextBoxCaisse <> "" Then
If Len(TextBoxSaisieC5) = 28 Then
If Len(TextBoxSaisiePlomb) = 11 Then

InsereUneLigne
'recopie les valeurs saisies sur la ligne insérée
ActiveCell = Me.TextBoxDate
ActiveCell.Offset(0, 1) = Me.ComboBoxLiaison
ActiveCell.Offset(0, 2) = Me.TextBoxCaisse
ActiveCell.Offset(0, 3) = Me.TextBoxSaisieC5
ActiveCell.Offset(0, 4) >>>>>> Me.TextBoxSaisiePlomb Me.TextBoxSaisieC5 = ""
Me.TextBoxSaisiePlomb = ""
TextBoxSaisieC5.SetFocus
End If
End If
End If
End If

End Sub

--
Bien amicordialement,
P. Bastard

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












Daniel.C
Le #5282671
J'ai une bonne et une mauvaise nouvelle; la bonne : j'ai testé en mettant le
setfocus en première instruction, ça fonctionne :
Private Sub TextBoxSaisiePlomb_Change()
Me.TextBoxSaisieC5.SetFocus
...
La mauvaise : je n'ai pas décortiqué ton code pour savoir pourquoi tu ne
passes pas sur l'instruction.
Cordialement.
Daniel
"Patrick BASTARD" message de news:
Bonjour, *Daniel.C*

Voila une version allégée du projet.
http://cjoint.com/?cft6fIj6Q1
Avec toutes les imperfections que mon niveau en VBA n'a pas permis de
déceler...
N'hésite pas à me communiquer toute critique, toute correction qui te
semblerait pertinente.
Idem, bien sûr pour tous les éminents (je n'ai pas dit Eminences) membres
de cette communauté


--
Bien amicordialement,
P. Bastard

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


Bonsoir.
Est-ce que tu peux mettre un classeur exemple sur www.cjoint.com
(avec des données bidon) ?
Daniel
"Patrick BASTARD" message de news: O8kmJ$
Bonjour, *Youky*

Merci pour ton intérêt.
La propriété Enabled de TextBoxSaisieC5 zst bien = True.
???...

--
Bien amicordialement,
P. Bastard

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

Bonjour,
En TextBoxSaisieC5
Tu n'aurais pas mis la propriétée Enabled úlse au lieu de True
A vérifier
Youky....avec un y

"Patrick BASTARD" le message de news: %23LqQt$
Bonjour, *Daniel.C*

Merci pour ton aide, mais cela ne veut décidément pas fonctionner
chez moi ...
...Et je ne sais pas pourquoi.
La question reste ouverte.
--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir.
Ceci fonctionne chez moi :

Private Sub TextBox1_Change()
If Len(TextBox1) = 5 Then
Me.TextBox3.SetFocus
End If
End Sub

Cordialement.
Daniel
"Patrick BASTARD" dans le message de news:
Bonsoir à tous.

Mon Userform - suite !

Tous les contrôles de mon usf, (excepté TextBoxSaisieC5 et
TextBoxSaisiePlomb) sont à Tabstop false.
Je souhaite activer TextBoxSaisieC5, après la saisie d'un code à
barres dans TextBoxSaisiePlomb, pour poursuivre la saisie.
J'ai essayé avec SetFocus, mais sans succès.

Pouvez-vous me dire comment procéder ?
(code sous ma signature)

D'avance, merci.

Private Sub TextBoxSaisiePlomb_Change()
If Len(ComboBoxLiaison) = 6 Then
If TextBoxCaisse <> "" Then
If Len(TextBoxSaisieC5) = 28 Then
If Len(TextBoxSaisiePlomb) = 11 Then

InsereUneLigne
'recopie les valeurs saisies sur la ligne insérée
ActiveCell = Me.TextBoxDate
ActiveCell.Offset(0, 1) = Me.ComboBoxLiaison
ActiveCell.Offset(0, 2) = Me.TextBoxCaisse
ActiveCell.Offset(0, 3) = Me.TextBoxSaisieC5
ActiveCell.Offset(0, 4) >>>>>>> Me.TextBoxSaisiePlomb Me.TextBoxSaisieC5 = ""
Me.TextBoxSaisiePlomb = ""
TextBoxSaisieC5.SetFocus
End If
End If
End If
End If

End Sub

--
Bien amicordialement,
P. Bastard

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
















Publicité
Poster une réponse
Anonyme