VBA code se relance pas apres Exit Sub

[Bens7]

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

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

 

[sousou]

Re : VBA code se relance pas apres Exit Sub

Bonjour
Il me semble que si tu places ton exitsub avnet le next i ca va le faire

 

[job75]

Re : VBA code se relance pas apres Exit Sub

Bonjour Bens7,

Il suffit de placer Exit Sub au bon endroit :

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+

 

[david84]

Re : VBA code se relance pas apres Exit Sub

Bonjour,
dans l'exemple présenté, il semble qu'il manque l'instruction Else:

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

 

[job75]

Re : VBA code se relance pas apres Exit Sub

Salut David,

Ici une seule ligne avec If...Then... : Exit Sub suffit.

A+

 

[Pierrot93]

Re : VBA code se relance pas apres Exit Sub

Bonjour à tous,

préférable de rester sur le même fil....
https://www.excel-downloads.com/threads/vba-msgbox-si-vide-plusieurs-text-box.208318/