UserForm reste en arrière plan
Résolu
irongege
Messages postés
43559
Statut
Modérateur
-
irongege Messages postés 43559 Statut Modérateur -
irongege Messages postés 43559 Statut Modérateur -
Bonjour,
J'ai un soucis avec un Userform qui ne veut pas se mettre au premier plan lorsque l'on clique sur un bouton pour l'afficher alors que cela marche avec un autre UserForm.
Voici le code pour le 1er userform qui s'affiche bien au 1er plan :
le code de l'userform qui s'est bien mis au 1er plan
Lors d'un clic sur le bouton " Suivi.debcyf2 ", il y a enregistrement de données
Maintenant survient mon problème, lors du clic sur " CommandButton5 " mon autre userform s'affiche en arrière plan .
J'ai essayé en créant une autre userform et le problème reste le même, cette userform reste en arrière plan.
Si quelqu'un avait une idée , ce serait sympa.
Merci
J'ai un soucis avec un Userform qui ne veut pas se mettre au premier plan lorsque l'on clique sur un bouton pour l'afficher alors que cela marche avec un autre UserForm.
Voici le code pour le 1er userform qui s'affiche bien au 1er plan :
Private Sub validnumbatchf2_Click() nbrcarac = Len(TextBoxnumbatchf2.Value) If TextBoxnumbatchf2.Text = "" Or nbrcarac < 9 Or TextBoxdebcyf2.Text = "" Then MsgBox "Le numéro du batch ou l'heure saisi sont incorrects" Else validnumbatchf2.Visible = False matf2.Show ' UserForm qui doit s'afficher End If End Sub
le code de l'userform qui s'est bien mis au 1er plan
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then MsgBox "Vous ne pouvez pas fermer cette fenêtre.", 16 Cancel = CloseMode = 0 End If End Sub Private Sub validmatf2_Click() If Application.CountIf(Range("A92:A109"), TextBox1) >= 1 Then Range("B85").Value = TextBox1.Text Suivi.Labelmatdcyf2.Caption = TextBox1.Text Suivi.Show Suivi.MultiPage1.Value = 2 Suivi.debcyf2.Visible = True ' Bouton de procédure d'enregistrement TextBox1.Text = "" matf2.Hide Else: MsgBox "Vous ne disposez pas des droits nécessaires" End If End Sub
Lors d'un clic sur le bouton " Suivi.debcyf2 ", il y a enregistrement de données
' -------------------------------enregistrement et impression documents batch F2------------------------------------------------ Private Sub debcyf2_Click() hrdebcyf2.Caption = Format(Date, "dd.mm.yy") Workbooks.Open "C:\Suivi_DLC\Archives_" & Range("C33").Value & "\Batch_BL_N°" & Range("B27").Value & "\Docsuivicharge.xls" [AE114] = Labelnumconfigf2.Caption [AF115] = TextBoxnumbatchf2.Text [AH113] = [Y7] [AE116] = TextBoxdebcyf2.Text [U9] = [AE116] [U11] = Labelnumconfigf2.Caption [S1] = hrdebcyf2.Caption [D42] = Labelmatdcyf2.Caption Call nomprenom [G42] = Labelnomdcyf2.Caption [K42] = Labelprenomdcyf2.Caption If [D33] = "X" Then ' broche volante 1 [AH120] = "X" End If If [E33] = "X" Then ' broche volante 2 [AH121] = "X" End If If [F33] = "X" Then ' broche volante 3 [AH122] = "X" End If If [G33] = "X" Then ' broche volante 4 [AH123] = "X" End If If [H33] = "X" Then ' broche volante 5 [AH124] = "X" End If If [I33] = "X" Then ' broche volante 6 [AH125] = "X" End If If [J33] = "X" Then ' broche volante 7 [AH126] = "X" End If If [K33] = "X" Then ' broche volante 8 [AH127] = "X" End If If [L33] = "X" Then ' broche volante 9 [AH128] = "X" End If If [M33] = "X" Then ' broche volante 10 [AH129] = "X" End If If [N33] = "X" Then ' broche volante 11 [AH130] = "X" End If If [O33] = "X" Then ' broche volante 12 [AH131] = "X" End If [AI120] = [D31] [AI121] = [E31] [AI122] = [F31] [AI123] = [G31] [AI124] = [H31] [AI125] = [I31] [AI126] = [J31] [AI127] = [K31] [AI128] = [L31] [AI129] = [M31] [AI130] = [N31] [AI131] = [O31] 'Application.Run ("Docsuivicharge.xls!macro5impressionsupervisur") 'Application.Run ("Docsuivicharge.xls!Macro6impressioninfobatchregleur") ActiveWorkbook.Save ActiveWindow.Close '------------------------------------feuille poli --------------------------------------------- Workbooks.Open "C:\Suivi_DLC\Archives_" & Range("C33").Value & "\Batch_BL_N°" & Range("B27").Value & "\Poli.xls" [D1] = TextBoxnumbatchf2.Text 'Application.Run ("Poli.xls!impresspoli") ActiveWorkbook.Save ActiveWindow.Close '------------------------------------fin feuille poli ----------------------------------------- [A46] = Labelnumbf2.Caption [D64] = [A46] [A48] = Labeltablef2 [D66] = [A48] blencycledansf2.Visible = True numblencyclef2.Visible = True numblencyclef2.Caption = ActiveSheet.Cells(46, 1) tableencyclef2.Visible = True numtableencyclef2.Visible = True numtableencyclef2.Caption = ActiveSheet.Cells(48, 1) debcyf2.Visible = False CommandButton5.Visible = True End Sub
Maintenant survient mon problème, lors du clic sur " CommandButton5 " mon autre userform s'affiche en arrière plan .
Private Sub CommandButton5_Click() matfincyf2.Show CommandButton5.Visible = False End Sub
J'ai essayé en créant une autre userform et le problème reste le même, cette userform reste en arrière plan.
Si quelqu'un avait une idée , ce serait sympa.
Merci
A voir également:
- UserForm reste en arrière plan
- Youtube en arrière plan - Guide
- Arrière plan - Guide
- Arriere plan pc - Guide
- Mon pc s'allume mais lécran reste noir sans bip - Guide
- Arrière-plan messenger vidéo - Guide
1 réponse
Bonjour,
Il faudrait votre fichier sans les donnees des feuilles excel, juste la partie userforms
pour mettre a disposition: click sur le lien suivant https://www.cjoint.com/
Ne pas oublier de copier le lien cree dans votre prochain message.
A+
Il faudrait votre fichier sans les donnees des feuilles excel, juste la partie userforms
pour mettre a disposition: click sur le lien suivant https://www.cjoint.com/
Ne pas oublier de copier le lien cree dans votre prochain message.
A+
Suivi.Hide dans la partie de ce code :
et aussi ceci à l'activation de cet userform :
et elle s'affiche bien au 1er plan.