Formulario VBA bloqueado en la entrada
Anouchka2586
Mensajes publicados
47
Fecha de registro
Estado
Miembro
Última intervención
-
f894009 Mensajes publicados 17417 Fecha de registro Estado Miembro Última intervención -
f894009 Mensajes publicados 17417 Fecha de registro Estado Miembro Última intervención -
Hola
He creado este formulario en VBA y de repente está bloqueado, imposible de escribir en los campos. Es como si hubiera otro cuadro de diálogo abierto que impide la entrada en el formulario. Alguien puede ayudarme, gracias.
Aquí están mis capturas:
----------Código debajo -------------
Private Sub Button4Fermer_Click()
Unload FormRegister
End Sub
Private Sub ButtonAjouter_Click()
'Doble clic en el botón agregar
If ComboBox2.Value = " " Then
MsgBox "Por favor complete el campo nombre y apellido"
Else
Dim ligne As Integer
If MsgBox("¿Confirma el agregado de los datos?", vbYesNo, "confirmación") = vbYes Then
Worksheets("Feuil2").Select
'n° de la fila vacía de la columna A
ligne = Sheets("Feuil2").Range("A456541").End(xlUp).Row + 1
Cells(ligne, 1) = ComboBox_civilite.Value
Cells(ligne, 2) = ComboBox_nomprenom.Value
Cells(ligne, 3) = Txt_adresse.Value
Cells(ligne, 4) = Txt_codepostal.Value
Cells(ligne, 5) = Txt_ville.Value
Cells(ligne, 6) = Txt_telephone.Value
Cells(ligne, 7) = Txt_email.Value
Unload FormRegister
FormRegister.Show
Else
End If
End If
End Sub
Private Sub UserForm_Initialize()
ComboBox_civilite.AddItem "Señora"
ComboBox_civilite.AddItem "Señorita"
ComboBox_civilite.AddItem "Señor"
FormRegister.Height = 500
FormRegister.Width = 500
End Sub
Configuración: Windows / Chrome 96.0.4664.93
He creado este formulario en VBA y de repente está bloqueado, imposible de escribir en los campos. Es como si hubiera otro cuadro de diálogo abierto que impide la entrada en el formulario. Alguien puede ayudarme, gracias.
Aquí están mis capturas:
----------Código debajo -------------
Private Sub Button4Fermer_Click()
Unload FormRegister
End Sub
Private Sub ButtonAjouter_Click()
'Doble clic en el botón agregar
If ComboBox2.Value = " " Then
MsgBox "Por favor complete el campo nombre y apellido"
Else
Dim ligne As Integer
If MsgBox("¿Confirma el agregado de los datos?", vbYesNo, "confirmación") = vbYes Then
Worksheets("Feuil2").Select
'n° de la fila vacía de la columna A
ligne = Sheets("Feuil2").Range("A456541").End(xlUp).Row + 1
Cells(ligne, 1) = ComboBox_civilite.Value
Cells(ligne, 2) = ComboBox_nomprenom.Value
Cells(ligne, 3) = Txt_adresse.Value
Cells(ligne, 4) = Txt_codepostal.Value
Cells(ligne, 5) = Txt_ville.Value
Cells(ligne, 6) = Txt_telephone.Value
Cells(ligne, 7) = Txt_email.Value
Unload FormRegister
FormRegister.Show
Else
End If
End If
End Sub
Private Sub UserForm_Initialize()
ComboBox_civilite.AddItem "Señora"
ComboBox_civilite.AddItem "Señorita"
ComboBox_civilite.AddItem "Señor"
FormRegister.Height = 500
FormRegister.Width = 500
End Sub
Configuración: Windows / Chrome 96.0.4664.93