Bonjour à tous,
J'ai crée cette macro pour le fichier joint:
sub Martin
'Supprim ligne avec MARTIN
'
nb_ligne = Sheets("TEST").Range("A5").End(xlDown).Row
For i = 5 To nb_ligne
If Sheets("TEST").Range("G" & i).Value Like "*Martin*" Then
Sheets("TEST").Rows(i).Delete
Else
End If
Next i
'
End Sub
Par contre j'ai fait ceci pour effacer toutes les lignes contenant Martin mais le problème est que
lorsque la ligne suivante contient également Martin celle-ci ne s'efface pas?
Je pense que cela vient du fait que lorsqu'une 1ère ligne (exemple TEST ligne 7)
contenant Martin est supprimée, la ligne suivante (exemple TEST ligne 8) devient ligne 7
et donc comme ma macro demande de passer à la suivante celle-ci ne s'efface pas.
Avez vous une solution à mon problème qui est d'effacer toutes les lignes contenant le mot Martin ?
Merci d'avance.
J'ai crée cette macro pour le fichier joint:
sub Martin
'Supprim ligne avec MARTIN
'
nb_ligne = Sheets("TEST").Range("A5").End(xlDown).Row
For i = 5 To nb_ligne
If Sheets("TEST").Range("G" & i).Value Like "*Martin*" Then
Sheets("TEST").Rows(i).Delete
Else
End If
Next i
'
End Sub
Par contre j'ai fait ceci pour effacer toutes les lignes contenant Martin mais le problème est que
lorsque la ligne suivante contient également Martin celle-ci ne s'efface pas?
Je pense que cela vient du fait que lorsqu'une 1ère ligne (exemple TEST ligne 7)
contenant Martin est supprimée, la ligne suivante (exemple TEST ligne 8) devient ligne 7
et donc comme ma macro demande de passer à la suivante celle-ci ne s'efface pas.
Avez vous une solution à mon problème qui est d'effacer toutes les lignes contenant le mot Martin ?
Merci d'avance.