Excel, renseignement sur une cellule

babarrr -  
Bonjour,

j'aimerais savoir comment faire pour avoir des renseignements sur une cellule sur excel.

Par exemple : parmi la plage de cellule A1:B3, la cellule B2 représente-t-elle le chiffre minimal ? maximal ?

et aussi : comment entrer un code couleur dans une condition ?

exemple : SI(la cellule B1 est surlignée en rouge;1;2)

d'avance merci

6 réponses

  1. michel_m Contributeur
    Transféré dans le forum Bureautique/excel.....
    0
    1. Mazzaropi Contributeur
      babarrr, Bonjour.

      A) "...Par exemple : parmi la plage de cellule A1:B3, la cellule B2 représente-t-elle le chiffre minimal ? maximal ? ..."
      Essayez de faire.
      =SI(B2=MIN(A1:B3);"Oui, Minimal";SI(B2=MAX(A1:B3);"Oui, Maximal";"Rien"))

      B) "...et aussi : comment entrer un code couleur dans une condition ?
      exemple : SI(la cellule B1 est surlignée en rouge;1;2) ...      "
      Vous devez utiliser la programmation VBA

      C'est ce que vous vouliez?
      J'espère que j'ai aidé.
      --
      Belo Horizonte, Brasil.
      Marcílio Lobão
      0
      1. babarrr Auteur
        je pense aussi qu'il faut utiliser le langage VBA mais je ne connais pas le code

        ce que je veux en réalité c'est : parmi la plage de cellule F1:H1, la cellule surlignée représente-t-elle le minimal, maximal ou entre les deux ?
        0
        1. eriiic Contributeur
          Bonjour,

          ce que je veux en réalité c'est : ...
          Alors pourquoi poser une autre question ?

          La couleur est-elle mise manuellement ou par MFC ?
          Et il faut le fichier pour savoir la couleur utilisée.

          eric
          0
          2. babarrr Auteur
            la couleur est mise manuellement.
            c'est la couleur rouge, de numéro 255
            0
            1. eriiic Contributeur
              Bonjour,

              c'est la couleur rouge, de numéro 255
              J'ai pris le rouge des couleurs standards, compatibles excel 2003 : 3
              Si vraiment tu y tiens, pour les couleurs du thème il y a plus de propriétés à tester. Que tu peux trouver en enregistrement de macro. 

              Sub test()
    Dim mini As Double, maxi As Double, c As Range
    mini = Application.Min([F1:H1])
    maxi = Application.Max([F1:H1])
    For Each c In [F1:H1]
        If c.Interior.ColorIndex = 3 Then
            If c = mini Then
                [I1] = "mini"
            ElseIf c = maxi Then
                [I1] = "maxi"
            Else
                [I1] = "entre mini et maxi"
            End If
        End If
    Next c
End Sub

              eric
              0
            2. babarrr Auteur
              ça marche pas :(
              quand j'exécute la macro, rien ne se passe. Et j'ai remplacé le 3 par 255
              0
            3. eriiic Contributeur
              Je t'avais dit d'utiliser une couleur standard dont le rouge est ColorIndex =3.
              Si tu tiens à utiliser 255 remplace ColorIndex par Color

              eric
              0
            4. babarrr Auteur
              génial j'ai remplacé colorindex par color et ça marche, merci beaucoup :)

              je pensais par contre qu'il suffirait de tirer la formule vers le bas pour faire la même chose avec F2:H2, F3:H3, mais apparement je peux pas en fait parce qu'il n'y a pas de formule à l'intérieur de la cellule. Comment je peux faire pour tirer vers le bas lorsqu'il s'agit d'un code VBA alors ?
              0
            5. eriiic Contributeur
              vba fait exactement ce qu'on lui dit, à condition de savoir exactement ce que tu veux.
              Et pas que tu reviennes toutes les 30 min en disant "ah mais oui mais en fait c'est ça que je veux".
              Quoi, avec quoi, comment et où.
              Dans 30 min tu vas revenir en disant "Ah oui, mais en fait des fois ça se termine en F5:H5"
              Et on ne sait toujours pas où tu veux ton résultat. Dans une variable ? Dans la feuille ? Ailleurs ?
              Quoi faire si la couleur n'est pas trouvée ?
              J'en oublie certainement....
              Et un fichier de travail pour mieux expliquer est plus que bienvenu.
              eric
              0
          3. foo
            Bonjour

            voila un debut

            Sub test()
            mini = Application.Min([F1:H1])
            maxi = Application.Max([F1:H1])
            For C = 6 To 8
            If Cells(1, C).Value = maxi Then
            Cells(1, C).Interior.ColorIndex = 3
            Else
            Cells(1, C).Interior.ColorIndex = xlNone
            End If
            Next
            End Sub

            A+
            Maurice
            0

            Discussions similaires

            Excel formule : savoir si une cellule contient partie texte
            plunderer007

            14 réponses
            Excel ajustement auto taille de la cellule
            Mélanie

            22 réponses