Bonjour,

J'ai une commande qui sert à remplacer des données dans une colonne.
Mais je souhaite qu'elle s'arrète à la 1ère cellule vide, puis passer à la commande suivante,
Avez-vous une suggestion ? s'il vous plait

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Transform()
    Dim Value As String
    Dim LastLine
 
    LastLine = Range("J" & Rows.Count).End(xlUp).Row
 
    For Each cellule In Range("J2:J" & LastLine)
    Value = cellule.Value
    Select Case Value
    Case "Yes:0,No:1"
        cellule.Value = "No"
    Case "Yes:1,No:0"
        cellule.Value = "Yes"
    Case Else
        cellule.Value = ""
    End Select
    Next
 
End Sub