Discussion :

[nicods]

Bonjour, n'étant pas très fort en VBA et véritable casse tête pour moi je me tourne vers vous.Voici mon problème. J'ai une colonne de données qui se présente sous cette forme:

2.040
-
-
2.028
2.035
-
2.089
-
-
-
-
2.020
2.078
etc

et la macro ou la fonction devrait retourner ceci:
2.040
2.028
2.028
2.028
2.035
2.089
2.089
2.020
2.020
2.020
2.020
2.020
2.078

Ma plage de données est en AN15 -> jusque l'infini considérant que de nouvelles données sont constament importées.

Merci d'avance

Nicolas

[gFZT82]

Bonjour,

Une solution

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test()
Dim DerLig As Long
    With Worksheets("Feuil1")'Nom de feuille à adapter
        DerLig = .Range("AN" & .Rows.Count).End(xlUp).Row
        For i = DerLig To 16 Step -1
            If .Range("AN" & i).Offset(-1, 0) = "-" Then .Range("AN" & i).Offset(-1, 0) = .Range("AN" & i)
        Next i
    End With
End Sub

Cordialement.

[nicods]

Merci !!!