1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Columns("C:C").Select
' voici le début de mon code
Selection.Replace What:="""19""", Replacement:="aa", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="""17""", Replacement:="bb", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="""18""", Replacement:="cc", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="""20""", Replacement:="dd", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Dim i As Integer
' je fait partir cette fonction à partir de la ligne 2 pour garder ma ligne de titre
i = 2 ' ici la premiere ligne à checker
While Not Cells(i, 1) = ""
If Cells(i, 1) = "aa" Or Cells(i, 1) = "bb" Or Cells(i, 1) = "cc" Or Cells(i, 1) = "dd" Then
Rows(i & ":" & i).Delete
Else
i = i + 1
End If
Wend |
Partager