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

Wayki

XLDnaute Impliqué

• 25 Août 2021

• #2

Salut,
voici pour toi
A +

 

Pièces jointes

• Classeur1.xlsm

  19.4 KB · Affichages: 11

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 25 Août 2021

• #3

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Août 2021

• #4

Bonjour DAVID-44-,

DAVID-44- à dit:

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

Cliquez pour agrandir...

Dans le fichier il est écrit :

BOUTON EFFACE LIGNE(S) CONTENANT DES "0"

Cliquez pour agrandir...

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

A+

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 25 Août 2021

• #5

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

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 25 Août 2021

• #6

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

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 25 Août 2021

• #7

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

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 25 Août 2021

• #8

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.

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 25 Août 2021

• #9

Ci-joint

 

Pièces jointes

• Classeur1.xlsm

  21.6 KB · Affichages: 10

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 25 Août 2021

• #10

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

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 28 Août 2021

• #11

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Août 2021

• #12

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+

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 28 Août 2021

• #13

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

 

Dernière édition: 28 Août 2021

Vote positif 0 Vote négatif