Ver originales (Francés)

Encuentra valor mínimo

JL1949 Mensajes publicados 3 Estado Miembro -  
ThauTheme Mensajes publicados 1564 Estado Miembro -
Bonjour,

me gustaría saber cómo hacer en VBA, en una Macro, cómo encontrar el valor mínimo en una columna Range con una variable y, cuando se encuentre ese valor, reemplazar el contenido de otra columna en la misma fila en la primera línea y luego eliminar las demás filas.

Ejemplo
Línea A B
1 12 2017
2 6 2018
3 72 2019

Resultado
Línea A B
1 2018 2017

Gracias!

2 respuestas

  1.
    michel_m Mensajes publicados 18903 Fecha de registro   Estado Colaborador Última intervención   3 320
     
    Hola,

    ¿y si la valeur mini aparece varias veces en la columna A, qué hacemos?

    --
    Michel
    0
  2. ThauTheme Mensajes publicados 1564 Estado Miembro 160
     
    Hola JL, hola el foro,

    quizás así: 

    Sub Macro1() Dim O As Worksheet 'declara la variable O (Hoja) Dim TV As Variant 'declara la variable TV (Tabla de Valores) Dim VM As Integer 'declara la variable VM (Valor Mínimo) Dim I As Integer 'declara la variable I (Incremento) Dim TR(1) As Variant 'declara la variable TR (Tabla de Resultados) Set O = Worksheets("Feuil1") 'define la hoja O TV = O.Range("A1").CurrentRegion 'define la tabla de valores TV VM = Application.WorksheetFunction.Min(Application.Index(TV, , 1)) 'define el valor mínimo VM For I = 1 To UBound(TV, 1) 'bucle sobre todas las filas I de la tabla de valores TV If TV(I, 1) = VM Then 'si el dato de la fila I columna 1 de TV es igual al valor mínimo VM TR(0) = TV(I - 1, 2) 'obtiene en TR(0) el dato de la fila I - 1 columna 2 de TV TR(1) = TV(I, 2) 'obtiene en TR(1) el dato de la fila I columna 2 de TV End If 'fin si Next I 'siguiente fila del bucle O.Range("A1").CurrentRegion.Clear 'borra los datos O.Range("A1").Resize(1, 2).Value = TR 'devuelve en A1 redimensionado la tabla TR End Sub


    --
    À plus,
    ThauTheme
    0