Discussion :

[avyrex]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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