Mise en forme conditionnelle
Fermé
nicospp
-
12 juil. 2009 à 23:12
smartway14 Messages postés 822 Date d'inscription mercredi 15 octobre 2008 Statut Membre Dernière intervention 8 octobre 2011 - 13 juil. 2009 à 11:26
smartway14 Messages postés 822 Date d'inscription mercredi 15 octobre 2008 Statut Membre Dernière intervention 8 octobre 2011 - 13 juil. 2009 à 11:26
A voir également:
- Mise en forme conditionnelle
- Mise en forme conditionnelle excel - Guide
- Mise en forme tableau word - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise en forme tableau croisé dynamique - Guide
- Mise a jour windows 10 - Accueil - Mise à jour
2 réponses
Raymond PENTIER
Messages postés
58760
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
17 252
13 juil. 2009 à 02:13
13 juil. 2009 à 02:13
Salut.
Il suffit de refaire la même manip à 3 reprises en remplaçant "" par "en attente", par "en cours" et par "traité" en changeant chaque fois de format.
Dans Excel 2003 on n'a droit qu'à 3 mises en forme ; avec Excel 2007, il n'y a pas de limitation.
Il suffit de refaire la même manip à 3 reprises en remplaçant "" par "en attente", par "en cours" et par "traité" en changeant chaque fois de format.
Dans Excel 2003 on n'a droit qu'à 3 mises en forme ; avec Excel 2007, il n'y a pas de limitation.
smartway14
Messages postés
822
Date d'inscription
mercredi 15 octobre 2008
Statut
Membre
Dernière intervention
8 octobre 2011
185
13 juil. 2009 à 11:26
13 juil. 2009 à 11:26
bonjour;
vous pouvez faire ça par le macro suivant:
Sub colorer()
Dim i As Integer
Dim espace As Object
Set espace = Range("A1").CurrentRegion
For i = 1 To espace.Count
If espace(i) = "en attente" Then
espace(i).Interior.ColorIndex = 1
Else
If espace(i) = "en cour" Then
espace(i).Interior.ColorIndex = 2
Else
If espace(i) = "traitée" Then
espace(i).Interior.ColorIndex = 3
End If
End If
End If
Next
End Sub
vous pouvez faire ça par le macro suivant:
Sub colorer()
Dim i As Integer
Dim espace As Object
Set espace = Range("A1").CurrentRegion
For i = 1 To espace.Count
If espace(i) = "en attente" Then
espace(i).Interior.ColorIndex = 1
Else
If espace(i) = "en cour" Then
espace(i).Interior.ColorIndex = 2
Else
If espace(i) = "traitée" Then
espace(i).Interior.ColorIndex = 3
End If
End If
End If
Next
End Sub