Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

suppression automatique ligne suivant condition

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
 

dg62

XLDnaute Barbatruc
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.
 
J

Ju

Guest
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…