Excel mise en forme conditionnelle

Bonjour à tous,

Je souhaiterai faire une mise en forme conditionnelle comprenant 5 conditions. La fonction présente sur excel ne me permet que d'en faire 3. Quelqu'un connait-il un moyen pour en faire 5?

Merci

2 réponses

  1. salut, ça fait un bout de temps que tu as posté cette question sur une possibilité d'avoir 5 condions de forme sur excel, et c'est tout a fait ce que j'ai besoin de savoir. Est ce que par chance tu aurais trouver un moyen depuis ? comme passer en pur vba avec des formules batardes qui fonctionnent une fois sur deux ? ou un téléchargement d'add-ons qui permettent a excel d'accepter davantage de conditions ?
    merci.
    0
    1. bonjour

      en cherchant un peu tu aurais pu trouver ceci :
      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
          For i = 2 To 50 'rangées de 2 à 50
              'condition 1
              If Range("A" & i) > 0 And Range("A" & i) < 50 Then 'colonne A
                  Range("A" & i).Font.ColorIndex = 3 'colonne A texte Rouge
                  Range("B" & i).Interior.ColorIndex = 3 'colonne B cellule rouge
              'condition 2
              ElseIf Range("A" & i) >= 50 And Range("A" & i) < 100 Then 'colonne A
                  Range("A" & i).Font.ColorIndex = 5 'colonne A texte bleu
                  Range("B" & i).Interior.ColorIndex = 5 'colonne B cellule bleue
              'condition 3
                  ElseIf Range("A" & i) >= 100 And Range("A" & i) < 150 Then 'colonne A
                  Range("A" & i).Font.ColorIndex = 4 'colonne A texte vert
                  Range("B" & i).Interior.ColorIndex = 4 'colonne B cellule vert
              'condition 4
                  ElseIf Range("A" & i) >= 150 And Range("A" & i) < 200 Then 'colonne A
                  Range("A" & i).Font.ColorIndex = 6 'colonne B texte jaune
                  Range("B" & i).Interior.ColorIndex = 6 'colonne B cellule jaune
              'Pour annuler la couleur des cellules vidées
                  ElseIf Range("A" & i) = "" Then 'colonne A
                  Range("A" & i).Font.ColorIndex = xlAutomatic 'colonne A texte automatique
                  Range("B" & i).Interior.ColorIndex = xlNone 'colonne B cellule sans couleur
              End If
          Next i
      End Sub


      ça provient d'un exemple sur le site : http://gerard.g.pagesperso-orange.fr/

      à plus
      0