Condition pour MessBox Résolu/Fermé

Question

Bonjour,
je souhaite executer la suite de mon programme que si 3 champs sont remplis. Si jamais ce n'est pas le cas, une message box apparait et arrete le code.

Voici mon code qui ne fonctionne pas (qu'il y ai ou non des valeurs dans les trois TextBox CMJ, poidspiece et coutpiece le message s'affiche et bloc la suite)

 If IsEmpty(CMJ) Or IsEmpty(poidspiece) Or IsEmpty(CoutPiece) Then MsgBox ("Toutes les informations ne sont pas remplis"), vbOKOnly
Exit sub

Deuxieme problème, je souhaite en cliquant sur un bouton enregistrer crée un nouveau classeur (si il n'existe pas déja) et copier des valeurs dedans! J'ai beau avoir regardé sur plein de site je ne voie pas comment faire!
Merci d'avance pour votre aide

Polux31 · Answer

bonjour,

Ou se trouvent les textboxes ???

amigo · Answer

Bonjour,

Il y a une erreur dans l'ecriture de la condition If, essaie comme ça:

If IsEmpty(CMJ) Or IsEmpty(poidspiece) Or IsEmpty(CoutPiece) Then
     MsgBox ("Toutes les informations ne sont pas remplis"), vbOKOnly 
     Exit sub
End If

Salut.

Polux31 · Answer

tu peux également faire comme ça:

If CMJ.Text = "" Or poidspiece.Text = "" Or CoutPiece.Text ="" Then
    MsgBox "Toutes les informations ne sont pas remplies", vbOkOnly
    Exit Sub
End If

;o)

amigo · Answer

Re,

Pour ta deuxième question, le plus facile serait d'enregistrer une macro en faisant toutes les opérations manuellement.
Une fois terminé, tu stoppe l'enregistrement et tu modifie le code VBA généré par l'enregistrement automatique.

Si tu ne t'en sors pas, c'est plus facile pour nous de t'aider avec un bout de macro déjà écrit.

A+.

Condition pour MessBox

4 réponses

Discussions similaires