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

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

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