Revenir sur un Index textbox

Bonjour

Après plusieurs recherches sur le net, je ne trouve pas comment revenir sur un index textbox dans une frame

Ex. Après avoir scanné un code barre sur le textbox 1, je fais une macro avec textbox change pour vérifier le contenu du textbox 1

J'arrive bien à effacer le contenu et faire un message d'alerte mais je n'arrive pas à me repositionner sur celui-ci pour une nouvelle saisie.

Ça passe automatiquement sur le textbox suivant! En utilisant ma condition dans textbox change

Si quelqu'un a une proposition à faire

Merci d'avance

Bonjour

Essaie l'instruction :

TextBox1.SetFocus

Bye !

Bonjour,

merci pour cette réponse rapide,

j'ai essayé de mettre cette instruction dans ma condition mais hélas le résultat est identique.

je n'arrive pas à voir ou est le problème!

voici le code que j'ai fait:

Private Sub TextBox1_AfterUpdate()

End Sub

Private Sub UserForm_Initialize()

' Empecher Fermeture de l'USF par la croix

If CloseMode = 0 Then

Cancel = True

ElseIf CloseMode = 1 Then

End If

Application.ScreenUpdating = False

Application.DisplayAlerts = False

' effacer les 10eres lignes

Sheets("Scan").Select

Range("A2:A12").Select

Selection.ClearContents

Range("A1").Select

' codes GTIN normés

Dim ChoixDeno As String

' denos code GTIN coupures scannés

Dim Scan1 As Integer

Dim Scan2 As Integer

Dim Scan3 As Integer

Dim Scan4 As Integer

Dim Scan5 As Integer

Dim Scan6 As Integer

Dim Scan7 As Integer

Dim Scan8 As Integer

Dim Scan9 As Integer

Dim Scan10 As Integer

'scan deno

Dim ScanDeno1 As String

End Sub

' CHOIX DENO ES1

Private Sub ComboBox_ES1_Change()

If ComboBox_ES2 <> "" Then

MsgBox ("Attention au choix ES1/ES2 !"), vbCritical

ComboBox_ES1 = ""

ComboBox_ES2 = ""

Else ' verifier le code deno

' If ComboBox_ES1 = "" Then

' ChoixDeno = "0"

' DenoTest = ""

' Else

If ComboBox_ES1 = "5" Then

ChoixDeno = "0353"

DenoTest = "5 €"

' ComboBox_ES1.AutoTab = True

Else

If ComboBox_ES1 = "10" Then

ChoixDeno = "0896"

DenoTest = "10 €"

' TextBox1.Select

Else

If ComboBox_ES1 = "20" Then

ChoixDeno = "1435"

DenoTest = "20 €"

' TextBox1.Select

Else

If ComboBox_ES1 = "50" Then

ChoixDeno = "1978"

DenoTest = "50 €"

' TextBox1.Select

Else

If ComboBox_ES1 = "100" Then

ChoixDeno = "2517"

DenoTest = "100 €"

' TextBox1.Select

Else

If ComboBox_ES1 = "200" Then

ChoixDeno = "3057"

DenoTest = "200 €"

' TextBox1.Select

Else

If ComboBox_ES1 = "500" Then

ChoixDeno = "3590"

DenoTest = "500 €"

' TextBox1.Select

'End If

End If

End If

End If

End If

End If

End If

End If

End If

End Sub

' CHOIX DENO ES2

Private Sub ComboBox_ES2_Change()

'

If ComboBox_ES1 <> "" Then

MsgBox ("Attention au choix ES1/ES2 !"), vbCritical

ComboBox_ES1 = ""

ComboBox_ES2 = ""

Else ' verifier le code deno

If ComboBox_ES2 = "" Then

' ChoixDeno = "0"

DenoTest = ""

' TextBox1.ActiveControl.TabIndex = 1

Else

If ComboBox_ES2 = "5" Then

ChoixDeno = "0605"

DenoTest = "5 €"

ChDeno = ChoixDeno 'GTIN

' TextBox1.ActiveControl.TabIndex = 1

Else

If ComboBox_ES2 = "10" Then

ChoixDeno = "1145"

DenoTest = "10 €"

' TextBox1.Select

Else

If ComboBox_ES2 = "20" Then

ChoixDeno = "1688"

DenoTest = "20 €"

' TextBox1.Select

Else

If ComboBox_ES2 = "50" Then

ChoixDeno = "2227"

DenoTest = "50 €"

' TextBox1.Select

Else

If ComboBox_ES2 = "100" Then

ChoixDeno = "2760"

DenoTest = "100 €"

' TextBox1.Select

Else

If ComboBox_ES2 = "200" Then

ChoixDeno = "3309"

DenoTest = "200 €"

' TextBox1.Select

Else

If ComboBox_ES2 = "500" Then

ChoixDeno = "3842"

DenoTest = "500 €"

' TextBox1.Select

End If

End If

End If

End If

End If

End If

End If

End If

End If

End Sub

Private Sub TextBox1_Change()

Sheets("Scan").Select

Range("A2").Select

ActiveCell.Offset(0, 0).Value = TextBox1

Scan1 = Range("A2").Value 'GTIN scanné

Range("L2").Select

ScanDeno1 = Range("L2").Value ' GTIN deno

' affichage deno scannée

If ScanDeno1 = "0605" Then 'ES2

DenoBox = "5€ ES2"

ScDeno = ScanDeno1

Else

If ScanDeno1 = "1145" Then 'ES2

DenoBox = "10€ ES2"

ScDeno = ScanDeno1

Else

If ScanDeno1 = "1688" Then 'ES2

DenoBox = "20€ ES2"

ScDeno = ScanDeno1

Else

If ScanDeno1 = "2227" Then 'ES2

DenoBox = "50€ ES2"

ScDeno = ScanDeno1

Else

If ScanDeno1 = "2760" Then 'ES2

DenoBox = "100€ ES2"

ScDeno = ScanDeno1

Else

If ScanDeno1 = "3309" Then 'ES2

DenoBox = "200€ ES2"

ScDeno = ScanDeno1

Else

If ScanDeno1 = "3842" Then 'ES2

DenoBox = "500€ ES2"

ScDeno = ScanDeno1

Else

If ScanDeno1 = "0353" Then 'ES1

DenoBox = "5€ ES1"

ScDeno = ScanDeno1

Else

If ScanDeno1 = "0896" Then 'ES1

DenoBox = "10€ ES1"

ScDeno = ScanDeno1

Else

If ScanDeno1 = "1435" Then 'ES1

DenoBox = "20 ES1€"

ScDeno = ScanDeno1

Else

If ScanDeno1 = "1978" Then 'ES1

DenoBox = "50€ ES1"

ScDeno = ScanDeno1

Else

If ScanDeno1 = "2517" Then 'ES1

DenoBox = "100€ ES1"

ScDeno = ScanDeno1

Else

If ScanDeno1 = "3057" Then 'ES1

DenoBox = "200€ ES1"

ScDeno = ScanDeno1

Else

If ScanDeno1 = "3590" Then 'ES1

DenoBox = "500€ ES1"

ScDeno = ScanDeno1

Else

If ScDeno <> ChDeno Then

MsgBox ("attention"), vbExclamation

TextBox1 = Clear

TextBox1.SetFocus

' DenoBox = "" ' a remettre

' verrouillage ES1/ES2

If TextBox1 <> "" Then

With ComboBox_ES1

.Enabled = False

.Locked = True

End With

With ComboBox_ES2

.Enabled = False

.Locked = True

End With

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

' Call verif_deno

End Sub

Private Sub TextBox2_Change()

Sheets("Scan").Select

Range("A2").Select

ActiveCell.Offset(1, 0).Value = TextBox2

If TextBox2 = TextBox1 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox2 = ""

End If

End Sub

Private Sub TextBox3_Change()

Sheets("Scan").Select

Range("A2").Select

ActiveCell.Offset(2, 0).Value = TextBox3

If TextBox3 = TextBox2 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox3 = ""

Else

If TextBox3 = TextBox1 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox3 = ""

End If

End If

End Sub

Private Sub TextBox4_Change()

Sheets("Scan").Select

Range("A2").Select

ActiveCell.Offset(3, 0).Value = TextBox4

If TextBox4 = TextBox3 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox4 = ""

Else

If TextBox4 = TextBox2 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox4 = ""

Else

If TextBox4 = TextBox1 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox4 = ""

End If

End If

End If

End Sub

Private Sub TextBox5_Change()

Sheets("Scan").Select

Range("A2").Select

ActiveCell.Offset(4, 0).Value = TextBox5

If TextBox5 = TextBox4 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox5 = ""

Else

If TextBox5 = TextBox3 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox5 = ""

Else

If TextBox5 = TextBox2 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox5 = ""

Else

If TextBox5 = TextBox1 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox5 = ""

End If

End If

End If

End If

End Sub

Private Sub TextBox6_Change()

Sheets("Scan").Select

Range("A2").Select

ActiveCell.Offset(5, 0).Value = TextBox6

If TextBox6 = TextBox5 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox6 = ""

Else

If TextBox6 = TextBox4 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox6 = ""

Else

If TextBox6 = TextBox3 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox6 = ""

Else

If TextBox6 = TextBox2 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox6 = ""

Else

If TextBox6 = TextBox1 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox6 = ""

End If

End If

End If

End If

End If

End Sub

Private Sub TextBox7_Change()

Sheets("Scan").Select

Range("A2").Select

ActiveCell.Offset(6, 0).Value = TextBox7

If TextBox7 = TextBox6 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox7 = ""

Else

If TextBox7 = TextBox5 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox7 = ""

Else

If TextBox7 = TextBox4 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox7 = ""

Else

If TextBox7 = TextBox3 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox7 = ""

Else

If TextBox7 = TextBox2 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox7 = ""

Else

If TextBox7 = TextBox1 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox7 = ""

End If

End If

End If

End If

End If

End If

End Sub

Private Sub TextBox8_Change()

Sheets("Scan").Select

Range("A2").Select

ActiveCell.Offset(7, 0).Value = TextBox8

If TextBox8 = TextBox7 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox8 = ""

Else

If TextBox8 = TextBox6 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox8 = ""

Else

If TextBox8 = TextBox5 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox8 = ""

Else

If TextBox8 = TextBox4 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox8 = ""

Else

If TextBox8 = TextBox3 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox8 = ""

Else

If TextBox8 = TextBox2 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox8 = ""

Else

If TextBox8 = TextBox1 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox8 = ""

End If

End If

End If

End If

End If

End If

End If

End Sub

Private Sub TextBox9_Change()

Sheets("Scan").Select

Range("A2").Select

ActiveCell.Offset(8, 0).Value = TextBox9

If TextBox9 = TextBox8 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox9 = ""

Else

If TextBox9 = TextBox7 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox9 = ""

Else

If TextBox9 = TextBox6 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox9 = ""

Else

If TextBox9 = TextBox5 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox9 = ""

Else

If TextBox9 = TextBox4 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox9 = ""

Else

If TextBox9 = TextBox3 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox9 = ""

Else

If TextBox9 = TextBox2 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox9 = ""

Else

If TextBox9 = TextBox1 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox9 = ""

End If

End If

End If

End If

End If

End If

End If

End If

End Sub

Private Sub TextBox10_Change()

Sheets("Scan").Select

Range("A2").Select

ActiveCell.Offset(9, 0).Value = TextBox10

If TextBox10 = TextBox9 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox10 = ""

Else

If TextBox10 = TextBox8 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox10 = ""

Else

If TextBox10 = TextBox7 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox10 = ""

Else

If TextBox10 = TextBox6 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox10 = ""

Else

If TextBox10 = TextBox5 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox10 = ""

Else

If TextBox10 = TextBox4 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox10 = ""

Else

If TextBox10 = TextBox3 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox10 = ""

Else

If TextBox10 = TextBox2 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox10 = ""

Else

If TextBox10 = TextBox1 Then

MsgBox ("N° GTIN NON valide"), vbInformation

TextBox10 = ""

End If

End If

End If

End If

End If

End If

End If

End If

End If

End Sub

Private Sub TextBox11_Change()

Sheets("Scan").Select

Range("A2").Select

ActiveCell.Offset(10, 0).Value = TextBox11

If Len(TextBox11) <> 18 Then

MsgBox ("Code Etiquette non valide!")

TextBox11.Value = ""

End If

End Sub

Private Sub B_valider_Click()

If MsgBox("Confirmer la validation ?", vbYesNo) = vbNo Then

Exit Sub

End If

End Sub

Private Sub B_Annuler_Click()

' effacer les 10eres lignes

Range("A1:A10").Select

Selection.ClearContents

Range("A1").Select

End Sub

merci pour votre aide