Copier valeur dans une colonne

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

J'ai un problème avec un code.
Dans ma feuille de calcul Excel, dans la colonne D, j'ai certaines cellules ayant une valeur ou un texte.

J'ai besoin d'un code qui permet de copier la valeur ou le texte à toutes les cellules vides sous la cellule avec une valeur ou un texte, jusqu'à la prochaine cellule avec une valeur. Et ainsi de suite

Avec le code que j'ai, il me donne cette valeur :Exemple: = R [-1] C

Comment puis-je faire s'il vous plaît?

Merci de votre aide.
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim rng1 As Range On Error Resume Next Set rng1 = Range([d5], Cells(Rows.Count, "D").End(xlUp)) Set rng1 = rng1.SpecialCells(xlBlanks) If rng1 Is Nothing Then Exit Sub On Error GoTo 0 With rng1 .FormulaR1C1 = "=R[-1]C" .Font.ColorIndex = 3 .Value = .Value End With

Bonjour,
une proposition

Code:

1
2
3
4
5
6
7
8
Dim LastLig As Long, i As Long
LastLig = Cells(Rows.Count, 4).End(xlUp).Row
For i = 3 To LastLig - 1
    If Range("D" & i + 1).Value = "" Then
        Range("D" & i + 1).Value = Range("D" & i).Value
        Range("D" & i + 1).Font.ColorIndex = 3
    End If
Next i

Salut avyrex et le forum
Une proposition

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Dim X As Range
For Each X In Range([D2], [D65536].End(xlUp)).SpecialCells(xlCellTypeBlanks)
    With X
        .NumberFormatLocal = "mmm jj, aaaa hh\:mm;@"
        .FormulaR1C1 = "=R[-1]C"
        .Font.ColorIndex = 3
        .Value = .Value
    End With
Next X
End Sub

A+

10/01/2010, 16h09
avyrex

Super et merci à tous.

Tous fonctionne.