Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

deplacer un curseur

I

irma

Guest
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
 
J

jmps

Guest
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é
 
I

irma

Guest
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
 
J

jmps

Guest
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é
 
E

Eric C

Guest
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
 
E

Eric C

Guest
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...
 

Discussions similaires

Réponses
2
Affichages
377
  • Question
Microsoft 365 TEXTBOX
Réponses
7
Affichages
499
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…