Couleur de fond

Résolu
Bonjour......

En premier Bonne année 2016 avec tout son lot de joie et sante....

Problème un :

J'aimerais que une fois que ma cellule active rempli par un charactere elle et les deux cellules a gauche prennent une couleur jaune.

Exemple : Cellule active B10 En mettant un "X" dans cette cellule B10 , B09 et B08 deviendrait avec couleur de fond jaune

Problème deux :

Une troisième cellule devras prendre une formule spécifique en fonction de ma cellule active.

Exemple : Cellule active B10 La cellule A1 aurait la formule "=somme(d56:d67)"
si je change de cellule active C34 La cellule A1 aurait la formule "=somme(e45:e56)"

Logiciel Excel 2013

Merci de votre temps ........

Gilles

3 réponses

  1. Modérateur
    Bonsoir et bonne année à toi également,

    Pour ton premier problème, il faut faire une formule sur une mise en forme conditionnelle.

    Sélectionne A1 par exemple puis :

    Mise en forme conditionnelle > Nouvelle règle > "Utiliser une formule pour déterminer pour quelles cellules le format sera appliqué".

    La formule est :
    =OU(A1="X";IV1="X";B1="X")

    Applique ta formule sur les cases concernées.
    A vérifier si c'est bien le comportement attendu.
    1
    1. Pour ton deuxieme probleme regarde pour faire un CELLULE("adresse") qui renvoit la cellule active sous la forme $A$1
      0
      1. Merci pour ton aide et désolé pour la réponse tardive....obligations oblige.....ca m'as beaucoup aide.....
        0
    2. Bonsoir à tous,

      question 1 : une MFC comme crapoulou
      Tu sélectionnes la zone qui t'intéresse (A1:S39 par exemple)
      Tu vas dans MFC\nouvelle règle\utiliser une formule .....
      Tu saisis la formule
      =((A1<>"")+(B1<>"")+(C1<>""))>=1

      Tu vas dans format et tu choisis remplissage jaune.

      question 2 : un peu de vba et une formule
      La formule en A1:
      =SI(CELLULE("adresse")="$b$10";SOMME(D56:D67);SI(CELLULE("adresse")="$c$34";SOMME(E45:E56);""))

      Une macro évènementielle derrière la feuille qui contient la formule :
      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      [A1].Calculate
      End Sub
      


      c'est tout

      cordialement
      0