J
Ju
Guest
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
'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