Petite boucle incohérente

Salut,

J'essaie de faire une boucle pour conserver la première cellule de chaque bloc.

Je veux effacer le contenu des cellules qui ne sont pas la première de chaque bloc de cellule.

Fichier à l'appuie pour aider.

Sub test()

derniere_ligne = Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To derniere_ligne Step 1

val_a = Cells(i, 1).Value

val_b = Cells(i, 1).End(xlDown).Row - 1

If val_a <> "" Then

If val_b <> "" Then Cells(i, 1).ClearContents

End If

Next i

End Sub

Bonjour,

c'est difficile de te répondre sans avoir les données.

oups je croyais l'avoir fait.

Il est dans mon message maintenant !

oups je croyais l'avoir fait.

Il est dans mon message maintenant !

oui

à tester,

Sub test()
derniere_ligne = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To derniere_ligne
 If Cells(i, 1).Value <> "" And Cells(i - 1, 1).Value = "" Then
    Cells(i, 2).Value = Cells(i, 1).Value
 End If
Next
End Sub

Merci ça fonctionne!