Se positionnex sur un textbox précis aprés validation

[TOINE38]

Bonjour le forum

Tout d'abord tous mes voeux à tous pour cette nouvelle année, qu'elle apporte à chacun d'entre vous tout ce dont vous désirez.

concernant mon problème, j'ai crée un userform avec textbox, combobox.
Cet userform me sert de masque de saisie dans une feuille excel.
Je souhaiterais aprés avoir cliquer sur le bouton de validation que le cursuer ne se place plus dans le Textbox1 mais le 6 ( les premiers textbox étant un " entête" ).
J'ai pas mal chercher mais je coince sur ce bout de code.

Version excel 97/2003.

Merci d'avance pour votre collaboration

Amicalement

Toine38

 

[TOINE38]

Re : Se positionnex sur un textbox précis aprés validation

Merci Jean-Marcel,

Disons que mon masque de formulaire est une saisie d'actions correctives d'audit et les premiers text box ( que je considère comme entête) je saisis les données de l'auditeur , date etc.. ensuite a partir du text6box ce sont les actions.
Le bouton que j'ai créé me copie le tout dans une feuille et vide les données des textbox6 à zz tout en gardant "l'entête".
J'ai essayé le code Textbox6.setfocus mais cela ne fonctionne pas ci dessous mon code:

Private Sub CommandButton1_Enter()
Sheets("Données").Select
If TextBox6 = "" Then
Call MsgBox("Le champ - Obsevation - est vide, merci de compléter ou quitter")
Exit Sub
End If
Cells(7, 1).Value = Val(TextBox11.Value)
Cells(7, 2) = TextBox1
Cells(7, 3) = TextBox2
Cells(7, 4) = TextBox3
Cells(7, 5) = TextBox4
If ComboBox1.Value = "" Then MsgBox "Veuillez remplir le champ - Atelier -": _
ComboBox1.SetFocus: Exit Sub
Cells(7, 6) = ComboBox1
Cells(7, 7) = TextBox5
Cells(7, 8) = TextBox6
If ComboBox2.Value = "" Then MsgBox "Veuillez remplir le champ - Rubrique -": _
ComboBox2.SetFocus: Exit Sub
Cells(7, 9) = ComboBox2
If ComboBox3.Value = "" Then MsgBox "Veuillez remplir le champ - Type -": _
ComboBox3.SetFocus: Exit Sub
Cells(7, 10) = ComboBox3
Cells(7, 11) = TextBox7
Cells(7, 12) = TextBox8
If ComboBox4.Value = "" Then MsgBox "Veuillez remplir le champ - Immediate -": _
ComboBox4.SetFocus: Exit Sub
Cells(7, 13) = ComboBox4
Cells(7, 14) = TextBox9
Cells(7, 15) = TextBox10
Rows("7:7").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
TextBox6.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
ComboBox4.Value = ""
TextBox6.SetFocus 'je souhaiterais me placer sur ce textbox mais ce code ne fonctionne pas"
End Sub


Merci
Toine38

 

[TOINE38]

Re : Se positionnex sur un textbox précis aprés validation

Bonjour Jean-marcel,

J'ai trouvé le pourquoi TextBox6.SetFocus ne fonctionne pas ( enfin je crois).
J'ai changé "Private Sub CommandButton1_Enter()" par "Private Sub CommandButton1_Click()" et sa fonctionne.

Merci

Toine38