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

Zone texte dans USF

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gerard55

XLDnaute Occasionnel
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
 
Re : Zone texte dans USF

Bonsoir Gerard

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

Code:
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
@+
 
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
 
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 :

Code:
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...

@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
Réponses
15
Affichages
2 K
B
Réponses
6
Affichages
1 K
D
Réponses
8
Affichages
2 K
C
Réponses
23
Affichages
4 K
Charles78
C
V
Réponses
2
Affichages
2 K
vynmarius
V
C
Réponses
5
Affichages
2 K
Charles78
C
R
Réponses
7
Affichages
2 K
R
A
Réponses
6
Affichages
1 K
A2pFlo
A
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…