Zone texte dans USF

[gerard55]

Bonjour à tous
j'ai une zone texe dans un user form je valide ce qui a été saisi par un bouton valider. Dans ce bouton validé, j'ai ce code. je voudrais que si l 'OF n'est pas saisi il ne quitte pas le programme mais qu'il se positionne à nouveau sur cet zone texte. J'ai essayer les goto mais ça ne marche pas

If UsfMaBoite.Of <> "" Then
Sheets("BD").Range("c3").Value = Of.Value
Sheets("Cmde").Range("c1").Value = Of.Value
Else
MsgBox "Vous n'avez pas saisi l'OF"
que dois-je indiquer?
End If
merci pour vos suggestions
a+
Gérard

 

[Pierrot93]

Re : Zone texte dans USF

Bonsoir Gerard

si j'ai bien compris, essaye peut être comme ci dessous :

If UsfMaBoite.Of <> "" Then
Sheets("BD").Range("c3").Value = Of.Value
Sheets("Cmde").Range("c1").Value = Of.Value
Else
MsgBox "Vous n'avez pas saisi l'OF"
Of.SetFocus
End If

bonne soirée
@+

 

[gerard55]

Re : Zone texte dans USF

Merci Pierrot mais désolé, il ferme le programme et ne reste pas sur le masque de saisie
a+

 

[B52]

Re : Zone texte dans USF

bonsoir, combine deus instructions a la suite du style :

Private Sub verif_UsfMaBoite()
If UsfMaBoite.Of= "" Then
MsgBox "Vous n'avez pas saisi l'OF"
Else
verif_la_suite(ici tu mets le lien d'une autre macro qui s'executera seulement si celle ci est valide)
End If
End Sub

 

[Pierrot93]

Re : Zone texte dans USF

Re,

je ne vois rien dans le bout de code que tu as donné qui ferme le programme, essaye en rajoutant cette ligne :

MsgBox "Vous n'avez pas saisi l'OF"
Of.SetFocus
[B][COLOR="Red"]Exit Sub[/COLOR][/B]

sinon mets le code dans sa totalité, parce que là c'est un peu au hasard, sais pas trop ce qu'il y a derrière...

@+