exel97 et textbox

[gillou]

Bonjour,
Je m'adresse a vous qui pourrez peut etre m'aider.

G pour mission de faire un doc. de saisi sous excel 97 avec un textbox dans un usf, celui ci lorsqu'il est rempli au moyen d'un code barre doit faire des calcs et remplir differents onglets du classeur puit reprendre le focus et attendre une nouvelle saisie, actuellement le programe tourne parfaitement avec excel2k mais pas avec excel97 sr2, je n'arrive pas a trouver pourquoi ?
Sauriez vous m'aider ?

Merci

 

[Yeahou]

Bonjour Gillou

Sans le code posant problème, cela va être difficile!

Cordialement, A+

 

[Gilou]

Ci joint le code present dans le formulaire.
objets dans l'usf:
-un textbox
-deux boutons

un textbox
Private Sub UserForm_Activate()
Retour.TextBox1.SetFocus
Retour.TextBox1.Text = ""
End Sub

Private Sub CommandButton1_Enter()
Retour.TextBox1.SetFocus
End Sub

Private Sub CommandButton2_Click()
End
End Sub

Private Sub CommandButton2_Enter()
Retour.TextBox1.SetFocus
End Sub

Private Sub TextBox1_AfterUpdate()
If Retour.Visible = True Then
Retour.TextBox1.SetFocus
End If
End Sub

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
' ici je change dans d'autres onglets pour renseigner des cellules
Sheets("saisie (2)").Activate
Cells(9, 2).Value = TextBox1.Text
Sheets("saisie (2)").Activate
Retour.TextBox1.Value = ""
End Sub

Merci

 

[Yeahou]

Re Bonjour Gillou, le forum

essaie cela

Cordialement, A+

Private Sub UserForm_Activate()
Retour.TextBox1.SetFocus
Retour.TextBox1.Value = ""
End Sub

Private Sub CommandButton1_Enter()
Retour.TextBox1.SetFocus
End Sub

Private Sub CommandButton2_Click()
End
End Sub

Private Sub CommandButton2_Enter()
Retour.TextBox1.SetFocus
End Sub

Private Sub TextBox1_AfterUpdate()
If Retour.Visible = True Then
Retour.TextBox1.SetFocus
End If
End Sub

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms ReturnBoolean)
' ici je change dans d'autres onglets pour renseigner des cellules
ActiveWorkbook.Sheets("saisie (2)").Cells(9, 2).Value = Retour.TextBox1.Value
Retour.TextBox1.Value = ""
End Sub

 

[Gilou]

Je te remercie pour ta soluc mais cela ne fonctionne toujours pas.
remarque lorsque je met un point d'arret sur la ligne

Retour.TextBox1.Value = ""


et que je fait du pas a pas le focus est rendu sur le textbox ???