none
Copie la valeur d'une cellule jusqu'à la valeur différente RRS feed

  • Question

  • Bonjour,
    Je reviens vers vous car je suis bloqué sur une macro
    Je souhaiterais copier la valeur d'une cellule dans les cellules suivantes de la même colonne jusqu'à ce que sa valeur change, et refaire le même travail pour le reste des valeur
    Exemple :
    TRAVAIL      RESULTAT SOUHAITE
    1                         1
                               1
                               1
    1                         1
    2                         2
                               2
                               2
                               2
                               2
    2                         2
    3                         3
                               3
    3                         3
    Entre 1 et 1 il ya des cellules vides, je veux les remplir par 1
    Ensuite les cellules vides entre le nombre 2 , les remplir par 2 et ainsi de suite
    Merci de votre aide
    jeudi 27 août 2015 08:34

Toutes les réponses

  • Bonjour,

    Essaie (en supposasnt que les valeurs soient en colonne A) :

    Sub test()
    Dim C As Range, Res As Variant
    For Each C In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
      If C <> "" Then
        Res = C.Value
      Else
        C.Value = Res
      End If
    Next C
    End Sub
    

    Cordialement.

    Daniel

    jeudi 27 août 2015 08:53