If et end if VBA

[gerard55]

Bonjour à tous
J'ai un souci sur ce code. Il me dit que l'on ne doit pas mettre end if sans bloc if alors qu'il y en a un. De plus, cette condition ne fonctionne pas. Si n2cessaire, je vous fais suivre le fichier
Merci d'avance
a+ Gérard

Private Sub ComboBoxRef_Change()

Sheets("Mouvement").Select
[b5] = ComboBoxRef.Value
If [b5] = "" Then MsgBox ("vous avez une erreur de saisie des quantités")
End If
End Sub

 

[Pierrot93]

Re : If et end if VBA

Bonjour,

oui, "end if" est inutile si si ce qui suit "then" est sur la même ligne :

If [b5] = "" Then MsgBox ("vous avez une erreur de saisie des quantités")

bonne journée
@+

 

[gerard55]

Re : If et end if VBA

Merci Pierrot pour cette info rapide
J'ai une autre question: comment peut-on interdire la fermeture de la fenêtre si la saisie n'est pas conforme.
Unload UsfMesBoites En fait il faut interdire cette action: attendre la bonne saisie

 

[Pierrot93]

Re : If et end if VBA

Re,

vois pas "unload" dans ton code, peut être ainsi, à placer juste avant :

If [b5] = "" Then Exit Sub

 

[gerard55]

Re : If et end if VBA

Merci pour tout Pierrot à bientôt
Gérard