Ver originales (Francés)

Transcribir el resultado de una InputBox en una celda

Resuelto
volfoss Mensajes publicados 43 Estado Miembro -  
volfoss Mensajes publicados 43 Estado Miembro -
Hola,
He creado una macro pero me gustaría hacer la siguiente acción. La respuesta ingresada (que será solo un año del tipo AAAA) en el InputBox debe quedarse registrada en la celda B2:F2.
Además, ¿cómo hacer para que si se pulsa cancelar o en la cruz el InputBox se cierre sin recibir el mensaje de error de incompatibilidad de tipo y error de ejecución 13?
Gracias por tu ayuda.

Sub CréationBagues()
Dim Rep As Integer
If Rep = InputBox("Penser à renseigner la saison d'élevage en B2", "Saison élevage") Then 'La variable recibe el valor ingresado en el InputBox
If Rep = vbOK Then
' aquí el tratamiento si la respuesta es positiva
ActiveCell.FormulaR1C1 = "" 'mostrar la respuesta InputBox
Selection.Copy
Range("B2:F2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Else
' aquí el tratamiento si la respuesta es negativa
End If
End Sub

1 respuesta

  1.
    Gyrus Mensajes publicados 3360 Estado Miembro 526
     
    Hola,

    Puedes empezar con este código:
    Sub CréationBagues()
Dim Rep As String
 Rep = InputBox("Penser à renseigner la saison d'élevage en B2", "Saison élevage")
 If IsNumeric(Rep) Then Range("B2") = Rep
End Sub

    À+
    0
    1. volfoss Mensajes publicados 43 Estado Miembro 3
       
      Genial
      admiro vuestro talento para la programación, soy autodidacta en este campo pero no siempre logro programar lo que quiero hacer, pero gracias a vuestra ayuda avanzo.
      0