F
Fredrennes
Guest
Hello,
Voici une petite macro me permettant de supprimer certaines lignes de mon fichier à partir du moment où je retrouve la mention "False" dans une cellule :
Sub suppression()
Sheets("datas").Select
Range("J1").Offset(1, 0).Select
Do Until ActiveCell = Range("J10000")
If ActiveCell = "FALSE" Then
selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Nous en avions ddéjà discuté ici mais j'aimerais que vous me précisiez le sens de ces 2 lignes :
Else
ActiveCell.Offset(1, 0).Select
Je crois qu'elles avaient été rajoutées pour bien prendre en compte toutes les lignes....en effet, à partir du moment ou une ligne était supprimée, la cellule active remontait d'une ligne et ainsi "échappait" à la suppression...
Merci à ceux qui tenteront de me décortiquer les différentes fonctions de ces 2 lignes.
Amicalement
Fred
Voici une petite macro me permettant de supprimer certaines lignes de mon fichier à partir du moment où je retrouve la mention "False" dans une cellule :
Sub suppression()
Sheets("datas").Select
Range("J1").Offset(1, 0).Select
Do Until ActiveCell = Range("J10000")
If ActiveCell = "FALSE" Then
selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Nous en avions ddéjà discuté ici mais j'aimerais que vous me précisiez le sens de ces 2 lignes :
Else
ActiveCell.Offset(1, 0).Select
Je crois qu'elles avaient été rajoutées pour bien prendre en compte toutes les lignes....en effet, à partir du moment ou une ligne était supprimée, la cellule active remontait d'une ligne et ainsi "échappait" à la suppression...
Merci à ceux qui tenteront de me décortiquer les différentes fonctions de ces 2 lignes.
Amicalement
Fred