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

[DAVID-44-]

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.

 

[Wayki]

Salut,
voici pour toi
A +

 

[DAVID-44-]

Bonjour Wayki ,
Merci beaucoup.
Juste une question, est-il possible de ne pas avoir de bouton pour la mise en forme des "0" ?
Bonne journée.
David.

 

[job75]

Bonjour DAVID-44-,

Ensuite, supprimer toutes les lignes dont la cellule de la colonne "C" contient le chiffre "0", à l'aide d'un bouton.

Dans le fichier il est écrit :

BOUTON EFFACE LIGNE(S) CONTENANT DES "0"

Ce n'est pas la même chose, alors dites-nous.

A+

 

[DAVID-44-]

Bonjour job75,
OOOpppssss ! En effet c'est bien supprimer.
Merci de votre aide.
Bonne journée.
David.

 

[Wayki]

Bah oui, clic droit sur le bouton, clic gauche puis touche suppr
A +

 

[DAVID-44-]

Bonjour Wayki,
Ok.
Merci beaucoup.
Bonne journée.
David.

 

[DAVID-44-]

Re Wayki,
En fait, je me suis mal expliqué, est-il possible de faire fonctionner la macro simplement en écrivant dans la cellule "0" et sans utiliser le bouton ?
Merci de votre aide.
Bonne journée.
David.

 

[Wayki]

Ci-joint

 

[DAVID-44-]

Re Wayki,
Merci beaucoup.
Bonne soirée.
David.

 

[DAVID-44-]

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]

Bonjour DAVID-44-, Wayki, le forum,

Ceci est très classique :

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+

 

[DAVID-44-]

Bonjour job75, Wayki, le forum,
Ça fonctionne.
Merci de votre aide.
Bonne journée.
David.