Discussion :

[gds35]

Mes AMIS DU FORUM Bonsoir , et Bon WE

Voila , j'ai un classeur avec 10 Feuilles et je charge tous mes USF au fur et a mesure de mes besoins dans la feuille1 , sur l'un d'entre eux j'ai des Combobox
et si une entrée est erronée , j'affiche pendant 5 secondes en sur-impression de l'usf charge un autre USF avec un Label signalant l'erreur , et je fais Unload ME ce qui me ferme l'USF signalant l'erreur et retourne a la combobox ayant provoqué l'erreur pour ressaisie. La est le Pb , si je ferme avec la croix l'USF principal , il se ferme , la feuille s'affiche ss pb mais avec l'USF m'ayant signalé l'erreur , comment puis-je faire pour qu'elle n'apparaisse + dans la feuille ...... je ne sais si mon explication est claire ?????
Merci a tous si vous avez pigé mon PB de me donner un coup de main.

Cordialement GDS35

[Invité]

Bonjour

je ne sais si mon explication est claire ?????

Pas du tout, du moins pour moi.

Au lieu d'aligner des phrases tu ferais mieux de décomposer étape par étape ce qui se passe (sous la forme d'une liste par exemple), cela sera (j'espère) plus clair pour les explications.

Philippe

[gds35]

Philippe bonjour , et bon WE , je vais essayer d'être + clair voila :

1/ Dans une feuille d'un classeur j'ouvre un usf avec des CB et je saisie des infos
2/ Si une info est erronnée , j'ouvre un 2eme USF par dessus le premier avec un label contenu les raisons de l'erreur , j'ai mis un timer pour que l'usf contenant le label avec l'erreur disparaisse au bout de 5 S et la je reprends ma saisie puis je la valide avec un bouton.
3/ si je ferme mon USF Pricipal contenant mes CB avec la croix , ss pb il se ferme et me retrouve donc sur la feuille ou je l'ai chargé , mais sur cette feuille l'usf d'erreur reste visible et je suis obligé de le fermé lui aussi avec la croix.
Mes explications sont encore peut floues mais je ne vois comment d'exposer mon pb autrement , mon pg étant gros je ne peux le transmettre.

Merci de to aide cordialement GDS35

[carden752]

Bonjour GDS35,

Si j'ai bien compris, tu souhaites fermer le userform d'erreur en même temps que tu fermes l'userform principal contenant tes CB.
Est-ce que c'est bien cela GDS35?

Si une info est erronnée , j'ouvre un 2eme USF par dessus le premier avec un label contenu les raisons de l'erreur , j'ai mis un timer pour que l'usf contenant le label avec l'erreur disparaisse au bout de 5 S et la je reprends ma saisie puis je la valide avec un bouton

Est-ce que le timer fonctionne et la fermeture au bout de 5 secondes de ton userform?

[gds35]

Salut bon we , merci de t'occuper de mon pb ,

Ce n'est pad tout a fait cela .... Mon timer fonctionne l'usf d'erreur disparait au bout de 5 seconcondes ss pb , et me permet de continuer ma saisie sur l'usf prinicipal
par contre si je ferme avec la croix l'usf principal , je me retrouve sur ma feuille excel avec l'usf d'erreur affiché. sans l'usf principal qui lui a ete ferme.
cela voudrais t'il dire que le timer ne fait l'unload de l'usf d'erreur.

Dur a expliquer .....

Cordialement GDS35

[patricktoulon]

bonjour
il me viens une idée
quand tu fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

unload me' dans ta macro

si cette macro est dans l'userform principal il est tout a fait normal que ca soit lui qui se ferme


a la place de "me" met le nom de l'userform
EDIT:

il est fort possible que si l'erreur est mal gerée visual basic soit bloqué donc le "unload me" ne sert a rien ca change juste le focus sur les userforms






au plaisir

[gds35]

Salut Patrick et merci

J'ai tente ta solution mais malheureusement elle ne fonctionne pas , je ne vais pas me prendre la tete quand le prg sera au point de toute facon il n'y aura + l'autorisation d'utiliser la croix pour fermeture.

Bon WE et encore Merci . cordialement GDS35

[patricktoulon]

c'est bien ce que je dis


si tu te retrouve avec le message d'erreur(usf) sa veut bien dire qu'il ne se ferme pas mais le principal reprend le focus donc tu ne vois plus ton usf(erreur )mais il est toujour la derriere tout simplement

donc l'erreur est mal gérée

au plaisir

rebonjour
envoie un exemplaire de ton fichier sans les données perso

et je regarderais ce que je peut faire

au plaisir

[gds35]

re bonsoir Patrick ,
je ne peux t'envoyer mon fichier il est trop gros.......il fait 374 KO meme en compresse il ne passera pas ,, je t'envoi juste le code dz l'usf qui est loadé au momment de l'erreur.

Merci de ton aide bon WE Cordialement GDS35

[Montor]

si j'ai compris essaie ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  Cancel = 1
  Hide
End Sub

[patricktoulon]

bonjour

finalement puisque l'affichage est temporaire avec un simple message

pour ma part un userform est superflu

je mettrais plutôt un msgbox temporaire

tien regarde c'est ici :
le messagebox temporaire

voila des fois les choses les plus simples sont les meilleures

voila ça devrait être plus simple pour toi

allez au plaisir

[danbenzi]

Bonjour à tous,

J'avais fait un code similaire (mes premiers pas en vba) où un bouton appelle un usf (que j'ai appelé Surprise) qui contient différents boutons "Risqué, Annuler, Sans Risque" et lorsque je clique sur le bouton "Risqué" un msgbox apparait et en cliquant sur "OK" un autre usf (que j'ai appelé Photo) apparait. Lorque je ferme ce dernier usf, les deux se ferment en même temps.
Voici le bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Risqué_Click()
MsgBox "TROP TARD, " & vbCr & vbCr & " Vous avez choppé un VIRUS !", vbInformation
Photo.Show
 Unload Surprise
End Sub

J'espère que cela peut te servir.
A +
Dan

[OrDonc]

Bonsoir,

Avec 1 Usf (incluant un Label masqué du message)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub TextBox1_Change()  'ou autre
    If TextBox1 = "A" Then   'A : saisie invalide par exemple
        Label1 = "OUPS"
        Label1.Visible = True
        Application.Wait (Now + TimeValue("0:00:05"))
        Label1.Visible = False
    End If
End Sub.

sinon

UserForm1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
...
Private Sub TextBox1_Change()
    If TextBox1 = "A" Then    'A : saisie invalide par exemple
        Unload Me
        UserForm2.Show 
       End If
End Sub
...

et
UserForm2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm_Activate()
    Label1.Caption = "OUPS"
    Unload UserForm1
    Application.Wait (Now + TimeValue("0:00:05"))
    Unload Me
    UserForm1.Show
End Sub

devraient passer !

[gds35]

Bonjour , tout le Forum , Bonne journée .

Désolé de ma réponse quelque peut tardive !!!!!!

Je vais tester les codes sur des p'tit exemples et vous tient au courant.

Cordialement et encore Merci GDS35

[gds35]

Patrick Bonjour , ainsi que tous les AMIS du Forums ,

Apres plusieurs Essais j'ai finalement Opté pour ton idée de "CreateObjet......."
et cela fonctionne bien . Je regardais simplement s'il etait possible de le personnaliser (Couleur , Police Etc)

Encore merci a tous les membres qui se sont penché sur mon pb

Bonne journées Cordialement GDS35

[patricktoulon]

bonjour

a la bonne heure!!!!!!


au plaisir

[pijaku]

Bonjour,
J'arrive peut être trop tard et avec la mauvaise réponse mais j'ai trouvé ici, ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
    End
End Sub

Pour fermer en une seule fois tous les UserForm en cours d'affichage...

[gds35]

PIJAKU , et mes AMIS du Forum Bonjour ,
Je pensais mon mon pb résolu mais que Néni.

J'ai crée un fichier exemple je pense qu'il va passer.

La Marche a suivre : (MENUPRINCIPAL)-->FICHIER ARTICLES--> SAISIE-->
ouverture de l'usf Principal. Zone Réference si je valide à blanc ou avec moins de 7 caracteres ou caracteres alpha boite de dialogue affichée pendant 3 secondes et retour a l'usf Principal. Si a ce niveau je ferme avec la CROIX l'USF Principal pb de pb il y a fermeture et retour sur la feuille REF ou la se reaffiche lla boite de dialogue signalant l'erreur. Impossible de trouver pourquoi.

Encore merci de votre aide . Bonne journée et cordialement GDS35

[patricktoulon]

rebonjour

il manque des usfs dans ton fichier

comme ca en l'etat on ne peut pas tester


au plaisir

[gds35]

rebonjour,
"il manque des usfs dans ton fichier

comme ca en l'etat on ne peut pas tester"

Je viens de retester pour moi cela marche effectivement j'ai supprimer des bouts de code mais si tu ddclic sur le fichier il se charge et tu clic sur saisie
puis tu fais enter sur la zone reference a blanc , l'erreur se reproduit.
Je ne vois pas quel USF il Manque

A+ Cordialement GDS35