suppression automatique ligne suivant condition

[Ju]

A B C

'1 1 *T
'2 1 SM
'3 13 *T
'4 13 SM
'5 13 AC
'6 18 *T
'7 18 SM
'8 18 S1
'9 19 *T
'10 19 AC
'11 19 LE

Je voudrais supprimer toutes les lignes ayant le meme code (colonneA)et que l'une de ces lignes à 'AC' ou 'LE' dans sa colonne C
Ex: la ligne 5 à 'AC' dans la colonne C le classeur supprime donc toutes les lignes ayant le meme code (colonne A) que la ligne 5 à savoir le code '13'

Resultat : lignes 3,4,5 supprimées

'(à savoir les lignes 3,4,5,9,10,11)'Est-ce possible???
'Merci d'avance
'@+
'Ju

Sylv900 m’a dis d’essayer c amé je comprends pas trop et ca marche pas mais merci quand meme Sylv900

nbligne = ActiveSheet.UsedRange.Rows.Count
valeur=range ('a1')
for i=2 to nbligne
if range ('a' & i)=valeur then

rows ((i & ':' & i).delete
else valeur=range ('a' & i)

endif
next

 

[dg62]

bonsoir Ju


Un deuxieme post est inutile par contre un Bonjour, un Salut, un Bonsoir est utile pour obtenir une réponse.

de plus Sylvain (Sylv900) attend certainement une réponse sur ton post précédent pour poursuivre les recherches.

 

[Ju]

salut
DSL pour le bonsoir c parce ke g ecrit ca sous word et g fé copier coller dans le forum
encore DSL et bravo pour votre travail (superbe site)
merci et bonne soiree