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

renvois vers textbox vide

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion charette63
  • Date de début Date de début

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 !

S'inscrire
C

charette63

XLDnaute Occasionnel
Bonjours à toutes et à tous,

C'est encore moi, plus j'avance dans l'elaboration de mon fichier plus je rencontre des petits problèmes insoluble pour moi.

J'ai reçu, via ce site, un code qui m’empêche d'activer une macro si tous les textbox d'un userform ne sont pas rempli:

Code: 
Sub ValiderUSF2()

Dim ctl As Control
For Each ctl In UserForm2.Controls
  If TypeName(ctl) = "TextBox" Then
    If ctl.Value = "" Then
      MsgBox "Vous devez remplir tous les champs !"
      Exit Sub
    End If
  End If
Next ctl

'Ton code ici, qui sera executé si et seulement si toutes les textbox sont remplis.
End Sub

Le code fonctionne trés bien, mais maintenant cette macro est activée via un "commandbutton"et qui active d'autres actions:

Code: 
Private Sub CommandButton4_Click()
'Valider
Call ValiderUSF2
Unload UserForm2
Unload UserForm1
'ActiveWorkbook.Save
UserForm5.Show
End Sub

Avant l'application de ce "commandbutton", lorsque tous les textbox n'étaient pas remplis, le msgbox apparaissait, je cliquais "ok" et la userform restait active. Il ne me restais plus qu'à compléter mon oubli.
Maintenant, dans la même situation, l'action du "commandbutton" suit son petit bonhomme de chemin, me ferme mon userform2 et m'ouvre mon userform5 sans que je ne puisse compléter mon userform2.

Je cherche donc une possibilité de me renvoyer dans le textbox vide de ma userform2
Peut etre une ligne de commande supplémentaire dans ce code:

Code: 
Dim ctl As Control
For Each ctl In UserForm2.Controls
  If TypeName(ctl) = "TextBox" Then
    If ctl.Value = "" Then
      MsgBox "Vous devez remplir tous les champs !"
      Exit Sub
    End If
  End If
Next ctl

merci

cordialement

Thierry
 
Trier par date Trier par votes
Re : renvois vers textbox vide

bonjour charette63
peut être un "truc" dans ce genre variable x en debut de module

Code: 
Option Explicit
Dim ctl As Control, x As Boolean
Private Sub CommandButton4_Click()
 Call ValiderUSF2
If x = False Then Exit Sub
Unload UserForm2
Unload UserForm1
ActiveWorkbook.Save
UserForm5.Show
End Sub

Sub ValiderUSF2()
x = True
For Each ctl In UserForm2.Controls
  If TypeName(ctl) = "TextBox" Then
    If ctl.Value = "" Then
      MsgBox "Vous devez remplir tous les champs !"
        x = False
      Exit Sub
    End If
  End If
Next ctl
End Sub
 
Vote positif 0 Vote négatif
Re : renvois vers textbox vide

Bonjour charette63, salut Laetitia,

J'ai testé ceci qui paraît convenir :

Code: 
Private Sub CommandButton4_Click()
Call ValiderUSF2
Unload UserForm2
Unload UserForm1
ActiveWorkbook.Save
UserForm5.Show
End Sub

Sub ValiderUSF2()
Dim ctl As Control
For Each ctl In UserForm2.Controls
  If TypeName(ctl) = "TextBox" Then
    If ctl.Value = "" Then
      ctl.SetFocus 'curseur dans la TextBox
      MsgBox "Vous devez remplir tous les champs !"
      UserForm2.Hide
      UserForm2.Show
      End
    End If
  End If
Next ctl
End Sub
A noter : on peut fermer USF2 même si les TextBox ne sont pas remplies...

Si ça ne convient pas, il faut alors empêcher la fermeture dans une macro QueryClose.

Edit : j'utilise l'instruction End, autrement le code suivant s'exécutera plusieurs fois.

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : renvois vers textbox vide

Bonsoir,

si tu n'as pas besoin de contrôler les contenus vides plusieurs fois, tu peux te contenter d'une seule macro :
Code: 
Private Sub CommandButton4_Click()
    Dim ctl As Control
    For Each ctl In UserForm2.Controls
        If TypeName(ctl) = "TextBox" Then
            If ctl.Value = "" Then
                MsgBox "Vous devez remplir tous les champs !"
                ctl.SetFocus
                Exit Sub
            End If
        End If
    Next ctl
    Unload UserForm2
    Unload UserForm1
    ActiveWorkbook.Save
    UserForm5.Show
End Sub
 
Vote positif 0 Vote négatif
Re : renvois vers textbox vide

Bonjour Fo_rum,

Fo_rum à dit:
si tu n'as pas besoin de contrôler les contenus vides plusieurs fois, tu peux te contenter d'une seule macro :
Cliquez pour agrandir...

Bien d'accord avec toi. Le seul intérêt d'avoir 2 macros c'est de pouvoir appeler la macro Valider USF2 autrement, par exemple, comme je l'ai suggéré, depuis une QueryClose.

A+
 
Vote positif 0 Vote négatif
bonjour à toutes et tous,

le code de job75 fonctionne à merveille.

Le choix d'installer deux macros n'est utile que pour une "mise en page" dans le(s) module(s).

Laetitia90, Job75 et Fo_rum, merci beaucoup

cordialement

Thierry
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

P
  • Résolu(e)
Microsoft 365 Exporte format d'impression à d'autres onglet
Réponses
3
Affichages
404
PatrickNyon
P
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
267
AtTheOne
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
626
KRUG WOO
K
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
963
tnion
T
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
403
NONO14
N
  • Résolu(e)
XL 2013 customui copymemory qui fait encore des siennes
Réponses
8
Affichages
312
Rheeem
R
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
743
NONO14
N
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
617
Piment
P
N
  • Résolu(e)
Microsoft 365 Simplifier un code pour activer ou désactiver des CheckBox
6 7 8
Réponses
115
Affichages
4 K
ChTi160
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
332
escudo
E
N
  • Résolu(e)
Microsoft 365 Format date d'une textbox vers une cellule
Réponses
8
Affichages
727
ChTi160
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
18 19 20
Réponses
297
Affichages
70 K
NONO14
N
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
585
AtTheOne
A
  • Résolu(e)
XL 2019 VBA newbie
4 5 6
Réponses
80
Affichages
3 K
apocalypse
A
  • Question Question
XL 2019 Détecter les valeurs suivant les tableaux sélectionnés et, si elles sont non-existantes, les copier
2 3
Réponses
33
Affichages
1 K
Amigo
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
378
sebastien176
S
P
  • Question Question
Microsoft 365 TextBox avec limitation de la saisie entre 2 valeurs
Réponses
8
Affichages
378
pat66
P
N
  • Question Question
Microsoft 365 appel des sous-routine
Réponses
3
Affichages
353
Dranreb
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
834
AtTheOne
  • Question Question
XL 2021 Création et adaptation barre de progression
2 3
Réponses
44
Affichages
2 K
Tartine
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…