Bonjour,
Je n'arrive pas à faire de boucle, je cherche à trouver tous les mots "total" d'une page et a supprimer La Ligne dans laquel le mot apparaît.
Voici un code, il fonctionne mais il bug
Merci de votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 For i = 1 To 20 Cells.Select Selection.Find(What:="total", After:=ActiveCell, LookIn:=xlFormulas, _ lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveCell.EntireRow.Delete
Partager