excel supression de lignes avec condition

Marsh Posté le 28-08-2008 à 12:40:22

Bonjour,
Je vous explique mon probleme .
Je n'y connais pas trop en programmation ni en macros. J'ai un tableau excel de 2000 lignes sur 20 colonnes. Je dois suprimmer les lignes dans lesquels les cellules de la colonne A est le texte "N" .

Merci de m'aider

Message édité par kirua78210 le 28-08-2008 à 12:55:59

Reply

Marsh Posté le 28-08-2008 à 12:40:22

Reply

Marsh Posté le 28-08-2008 à 15:41:26

Je t'ai codé une macro pour faire ce que tu comptes faire :

Citation :

Sub macro1()
Dim l As Long
For l = Cells(2000, 1).End(xlUp).Row To 1 Step -1
If Cells(l, 1).Text = "N" Then Cells(l, 1).EntireRow.Delete
Next l
End Sub

Message édité par Cyber-solaris le 28-08-2008 à 15:42:42

---------------
Mon Feed-back

Reply

Marsh Posté le 28-08-2008 à 15:56:18

Merci beaucoup !
Je vais tester tout de suite !

Reply

Marsh Posté le 28-08-2008 à 17:06:08

Il marche nikel !!
Merci beaucoup !!

Reply

Marsh Posté le 28-08-2008 à 17:46:40

Un autre probleme !
Un tableau un peu plus grand et il faut supprimer toutes les lignes dans lesquels la colonne n'a pas le texte " ajouter ".
Merci !

Reply

Marsh Posté le 28-08-2008 à 18:06:55

Toujours sur la colonne A ? Alors ça donne :

Citation :

Sub macro2()
Dim l As Long
For l = Cells(65536, 1).End(xlUp).Row To 1 Step -1
If Cells(l, 1).Text <> "ajouter" Then Cells(l, 1).EntireRow.Delete
Next l
End Sub

---------------
Mon Feed-back

Reply

Marsh Posté le 28-08-2008 à 18:11:18

non sur la colonne D ... Merci

Reply

Marsh Posté le 28-08-2008 à 18:48:36

Ben t'as juste à remplacer 1 par 4 (A=1 / 4=D)

Citation :

Sub macro2()
Dim l As Long
For l = Cells(65536, 4).End(xlUp).Row To 1 Step -1
If Cells(l, 4).Text <> "ajouter" Then Cells(l, 4).EntireRow.Delete
Next l
End Sub

---------------
Mon Feed-back

Reply

Marsh Posté le 29-08-2008 à 00:57:37

Thanks a lot cyber-solaris

Reply

excel supression de lignes avec condition

Sujets relatifs:

Leave a Replay