Ver originales (Francés)

Formulario de usuario automático VBA

tuxy88 -  
Hola a todas y a todos,

Sé que ya se trató mi pregunta, pero me resulta imposible (después de muchos intentos) aplicarla a mi archivo. Probablemente se debe a mi inexperiencia con VBA!!! Pero vayamos al tema de mi publicación.

Busco insertar en un userform un número automático cuando se abre dicho userform. Este número sería la siguiente secuencia lógica del anterior utilizado. Por ahora copio los datos de mi userform a mi ficha de Excel.

Aquí está mi código (el número incrementado sería visible en TextBox1 y procedente de la hoja Preparación)

Private Sub CommandButton1_Click()
Worksheets("Préparation").Rows("2:2").Insert
Worksheets("Préparation").Cells(2, 1) = TextBox1
Worksheets("Préparation").Cells(2, 2) = nom
Worksheets("Préparation").Cells(2, 3) = dat
Worksheets("Préparation").Cells(2, 4) = heure
Worksheets("Préparation").Cells(2, 5) = venue
Worksheets("Préparation").Cells(2, 6) = dcolorant1
Worksheets("Préparation").Cells(2, 7) = ncolorant1
Worksheets("Préparation").Cells(2, 8) = dosec1
Worksheets("Préparation").Cells(2, 9) = dcolorant2
Worksheets("Préparation").Cells(2, 10) = ncolorant2
Worksheets("Préparation").Cells(2, 11) = dosec2
Worksheets("Préparation").Cells(2, 12) = dcolorant3
Worksheets("Préparation").Cells(2, 13) = ncolorant3
Worksheets("Préparation").Cells(2, 14) = dosec3
Worksheets("Préparation").Cells(2, 15) = darome1
Worksheets("Préparation").Cells(2, 16) = narome1
Worksheets("Préparation").Cells(2, 17) = dosea1
Worksheets("Préparation").Cells(2, 18) = darome2
Worksheets("Préparation").Cells(2, 19) = narome2
Worksheets("Préparation").Cells(2, 20) = dosea2
Worksheets("Préparation").Cells(2, 21) = darome3
Worksheets("Préparation").Cells(2, 22) = narome3
Worksheets("Préparation").Cells(2, 23) = dosea3
UserForm2.PrintForm
Unload Me
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Merci d'avance pour toutes les réponses

Cordialement,
Tuxy88

6 respuestas

  1. foo
    hola

    al menos dame un modelo para ver cómo colocar tu numeración

    y ver las modificaciones a hacer en tu UserForm

    nos vemos
    Maurice
    0
    1. tuxy88 Autor
      Gracias por interesarte en mi publicación.
      No sé cómo adjuntar mi archivo: /

      Nos vemos.
      0
  2. foo
    Hola

    Sube tu archivo a http://www.cjoint.com y pega aquí el enlace que se te proporcione.

    Hasta luego
    Maurice
    0
    2. eriiic Colaborador
      Buenas noches,

      intenta con esto: 
      Private Sub UserForm_Initialize()
       TextBox1 = Worksheets("Préparation").Cells(2, 1) + 1
      End Sub
      eric

      --
      1) Además del gracias (¡y sí, se puede !!!), piensa en poner en resuelto (en la parte superior junto a tu título) cuando corresponda. 2) Nunca responderás a un mp no solicitado...
      Buena, ya está.
      0
      2. foo
        Hola

        Bravo eriiic
        aquí va mi modific

        Private Sub UserForm_Initialize()
        TextBox1.Value = Feuil1.Cells(2, 1) + 1
        TextBox1.Enabled = False
        End Sub

        Private Sub CommandButton1_Click()
        ' Feuil1 = CodeName (Préparation)
        With Feuil1
        .Rows("2:2").Insert
        .Cells(2, 1) = TextBox1
        .Cells(2, 2) = nom
        .Cells(2, 3) = dat
        .Cells(2, 4) = heure
        .Cells(2, 5) = venue
        .Cells(2, 6) = dcolorant1
        .Cells(2, 7) = ncolorant1
        .Cells(2, 8) = dosec1
        .Cells(2, 9) = dcolorant2
        .Cells(2, 10) = ncolorant2
        .Cells(2, 11) = dosec2
        .Cells(2, 12) = dcolorant3
        .Cells(2, 13) = ncolorant3
        .Cells(2, 14) = dosec3
        .Cells(2, 15) = darome1
        .Cells(2, 16) = narome1
        .Cells(2, 17) = dosea1
        .Cells(2, 18) = darome2
        .Cells(2, 19) = narome2
        .Cells(2, 20) = dosea2
        .Cells(2, 21) = darome3
        .Cells(2, 22) = narome3
        .Cells(2, 23) = dosea3
        End With
        UserForm2.PrintForm
        Unload Me
        End Sub

        A+
        Maurice
        0
        1. tuxy88 Autor
          Hola a todos,

          Gracias por vuestras respuestas, es genial, consigo hacer lo que yo ;)

          Nuevas preguntas, ahora quisiera cuando ingreso un número en TextBox1 de un userform, que ese número se busque en la columna A de la hoja 1 y así, colocar los datos de mi userform (de TextBox2, TextBox3,...) en la columna H,I,... de esa misma hoja 1 por ejemplo
          Para que coincidan en la misma hoja de Excel la preparación y el uso de una mezcla llamada 1 por ejemplo.

          No sé si eso es posible :/

          Gracias de antemano

          Un saludo,

          Pierrick
          0