UserForm reste en arrière plan
Résolu
irongege
Messages postés
43559
Date d'inscription
Statut
Modérateur
Dernière intervention
-
irongege Messages postés 43559 Date d'inscription Statut Modérateur Dernière intervention -
irongege Messages postés 43559 Date d'inscription Statut Modérateur Dernière intervention -
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
- Mon pc s'allume mais lécran reste noir sans bip - Guide
- Arriere plan pc - 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 :
Private Sub UserForm_Activate() With Me .StartUpPosition = 3 .Width = Application.Width .Height = Application.Height .Left = 0 .Top = 0 End With End Subet elle s'affiche bien au 1er plan.