Suppression de lignes sous conditions

Suppression de lignes sous conditions - VB/VBA/VBS - Programmation

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?

Reply

Marsh Posté le 04-05-2008 à 16:52:13   

Reply

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.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed