effacer contenu cellules à fond rouge

[pascal21]

bonsoir
j'ai des cellules qui se colorent en rouges grace à une MFC et j'aimerais que le contenu de ces cellules coloriées soit ensuite effacé par une macro
je crois savoir qu'il y a déja un souci avec les mfc et les macros
dans ce cas il est peut être possible de colorié ces cellules via une macro
la formule mfc est

=$b1<=aujourdhui()-90

alors couleur rouge et tirée vers le bas et sur 3 colonnes à droite
merci de m'apporter votre aide

 

[job75]

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+

 

[Staple1600]

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

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

 

[pascal21]

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

 

[Robert]

Re : effacer contenu cellules à fond rouge

Bonsoir Pascal, bonsoir le forum,

un bout de code à adapter à ton cas :

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...

 

[Lii]

Re : effacer contenu cellules à fond rouge

Bonsoir,

A tester.

 

[pascal21]

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

 

[pascal21]

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

 

[pascal21]

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

 

[Lii]

Re : effacer contenu cellules à fond rouge

Re

Change la condition de ta MFC et dis nous.

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

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

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

 

[pascal21]

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

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

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

 

[Lii]

Re : effacer contenu cellules à fond rouge

Bonsoir,

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 :

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

Remarque

.Clear

efface tout,

.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.

 

[pascal21]

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