Sujet Précédent Sujet Suivant

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

Réponse 1 / 2
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
Réponse 2 / 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