Bonjour,
Comme le titre l'indique j'essaye de faire une macro sur Excel 2003 pour supprimer une ligne si une formule renvoie un faux dans la colonne D sur cette ligne.
J'ai essayé qui ne fonctionne pas :
Sub Macro3()
'
Dim i, y As Integer
i = 1
y = 65536
Do While Range("D" & i).Value <> ""
If Range("D" & i).Value = "FAUX" Then
Rows(i).Delete
y = y - i
Do While i <> y
Rows(i).Delete
i = i + 1
Loop
i = i + 1
End If
Loop
End Sub
Quelqu'un aurait-il une solution SVP ?
Merci d'avance
Comme le titre l'indique j'essaye de faire une macro sur Excel 2003 pour supprimer une ligne si une formule renvoie un faux dans la colonne D sur cette ligne.
J'ai essayé qui ne fonctionne pas :
Sub Macro3()
'
Dim i, y As Integer
i = 1
y = 65536
Do While Range("D" & i).Value <> ""
If Range("D" & i).Value = "FAUX" Then
Rows(i).Delete
y = y - i
Do While i <> y
Rows(i).Delete
i = i + 1
Loop
i = i + 1
End If
Loop
End Sub
Quelqu'un aurait-il une solution SVP ?
Merci d'avance