Ver originales (Francés)

Error de ejecución '-2147417848 (80010108)'

wolf_m70 -  
wolf_m70 Mensajes publicados 3 Estado Miembro -
Bonjour à tous.

Vengo a pedirles ayuda para un proyecto de Excel.

Primero que nada, sepan que soy principiante en este campo.

En el marco del trabajo, debo crear un archivo que permita ingresar las fichas de clientes, los pedidos de clientes y los pedidos de proveedores.

He realizado tres formularios para ingresar estos datos.

Todo funcionaba muy bien hasta que apareció un error:

Error de ejecución '-2147417848 (80010108)'
El método '_Default' del objeto 'Range' ha fallado

Error de ejecución '-2147417848 (80010108)'
Error de Automatización
El objeto invocado se ha desconectado de sus clientes.

Aquí hay uno de mis códigos para ingresar los datos. Todos los demás códigos se basaron en el mismo modelo. Por razones de confidencialidad, he modificado el nombre de los text_box.

Sub
Application.ScreenUpdating = False

Feuil3.Activate
Range("A1").Select

Selection.End(xlDown).Select

Selection.Offset(1, 0).Select

ActiveCell = TextBox1.Value

ActiveCell.Offset(0, 1).Value = TextBox2
ActiveCell.Offset(0, 2).Value = TextBox3
ActiveCell.Offset(0, 3).Value = TextBox4
ActiveCell.Offset(0, 4).Value = TextBox5
ActiveCell.Offset(0, 5).Value = TextBox6
ActiveCell.Offset(0, 6).Value = TextBox7
ActiveCell.Offset(0, 7).Value = ComboBox1
ActiveCell.Offset(0, 8).Value = TextBox8
ActiveCell.Offset(0, 9).Value = TextBox9

Unload Me

MsgBox "Su pedido ha sido registrado correctamente", vbOKOnly + vbInformation, "Confirmación"

End Sub

El error se produce en la línea "ActiveCell = TextBox1.Value"

Ya he intentado reemplazar los TextBox por otros nuevos, pero eso no ha funcionado.

¿Pueden ayudarme, por favor?

Gracias de antemano,

¡Que tengan un buen día a todos! :)

2 respuestas

  1.
    ccm81 Mensajes publicados 11033 Estado Miembro 2 434
     
    Hola

    Intenta así 

    Hoja3.Activar Con Hoja3 .Rango("A1").Seleccionar Selección.Fin(xlAbajo).Seleccionar Selección.Desplazamiento(1, 0).Seleccionar ValorCelda.Activa = TextBox1.Valor ... Fin Con

    Saludos
    0
    1. wolf_m70
       
      Hola ccm81,

      Gracias por tu respuesta, pero lamentablemente sigue sin funcionar.
      El archivo sigue mostrando el mismo error en el mismo lugar.

      Atentamente
      0
    2. wolf_m70 Mensajes publicados 3 Estado Miembro
       
      Hola a todos,

      Para todos aquellos que están en la misma situación que yo y que no encuentran respuesta en Internet:

      He descubierto que cuando el archivo me envía el error, en lugar de hacer clic en "Depuración", si hago clic en "Fin", la macro funciona, así que mis datos se ingresan.

      Cuando me di cuenta de esto, inmediatamente volví a ejecutar mi macro y esta vez funcionó sin siquiera mostrarme el mensaje de error, y esto para todos mis formularios.

      Funciona hasta que cierro el archivo. Al volver a abrir el archivo, la primera vez que ejecuto la macro, vuelve a suceder. Pero cuando repito estos pasos, todo funciona normalmente.

      No dudaré en avisarles si finalmente soluciono el error de forma definitiva, pero por ahora tendré que conformarme con esta solución alternativa.

      ¡Gracias de nuevo a ccm81 por haber intentado ayudarme a resolver mi problema! :)

      ¡Buena suerte a todos!
      0
      1. Frenchie83 Mensajes publicados 2254 Estado Miembro 339 > wolf_m70 Mensajes publicados 3 Estado Miembro
         
        Hola,

        Pregunta: ¿Dónde has puesto esta macro? ¿en qué módulo?
        Porque la he colocado en el módulo del userform y he probado, funciona bien.

        Saludos.
        0
      2. wolf_m70 Mensajes publicados 3 Estado Miembro > Frenchie83 Mensajes publicados 2254 Estado Miembro
         
        Hola,

        Mi macro está ligada a mi botón "validar" en el userform.

        Al principio funcionaba perfectamente. Luego continué avanzando en el proyecto y ya no funcionaba nada.

        Después de varios intentos, el error ya no aparece, sin que yo haya hecho nada.

        Intenté crear una macro que me permitiera extraer mis datos en otro archivo para archivarlos. Creo que tal vez ese vínculo entre dos archivos causó el problema, pero el error no se presentó de inmediato y ni siquiera estaba en la macro "de extracción", así que no estoy muy seguro...

        Gracias por tu ayuda Frenchie83

        Atentamente
        0
  2. ccm81 Mensajes publicados 11033 Estado Miembro 2 434
     
    ¿Y especificando el nombre del formulario? 
    ActiveCell.Value = UserForm1.TextBox1.Value

    https://mon-partage.fr/f/B8H9ogeb/

    Saludos
    0
    1. wolf_m70 Mensajes publicados 3 Estado Miembro
       
      Gracias, pero todavía no funciona.. :(

      Atentamente
      0