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

  • Votes
  • Date
  • Date décroissante
  2. 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
    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 ?
      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
        2. babarrr Auteur
          la couleur est mise manuellement.
          c'est la couleur rouge, de numéro 255
          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
          2. babarrr Auteur
            ça marche pas :(
            quand j'exécute la macro, rien ne se passe. Et j'ai remplacé le 3 par 255
          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
          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 ?
          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
        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

          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