XL 2010 Macro pour surligner et puis supprimer ligne(s).

DAVID-44-

XLDnaute Occasionnel
Bonjour à tous,
Je souhaiterais faire une macro (sans mise en forme conditionnelle) afin de surligner en rouge et avec une police blanche les cellules de la colonne "B", si sur la même ligne la cellule de la colonne "C" contient le chiffre "0".
Ensuite, supprimer toutes les lignes dont la cellule de la colonne "C" contient le chiffre "0", à l'aide d'un bouton.
Merci de votre aide.
Bonne journée.
David.
 

Pièces jointes

  • Classeur1.xlsx
    12.8 KB · Affichages: 11

DAVID-44-

XLDnaute Occasionnel
Bonjour à tous,
Wayki a créé une macro (sans mise en forme conditionnelle) afin de surligner en rouge et avec une police blanche les cellules de la colonne "B", si sur la même ligne la cellule de la colonne "C" contient le chiffre "0".
Tout fonctionne bien.
À présent, je souhaiterais ajouter a cette macro un code afin de ne pas surligner en rouge (la cellule = aucun remplissage) et avec une police noire les cellules de la colonne "B", si sur la même ligne dans la cellule de la colonne "C" le chiffre est supérieur à "0".
Merci de votre aide.
Bonne journée.
David.
 

job75

XLDnaute Barbatruc
Bonjour DAVID-44-, Wayki, le forum,

Ceci est très classique :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Application.ScreenUpdating = False
If FilterMode Then ShowAllData 'si la feuille est filtrée
Set r = Range("B1:B" & Range("C" & Rows.Count).End(xlUp).Row)
r.Interior.ColorIndex = xlNone 'RAZ
r.Font.ColorIndex = xlAutomatic 'RAZ
For Each r In r
    If CStr(r(1, 2)) = "0" Then
        r.Interior.Color = vbRed
        r.Font.Color = vbWhite
    End If
Next
End Sub
A+
 

Discussions similaires

Statistiques des forums

Discussions
298 012
Messages
1 965 128
Membres
200 855
dernier inscrit
Patrix1428