Supprimer ligne

H

Hellboy

XLDnaute Accro

• 20 Avril 2005

• #2

Essaie ceci

For x = 1 To Cells(Cells(65536, colonnedonné).End(xlUp).Row, colonnedonné)
If Cells(x, colonnedonné).Font.ColorIndex = -4105 Then
ActiveSheet.Rows(x).Delete
End If
Next x

Phil

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 20 Avril 2005

• #3

Bonsoir

Tu n'en dis pas lourd.

Cette macro supprime les lignes dont les cellules de la colonne B sont en noir.

Couvre la plage B1:B200

Ne fonctionne pas avec les MEFC

Code:

Public Sub voir()
Dim i As Integer

For i = 200 To 1 Step -1
    If Range('b' & i).Interior.ColorIndex = 1 Then
        Rows(i).Delete
    End If
Next i

End Sub

Salut

 

Vote positif 0 Vote négatif

C

caro

Guest

• 20 Avril 2005

• #4

ca veut dire quoi MEFC?

dans mon cas :

Public Sub voir()
Dim i As Integer

For i = 200 To 1 Step -1
If Range('b' & i).font.ColorIndex = 1 Then
Rows(i).Delete
End If
Next i

End Sub

Normalement cela doit marcher


Merci

 

Vote positif 0 Vote négatif

R

Rénato

XLDnaute Occasionnel

• 20 Avril 2005

• #5

Bonsoir à tous,

En évenementielle, on peut également faire :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range
For Each c In Range('A:A')
If c.Interior.ColorIndex = 1 Then c.EntireRow.Delete
Next c
End Sub

Dans mon exemple la colonne traitée est la colonne 'A'

A bientôt

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 20 Avril 2005

• #6

bonsoir Hellboy, renato, tout le reste de la planète XLD

les MEFC sont les mises en forme conditionnelle, si tu applique une couleur par cette méthode, cette macro ne fonctionne pas.

Par contre, en relisant ta première demande, je me demande si tu ne cherche pas la couleur noir comme police d'écriture :

si oui, remplace :If Range('b' & i).Interior.ColorIndex = 1 Then
par : If Range('b' & i).Font.ColorIndex = 1 Then

Salut

 

Vote positif 0 Vote négatif

H

Hellboy

XLDnaute Accro

• 20 Avril 2005

• #7

Bonsoir a tous

Je suis d'accord avec Hervé. Il faudrait en savoir un peu plus.

Le noir est-ce pour la police et/ou le fond de la cellule Et si c'est le fond de la cellule est-ce fait par MEFC ?

Tout ce fait, à condition de faire savoir ce que l'on veut sans tomber dans l'exhaustivité.

Phil

 

Vote positif 0 Vote négatif

R

Rénato

XLDnaute Occasionnel

• 20 Avril 2005

• #8

Bien vu mon cher RV,

En effet Font<>Fond, je me dois également de revoir ma copie.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range
For Each c In Range('A:A')
If c.Value <> '' And c.Font.ColorIndex = 1 Then
c.EntireRow.Delete
End If
Next c
End Sub

Bonsoir à tous.

 

Vote positif 0 Vote négatif

C

caro

Guest

• 20 Avril 2005

• #9

ca marche du feu de Dieu!!

Merci pour tout

Bonne soirée

Caroline

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 20 Avril 2005

• #10

re

Caro, afin que l'on ne reste pas sur notre faim avec hellboy et renato.

Tu parlais de quoi : la couleur de la police ou la couleur de fond de la cellule ?

Salut

 

Vote positif 0 Vote négatif

C

caro

Guest

• 21 Avril 2005

• #11

couleur de police !!

Merci pour votre aide

 

Vote positif 0 Vote négatif