formater cellules 3 conditions vba Résolu/Fermé

Question

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    NextEnd Sub
Merci de votre aide.
Configuration: Windows 7 / Chrome 33.0.1750.146

Patrice33740 · Answer

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

barale61 · Answer

Oui ça marche bien avec elsif merci beaucoup.

Formater cellules 3 conditions vba

2 réponses

Discussions similaires