Macro de suppression

[vonsalza]

Bonjour,

après avoir consulter votre site pendant quelques temps (ce qui m'a été d'un grand secours), aujourd'hui je prend le parti de m'inscrire et de participer.
J'aimerai avoir une macro qui me permettrai de supprimer des lignes entieres si le contenu des cellules en colonne O est différente de "adi" (par exemple).

Un autre souci: une macro qui me permettrai de surligner les lignes où le contenu d'une colonne indique A.

Merci beaucoup.

 

[mutzik]

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)

 

[SergiO]

Re : Macro de suppression

Bonjour,

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

1 - Suppression de lignes

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

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

@+

 

[vonsalza]

Re : Macro de suppression

comment je fais pour envoyer un fichier ici ?

 

[vonsalza]

Re : Macro de suppression

merci j'ai trouvé tout seul comme un grand

 

[vonsalza]

Re : Macro de suppression

mon fichier est trop gros