msg box

[tallia64]

Afficher un message dans mon userform

bonsoir je travaille sur un userform où à l'intérieur se trouve une combobox (combobox1). Je souhaiterais à l'ouverture de mon userform que si ma combobox est vide qu'un message s'affiche ex : stop et qui me ferme automatiquement le userform et si ma combobox n'est pas vide il ne ferme pas mon userform. Je vous remercie d'avance pour votre aide.
tallia🙂

 

[BERRACHED said]

Re : msg box

Salut,talia

As tu essayé : If Combobox1.Value = "" then
Exit sub
Unload me
End if

a tester

Cordialement

 

[Excel-lent]

Re : msg box

Bonsoir Tallia,

Pas de fichier exemple? Donc on va rester dans le théorique :

Donc si je suppose bien, ta comboBox a une valeur par défaut à l'ouverture? Car sinon l'utilisateur aurait à peine vu l'Userform s'ouvrir qu'il se refermera!

If [COLOR="Red"][B]ComboBoxNom[/B][/COLOR].Value = "" Then
  MsgBox "Comme il n'y a rien de saisie dans la zone ... L'userform va se fermer automatiquement!"
  Unload [COLOR="Blue"][B]formulaire[/B][/COLOR]
End If

ComboBoxNom à remplacer par le nom de ta ComboBox, dans ton cas présent : comboBox1
formulaire à remplacer par le nom de ton formulaire (le nom qui figure dans "name" et non pas "caption")

Bonne soirée

PS. : la prochaine fois essaye de mettre un tout petit bout de fichier STP.
-> C'est plus rapide à répondre.
-> Un exemple + 2/3 phrases c'est plus parlant que 3 pages d'explications
-> Et cela permet de tester notre réponse en situation avant de l'envoyer

Edition : Bonsoir BERRACHED said

 

[alex67800]

Re : msg box

Bonsoir Tallia64,
Bonne Année!!

Peut-être comme-ceci A mettre avec ton bouton "valider":

If combobox1.value="" then
MsgBox "STOP", vbExclamation
    Unload Me
    Exit Sub
    End If

Adapte le combobox1 au tient!

Regarde si cal te convient!

Edit: Il y en a qui tire plus vite que moi lol Bonsoir Excel-Lent, Said!

 

[tallia64]

Re : msg box

Bonjour merci à vous tous pour votre aide. J'ai testé vos différents code mais lorsque je créais une ligne avec "ajout" que je modifie avec "sortir" c'est correct. Par contre si je supprime la ligne notamment la n° 3 il m'affiche le message de ma combobox 1 et me met une débogage. Je vous mets ci-joint mon fichier. Merci beaucoup Tallia

http://cjoint.com/?bgr4KZyhbr

 

[Excel-lent]

Re : msg box

Bonsoir Tallia64,

(sans rapport avec ta question)

Concernant ta macro ci-dessous (du formulaire "AJOUT")

A mon avis, il serait sympa de rajouter les lignes en bleu

Private Sub VALIDER_Click()
Dim VTitre As String, VNom As String, VPrenom As String
Dim i As Integer
Dim J As Integer
index = 3 'comment est initialisée cette variable ?

[COLOR="Blue"]If heure_sortie.Value < HEURE_ENTREE.Value Then MsgBox "heure de sortie ANTERIEUR à l'heure d'entrée????"
Unload AJOUT[/COLOR]


With TextBox12
.Value = Replace(.Value, " ", "")

For i = 1 To Len(.Value)
    If Not IsNumeric(Mid(.Value, i, 1)) Then Exit For
Next i
....

En testant ce code, cela m'a permit de constater qu'en plus du problème que tu décris, lors du remplissage de ton formulaire "ajout", la ligne se rajoute AVANT que l'utilisateur est cliqué sur le bouton "validation"!!!!!

Réparer ce soucis avant de profiter pleinement de mon petit rajout.

PS. : Bonsoir Alex67800

Bonne soirée

 

[tallia64]

Re : msg box

Merci excel-lent pour cette modification que je vais tester de suite.
Bonne soirée TALLIA