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 -
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
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
-
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. -
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