effacer contenu cellules à fond rouge

job75

XLDnaute Barbatruc

• 24 Juin 2008

• #2

Re : effacer contenu cellules à fond rouge

Bonsoir,
Si les valeurs des cellules concernées par la MFC sont entrées manuellement, alors oui il faut une macro pour les effacer. Si par contre dans ces cellules il y a une formule, on peut l'adapter pour qu'elle renvoie "" quand nécessaire.
A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Juin 2008

• #3

Re : effacer contenu cellules à fond rouge

Bonsoir

A tester (échec)

Sélectionnes une cellule qui a format conditionnel
puis lance la macro

Cela correspond à faire
Edition/Atteindre/Cellules/Formats conditionnels
Mais c'est pas OK

Code:

Sub a_tester()
'Sélectionner au préalable une cellule avec un format conditionnel à supprimer
ActiveCell.SpecialCells(xlCellTypeAllFormatConditions).EntireRow.Delete
Selection.FormatConditions.Delete
End Sub

EDIT: Mauvaise pioche, cela supprime toutes les cellules ayant recu le format conditionnel

 

Dernière édition: 24 Juin 2008

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 24 Juin 2008

• #4

Re : effacer contenu cellules à fond rouge

bonsoir job , stapple
ton code , stapple ne se contente pas d'effacer les cellules ayant une mfc mais aussi la mfc
radical le stapple lol!!!!
enfin bon tu l'avais annoncé

EDIT: Mauvaise pioche, cela supprime toutes les cellules ayant recu le format conditionnel

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 24 Juin 2008

• #5

Re : effacer contenu cellules à fond rouge

Bonsoir Pascal, bonsoir le forum,

un bout de code à adapter à ton cas :

Code:

Sub Macro1()
Dim cel As Range 'déclare la variable cel
 
'boucle sur toute les cellules cel de la plage "ta_plage" (à adapter à ton cas)
For Each cel In Range("ta_plage")
    On Error Resume Next 'si la cellule de la colonne B n'est pas une date
    'condition : si la date de la cellule en colonne B est <= à la date - 90 jours,
    'efface le contenu de la cellule cel
    If CDate(Cells(cel.Row, 2)) <= (Date - 90) Then cel.ClearContents
Next cel 'prochaine cellule cel de la plage "ta_plage"
End Sub

Édition :

Retard ! Salut Staple, Job...

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 24 Juin 2008

• #6

Re : effacer contenu cellules à fond rouge

Bonsoir,

A tester.

 

Pièces jointes

• VideMFC.zip

  5.9 KB · Affichages: 30

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 24 Juin 2008

• #7

Re : effacer contenu cellules à fond rouge

bonsoir et merci robert ça à l'aire de fonctionner
en tout cas sur mon classeur "brouillon"
je teste demain il est tard et demain debout à 6h15 (eh oui!!!! demain c'est grasse mat..)
bonne nuit et veuillez pas trop tard

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 24 Juin 2008

• #8

Re : effacer contenu cellules à fond rouge

un essai rapide sur le classeur brouillon à montré que ça efface tout même si ce n'est pas des dates et même si il n'y a pas de dates
en fait ça ne garde que les dates > à aujourdhui() - 90
ç'est déja ça

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 24 Juin 2008

• #9

Re : effacer contenu cellules à fond rouge

bonsoir lii
décidement je vais jamais aller me coucher
ça fonctionne il faudrait juste que la mfc se remette à zéro si $b1 vide
bonne soirée

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 25 Juin 2008

• #10

Re : effacer contenu cellules à fond rouge

Re

Change la condition de ta MFC et dis nous.

Code:

=ET($B1>0;$B1<=AUJOURDHUI()-90)

Oubli : bien sûr, adapte le code ainsi :

Code:

...
If [COLOR=Red][B]Cellule > 0 And [/B][/COLOR]Cellule <= Now - 90 Then
...

 

Dernière édition: 25 Juin 2008

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 25 Juin 2008

• #11

Re : effacer contenu cellules à fond rouge

bonjour à tous
voila c'est parfait Lii ça fonctionne très bien
merci
il y a juste cette ligne là que je ne comprend pas trop

Code:

Range("b" & Cellule.Row & ":F" & Cellule.Row) = ""

car j'aimerais pouvoir l'adapter
que faudrait-il mettre pour que ça se fasse sur les colonnes a,c,d,e ,f et H
mais toujours avec la colonne B qui contient les dates bien sur
merci
je vous mets le code en entier

Code:

Dim Cellule As Range
  For Each Cellule In Range("B1:B8")
   If Cellule > 0 And Cellule <= Now - 90 Then
       Range("b" & Cellule.Row & ":F" & Cellule.Row) = ""
    End If
  Next

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 25 Juin 2008

• #12

Re : effacer contenu cellules à fond rouge

Bonsoir,

Code:

Range("B" & Cellule.Row & ":F" & Cellule.Row) = ""

Les cellules de la plage B...:F... sont "vidées" pour chaque ligne de la cellule testée (donc de 1 à 8 venant de B1:B8).
J'aurais pu écrire :

Code:

Range("B" & Cellule.Row & ":F" & Cellule.Row) .ClearContents

Remarque

Code:

.Clear

efface tout,

Code:

.ClearFormats

efface les formats.
De façon générale, quand tu tapes le point, s'il n'y a pas d'erreur, apparaît la liste des "mots" à utiliser.

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 25 Juin 2008

• #13

Re : effacer contenu cellules à fond rouge

c'est bon j'ai trouvé pour modifié les colonnes voulues
au final ça efface les colonnes a, b, c, d
maintenant je cherche comment faire pour que les cellules vides soient occupées par les données qui sont restées affichées
pour faire simple comment faire remonter les données non effacées
merci

 

Vote positif 0 Vote négatif