Formater cellules 3 conditions vba
Résolu
barale61
Messages postés
1126
Date d'inscription
Statut
Membre
Dernière intervention
-
barale61 Messages postés 1126 Date d'inscription Statut Membre Dernière intervention -
barale61 Messages postés 1126 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.
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.
Merci de votre aide.
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
2 réponses
-
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 -
Oui ça marche bien avec elsif merci beaucoup.
