Macro de suppression

mutzik

XLDnaute Barbatruc

• 21 Mai 2007

• #2

Re : Macro de suppression

Bonjour Vonsalza

un p'tit bout de fichier stp nous permettrait d'y voir mieux et de résoudre plus vite et plus facilement (fichier avec données bidon d'une quinzaine de lignes)

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 21 Mai 2007

• #3

Re : Macro de suppression

Bonjour,

Voici 2 exemples à tester mais je rejoins la remarque de Bertrand :

1 - Suppression de lignes

Code:

Sub Macro1()
Derlig = Range("O65536").End(xlUp).Row
For i = Derlig To 2 Step -1
If Cells(i, 15) <> "adi" Then
Cells(i, 15).EntireRow.Delete Shift:=xlUp
End If
Next i
End Sub

2 - Surlignage

Code:

Sub Macro2()
Derlig = Range("A65536").End(xlUp).Row
For i = Derlig To 2 Step -1
If Cells(i, 1) = "A" Then
Cells(i, 1).EntireRow.Interior.ColorIndex = 6
End If
Next i
End Sub

@+

 

Vote positif 0 Vote négatif

V

vonsalza

Guest

• 22 Mai 2007

• #4

Re : Macro de suppression

comment je fais pour envoyer un fichier ici ?

 

Vote positif 0 Vote négatif

V

vonsalza

Guest

• 22 Mai 2007

• #5

Re : Macro de suppression

merci j'ai trouvé tout seul comme un grand

 

Vote positif 0 Vote négatif

V

vonsalza

Guest

• 22 Mai 2007

• #6

Re : Macro de suppression

mon fichier est trop gros

 

Vote positif 0 Vote négatif