Formater cellules 3 conditions vba

Résolu
barale61 Messages postés 1214 Date d'inscription   Statut Membre Dernière intervention   -  
barale61 Messages postés 1214 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je souhaite formater mes cellules avec 3 conditions ex.
: si mes valeurs sont >= à 1000 entre 500 et 1000 et en dessous de 500. Je peux formater mes cellules avec 2 conditions mais avec 3 je n'y arrive pas. 

Sub MettreEnValeur()
    Dim cell As Range
    For Each cell In Selection
        If cell >= 1000 Then
        cell.Font.ColorIndex = 3
        Else
            cell.Font.ColorIndex = 5
    End If
    Next
End Sub
Merci de votre aide.
A voir également:

2 réponses

Réponse 1 / 2
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

Essaies ce code : 
Option Explicit
Sub MettreEnValeur()
Dim cell As Range
  For Each cell In Selection
    If cell.Value >= 1000 Then
      cell.Font.ColorIndex = 3
    ElseIf cell.Value >= 500 Then
      cell.Font.ColorIndex = 5
    Else
      cell.Font.ColorIndex = 4
    End If
  Next cell
End Sub
0
Réponse 2 / 2
barale61 Messages postés 1214 Date d'inscription   Statut Membre Dernière intervention   110
 
Oui ça marche bien avec elsif merci beaucoup.
0

Discussions similaires

Ca veut dire quoi :3
Moi -
Adraen -

3 réponses
Signification de :3
blanchecanelle -
Adraen -

6 réponses
signification "<3" dans un sms
lecogno -
Utilisateur anonyme -

3 réponses