Ver originales (Francés)

Formulario de usuario automático VBA

tuxy88 Mensajes publicados 11 Estado Miembro -  
tuxy88 Mensajes publicados 11 Estado Miembro -
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 Mensajes publicados 11 Estado Miembro
       
      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
  4. eriiic Mensajes publicados 24581 Fecha de registro   Estado Colaborador Última intervención   7 281
     
    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
  6. 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
  7. tuxy88 Mensajes publicados 11 Estado Miembro
     
    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