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

  • Initiateur de la discussion Initiateur de la discussion DAVID-44-
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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.
 
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
159
Réponses
7
Affichages
116
Retour