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

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

Answer 1

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