Formater cellules 3 conditions vba

Résolu/Fermé

barale61 Messages postés 1192 Date d'inscription jeudi 13 septembre 2012 Statut Membre Dernière intervention 17 avril 2024 - Modifié par barale61 le 6/03/2014 à 20:47
barale61 Messages postés 1192 Date d'inscription jeudi 13 septembre 2012 Statut Membre Dernière intervention 17 avril 2024 - 7 mars 2014 à 15:59

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:

Formater cellules 3 conditions vba
Comment formater un pc - Guide
Formater clé usb mac - Guide
Excel additionner des cellules - Guide
Picasa 3 - Télécharger - Albums photo
Verrouiller cellules excel - Guide

2 réponses

Réponse 1 / 2

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
7 mars 2014 à 08:38

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

Réponse 2 / 2

barale61 Messages postés 1192 Date d'inscription jeudi 13 septembre 2012 Statut Membre Dernière intervention 17 avril 2024 110
7 mars 2014 à 15:59

Oui ça marche bien avec elsif merci beaucoup.

Discussions similaires

Que signifie cet emoji :3

Signification de " :3 "

Excel VBA : Récupérer la valeur d'une cellule

VBA : Range avec références variables..

Discussions similaires

Newsletters