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

  • Initiateur de la discussion Initiateur de la discussion ingrid
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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"
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour