Excel mise en forme conditionnelle
Fermé
Gali75
Messages postés
1
Date d'inscription
lundi 16 octobre 2006
Statut
Membre
Dernière intervention
17 octobre 2006
-
17 oct. 2006 à 15:22
LePierre Messages postés 249 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 août 2012 - 31 juil. 2008 à 20:10
LePierre Messages postés 249 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 août 2012 - 31 juil. 2008 à 20:10
A voir également:
- Excel mise en forme conditionnelle
- Mise en forme conditionnelle excel - Guide
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
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.
merci.
LePierre
Messages postés
249
Date d'inscription
samedi 8 mars 2008
Statut
Membre
Dernière intervention
2 août 2012
337
31 juil. 2008 à 20:10
31 juil. 2008 à 20:10
bonjour
en cherchant un peu tu aurais pu trouver ceci :
ça provient d'un exemple sur le site : http://gerard.g.pagesperso-orange.fr/
à plus
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
