Excel mise en forme conditionnelle

Gali75 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
LePierre Messages postés 249 Statut Membre -
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. la tortue
     
    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
  2. LePierre Messages postés 249 Statut Membre 338
     
    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