deplacer un curseur

[irma]

Bonjour et bon week end tous le monde.

J'ai un petit soucis de déplacement de curseur et je n'arrive pas a le solutionner tous seul :-(

dans un userform , j'ai plusieurs textbox.
Si dans le premier textbox il n'y a aucune valeur, un msgbox s'affiche .
Jusque là no probleme.
Des que je ferme le msgbox, le curseur se déplace dans le txtbox suivant au lieu de rester sur le premier pour saisir la valeur !!

Voici mon code :

Private Sub TextBox11_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With userform1
If .TextBox11 = "" Then
MsgBox " Tapez un N° de série, SVP ! ", vbCritical, "ERREUR DE SAISIE"
End If
Sheets("Tableau").Select
[p2] = TextBox11.Value
End With
End Sub

Qu'est ce qui me manque ??

Un petit coup de pouce serait le bienvenu.

Merci a tous

Irma

 

[jmps]

Bonjour irma,

Ajoute la ligne en gras.

Private Sub TextBox11_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With userform1
If .TextBox11 = "" Then
MsgBox " Tapez un N° de série, SVP ! ", vbCritical, "ERREUR DE SAISIE"
.TextBox11.SetFocus
End If
Sheets("Tableau").Select
[p2] = TextBox11.Value
End With
End Sub

Bon dimanche,

José

 

[irma]

Salut josé

J'ai essayé en ajoutant " .textbox11.setfocus " mais cela ne fonctionne pas non plus !

Si tu as une autre idée !!

Merci quand même pour ton aide

Irma

 

[jmps]

Re irma,

Pourtant ça fonctionne chez moi. Quelle est ta version d'Excel bien que je ne pense pas que ça ait une grande importance. Peux-tu poster un extrait de ton fichier avec le userform et la macro en question ?

A+

José

 

[Eric C]

Bonjour le forum
Bonjour Irma , bonjour José

Cancel = True c'est la soluce radicale.

Private Sub TextBox11_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With userform1
If .TextBox11 = "" Then
MsgBox " Tapez un N° de série, SVP ! ", vbCritical, "ERREUR DE SAISIE"

Cancel = True <=== ICI

End If
Sheets("Tableau").Select
[p2] = TextBox11.Value
End With
End Sub

@ ++ Eric C

 

[jmps]

Bonjour Irma, bonjour Eric,

Effectivement j'ai oublié le Cancel. Mea culpa. Merci Eric.

Bonne journée.

José

 

[Eric C]

Re le forum
Re bonjour Irma, Re bonjour José

De rien, tu es pardonné ...lol....
Le .SetFocus ne fonctionnait pas sur mes PC non plus 97 & 2000.

@ Ce soir sur le T'Chat QUIZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ...

 

[irma]

Salut josé, Eric

Merci beaucoup pour votre aide cela fonctionne à merveille.

Irma