comment vider une cellule à partir de la couleur d'une autre et reporter une mfc

ingrid

XLDnaute Junior
je dispose d'un fichier dont je ne suis pas l'auteur je souhaiterais

1) que les couleurs vertes que j'appliquent en mise en forme conditionnelles de P5 à R26 S'appliquent à l'ensemble des cellules et non pas aux lignes

2) que des que les cellules Q5 Q6 Q7 ect Sont vertes foncées ou remplies les cellules L5 L6 se vident

MERCI
 

Pièces jointes

  • PLANNING11.xlsx
    60 KB · Affichages: 46
  • PLANNING11.xlsx
    60 KB · Affichages: 48
  • PLANNING11.xlsx
    60 KB · Affichages: 36

Iznogood1

XLDnaute Impliqué
Re : comment vider une cellule à partir de la couleur d'une autre et reporter une mfc

Question 1 :
Proposition pour la colonne P, que tu pourras adapter aux colonnes Q et R

Remplace la formule en P6
Code:
=SI(A6="";"";SI(B6="";"";A6-B6))
par la suivante
Code:
=SI(ET(A5<>"";A6<>"");SI(B6="";"";A6-B6);"x")

Copie cette formule vers le bas et applique une MFC qui masque les "x" (police jaune / fond jaune ou verte / vert...)

Pour que ça fonctionne à la ligne 5, tu devras supprimer la ligne 4.

Question 2 :
Détecte le changement de valeur en A, B et J et efface avec un truc du genre
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [A:A]) Is Nothing Or _
     Not Intersect(Target, [B:B]) Is Nothing Or _
     Not Intersect(Target, [J:J]) Is Nothing Then
     If Range("P" & Target.Column).Value <> "" And _
        Range("Q" & Target.Column).Value <> "" And _
        Range("R" & Target.Column).Value <> "" Then _
          Range("L" & Target.Column).ClearContents
  End If
End Sub

à compléter pour détecter tes "zones"