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

VBA code se relance pas apres Exit Sub

  • Initiateur de la discussion Initiateur de la discussion Bens7
  • 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 !

Bens7

XLDnaute Impliqué
Bonjour A tous !!! j'ai tester un code ce matin ya un probleme :

Code:
Private Sub CommandButton1_Click()
 
'si TEXT BOX 16 a 26 VIDE = message box
 Dim i As Byte
  For i = 16 To 26
      If Me.Controls("TextBox" & i) = "" Then MsgBox "IL MANQUE UNE COORDONEE DE L'ENTREPRISE" & vbNewLine & "SI VIDE METTRE UN TIRRET"
 Next i
 Exit Sub
 
'MET LES VALEURS DANS LA LIGNE
 [S2] = TextBox27.Value 'DATE
 [W4] = TextBox15.Value 'DIFFUSIONS
 [B2] = TextBox16.Value 'SOCIETE
 End Sub
Le probleme est que si les Text Box 16 a 26 sont bien remplie bah le macro ne continue pas la procedure il se passe rien comment expliquer que si tous est remplis bah continue quoi ..... lol
 
Re : VBA code se relance pas apres Exit Sub

Bonjour Bens7,

Il suffit de placer Exit Sub au bon endroit :

Code:
For i = 16 To 26
  If Me.Controls("TextBox" & i) = "" Then MsgBox "IL MANQUE UNE COORDONEE DE L'ENTREPRISE" & vbNewLine & "SI VIDE METTRE UN TIRRET": Exit Sub
Next i
Edit : salut sousou

A+
 
Re : VBA code se relance pas apres Exit Sub

Bonjour,
dans l'exemple présenté, il semble qu'il manque l'instruction Else:
Code:
If Me.Controls("TextBox" & i) = "" Then
'placer ici les actions quand les textbox sont vides
Else
'placer ici les actions quand les textbox ne sont pas vides
End if
Regarde sur l'aide d'Excel (touche F1) ce qui est dit sur l'instruction If...Then...Else
A+
Edit : salut Gérard, effectivement pas fait attention à EXit Sub...
 
Dernière édition:
- 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

B
  • Question Question
Réponses
3
Affichages
1 K
V
Réponses
17
Affichages
3 K
VBgalère
V
H
Réponses
19
Affichages
7 K
N
Réponses
23
Affichages
5 K
M
Réponses
3
Affichages
1 K
MarcTer
M
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…