Bonjour,
Je n’ai que très peu de notions en VBA mais je cherche malgré tout à l’utiliser pour l’automatisation d’une tâche sous Excel 2013.
J’ai un tableau que je voudrais « filtrer » en supprimant de ses lignes en fonction d’une chaine de caractères contenue dans une colonne.
Je voudrais obtenir, après traitement :
J’ai codé quelques lignes mais ce code met beaucoup de temps dès lors qu’il y a de nombreuses données insérées :
Sub suppr()
Range("Tableau68[Abonnement]").Select
While ActiveCell.Value <> ""
If Not (ActiveCell.Value Like "*TR*") Then
Union(ActiveCell.Offset(0, -2), ActiveCell.Offset(0, -1)).Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
PS : J’ai filtre sur « *TR* » car le nom est susceptible de se rallonger.
Pouvez-vous me dire, si dans mon cas il y a mieux, s’il vous plait ?