Suppression de lignes sous conditions - VB/VBA/VBS - Programmation
Marsh Posté le 07-05-2008 à 10:31:13
Salut... Tu peux faire ça avec un indice qui pointe sur les lignes en partant du début je pense (si j'ai bien compris le fond de ta question). Une fois que tu as atteins la ligne qui t'inréresses, une boucle while te permet de faire le ménage jusqu'à ce que tu croises les caractères gras.
i = 1
While sheets(1).cells(i,1).value <> "ciseau"
i = i+1
Wend
While not sheets(1).cells(i,1).Font.Bold
Sheets(1).rows(i).delete
Wend
nb : j'utilise le sous ensemble cells par souci de simplicité. Le premier indice correspond à la ligne et le second à la colonne.
Marsh Posté le 04-05-2008 à 16:52:13
Bonjour,
Voilà, j'ai un problème que je n'arrive pas à régler. Je souhaite créer sur Excel une macro me permettant de supprimer des lignes sous conditions. Je voudrais en fait supprimer l'intégralité des lignes situées entre la cellule de la colonne A contenant "feuille" et la prochaine cellule avec un texte en gras. Le problème c'est que j'importe des fichiers différents, et ces cellules sont donc placées à des lignes différentes pour chaque fichiers.
Je voudrais donc faire une macro de ce genre
For i = 1 To 300
Si Range("A1" ) = "ciseau" Then
Entire.Row.Delete Shift:=xlUp
Jusqu'à ce que j'arrive à Range("A1).Font.Bold = True
Quelqu'un pourrait il m'aider?