Pb MsgBox.

[Hulk]

Mesdames, Mesdemoiselles, Messsieur,

J'ai préféré créer un nouveau post, malgré que l'sujet soit encore sur les MsgBox !

Donc, me r'voilà encore avec mes problèmes de MsgBox.

C'est pas si évident qu'ça d'gérer ces satanées MsgBox ! 😡

Vous m'direz que j'peux utiliser des USF, mais je préfère continuer dans cette direction.. j'sais j'suis têtu 😀

J'ai joins un p'tit fichier avec mes p'tits soucis.

Merci pour votre aide.

Hulk.


P. S. Le chat a dit : Il parait que l'inventeur de la cédille est un certain Monsieur Groçon. 😀

 

[13GIBE59]

Re : Pb MsgBox.

Salut, Hulk

MsgBox ("Il est où ton fichier ?") 😀

A +

JB

 

[Hulk]

Re : Pb MsgBox.

😀 13GIBE59

Téléscopationnage !

 

[ledzepfred]

Re : Pb MsgBox.

13GIBE59, Hulk bonsoir,

ce ne sont pas tes msgbox qui posaient problème mais les conditions if

ai donc modifié ton code pour que cela joue comme tu le souhaites

Dans le code du bouton ok, il y avait l'instruction end, cela avait pour effet de désactiver l'userform quelles que soient la sub mess déclenchée.
L'astuce etait donc de supprimer cette instruction et d'ajouter l'instruction unload userform1 dans les sub mess2 et 3 (cas où la verification ne renvoie pas le message adresse incorrecte pour l'une des deux textbox ou les deux)

vois si cela te convient, si c'est le cas je suis ravi qu'on ai épargné la vie d'une de tes chemises (j'préfère même pas imaginer quel est ton budget fringues!)😀😀
a+

 

[Hulk]

Re : Pb MsgBox.

hello,

Merci Maestro c'est impec !

Ai juste rajouté un petit End pour chaque vbCancel et tout bon, sauf tout petit détail..

Possible de faire un SetFocus sur la TextBox2 si l'adresse incorrecte est Texbox2( cellule D2) ?

J'ai essayé ça, mais non !

Private Sub CommandButton1_Click()
If [D2] = "Adresse incorrect" Then TextBox2.SetFocus Else TextBox1.SetFocus

If TextBox1 = "" Then mess1: Exit Sub

If TextBox1 <> "" And TextBox2 = "" Then
If [D1] = "Adresse correcte" Then mess2
If [D1] = "Adresse incorrecte" Then mess4
End If

If TextBox1 <> "" And TextBox2 <> "" Then
If [D1] = "Adresse correcte" And [D2] = "Adresse correcte" Then mess3
If [D1] = "Adresse correcte" And [D2] = "Adresse incorrecte" Then mess5
If [D1] = "Adresse incorrecte" And [D2] = "Adresse correcte" Then mess4
If [D1] = "Adresse incorrecte" And [D2] = "Adresse incorrecte" Then mess6
End If

End Sub

Tu n'aurais pas une petite idée ?

En tous cas merci encore !

Hulk.


Au fait, mon ami si tu savais mon budget fringues... j'crois qu'même Excel n'arriverait pas à faire le calcul ! 😀

 

[Hulk]

Re : Pb MsgBox.

Re,

Au fait le pire Lep, c'est que j'étais pas loin d'y arriver tout seul comme un grand, mais dans les Sub mess j'avais mis Unload.me !

Bon j't'avoue aussi que dans le CommandButton j'étais pas aussi.. près ! 😀

Bon je continue à chercher pour ce SetFocus !

@+.

Hulk.

 

[Roland_M]

Re : Pb MsgBox.

bonjour

voir si comme ceci te convient !
à toi de vérifier car j'ai peu de temps, mais les tests sont clair et facilement modifiables !

en informatique, il faut savoir rester simple et logique !

et par pitié nommer ses objets, je le répète toujours sur ce forum !

TextBox1 TextBox2 ne veut rien dire du tout !?
TextBoxAdres TextBoxCc etc ... çà ok !

CommandButton1 CommandButton2 !? pareil !?
ButtonOk ButtonAbandon çà Ok !

et pire encore, je vois:
mess1 mess2 mess3 etc ... pour suivre un code pareil bonjour la migraine !

MsgOk MsgEnvoyé MsgErreur etc... ça parle déjà mieux !

 

[Hulk]

Re : Pb MsgBox.

Hello à tous, Roland_M

Capitaine oui mon Capitaine !
Juste pour ma défense, je suis un "apprentis" dans le domaine Excel, donc clémence 😀

Non sérieusement, oui tu as raison ! Autant de suite apprendre correctement, et en plus c'est comme ça qu'on apprends le mieux, en se faisant gronder (mais pas trop quand même je deviens vite vert pomme !) 😀

Et en plus chapeau pour ton code, c'est excactement ce que je souhaitais.

Faut maintenant que j'analyse tout ça 😱

Merci à vous tous qui vous êtes penché sur mon problème.

Au plaisir de vous lire.

Hulk.

 

[ledzepfred]

Re : Pb MsgBox.

Hulk, Roland (j'tarconno tizot' t'es d'min coin!!), le forum bonsoir,

ben j'y comprend plus rien : Roland gronde Hulk et craque sa chemise enfin pas Hulk mais Roland et il n'a même pas vu rouge enfin Hulk je veux dire pas Roland😀😀

Non plus sérieusement, je suis d'accord avec toi Roland sur les noms des objets mais on en est pas tous au point d'écrire comme toi des codes synthétiques comme tu l'as fait dans cet exemple, on apprend sur ce forum au contact de personnes comme toi donc un grand merci pour ton partage d'expérience.

a+