Sujet Précédent Sujet Suivant

Création conditionnellle

Résolu/Fermé
gildautal Messages postés 16 Date d'inscription samedi 8 décembre 2007 Statut Membre Dernière intervention 9 janvier 2008 - 12 déc. 2007 à 06:43
gildautal Messages postés 16 Date d'inscription samedi 8 décembre 2007 Statut Membre Dernière intervention 9 janvier 2008 - 13 déc. 2007 à 00:16
Bonjour,
Bonjour,
j'ai une petite question

si je prends la base suivante :

Sub Macro1()
'
' Macro1 Macro
'
Range("B5").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""""""NC"""""""
Selection.FormatConditions(1).Interior.ColorIndex = 39
Range("B5").Select

End Sub

En gardant B5 comme référence est il possible d'étendre ce processus à 10 conditions avec

Si ........then

Formula1:="=""""""NC"""""""
Selection.FormatConditions(1).Interior.ColorIndex = 39
Formula1:="=""""""1"""""""
Selection.FormatConditions(1).Interior.ColorIndex = 39
Formula1:="=""""""2"""""""
Selection.FormatConditions(1).Interior.ColorIndex = 39
Formula1:="=""""""3"""""""
Selection.FormatConditions(1).Interior.ColorIndex = 39
Formula1:="=""""""4"""""""
Selection.FormatConditions(1).Interior.ColorIndex = 39
Formula1:="=""""""5"""""""
Selection.FormatConditions(1).Interior.ColorIndex = 39
Formula1:="=""""""6"""""""
Selection.FormatConditions(1).Interior.ColorIndex = 39
Formula1:="=""""""7"""""""
Selection.FormatConditions(1).Interior.ColorIndex = 39
Formula1:="=""""""8"""""""
Selection.FormatConditions(1).Interior.ColorIndex = 39
Formula1:="=""""""BAD"""""""
Selection.FormatConditions(1).Interior.ColorIndex = 39

merci
A voir également:

4 réponses

Réponse 1 / 4
phil232 Messages postés 607 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 31 janvier 2008 178
12 déc. 2007 à 16:54
essaies !
0
gildautal Messages postés 16 Date d'inscription samedi 8 décembre 2007 Statut Membre Dernière intervention 9 janvier 2008 3
12 déc. 2007 à 18:02
Si je demande c'est parce que je n'y arrive pas bien sur !
0
Réponse 2 / 4
phil232 Messages postés 607 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 31 janvier 2008 178
12 déc. 2007 à 18:17
narrives pas à quoi ? aucune question n'a été posée dans ce post
0
gildautal Messages postés 16 Date d'inscription samedi 8 décembre 2007 Statut Membre Dernière intervention 9 janvier 2008 3
12 déc. 2007 à 20:15
En gardant B5 comme référence est il possible d'étendre ce processus à 10 conditions différentes.................?

j'avais oublié le point d'interrogation !!!!!!!

je demande une aide sur une procédure qui me semble trop longue telle que je la vois
0
Réponse 3 / 4
eriiic Messages postés 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 7 244
12 déc. 2007 à 22:49
Bonsoir,

Non, ce n'est pas comme ça que ça marche.
format.condition(i) est la mise en forme conditionnelle qui n'accepte que 3 items ( i = 1, 2 ou 3 c'est tout).
La tu remplaces la 1ère condition par une autre.

Est-ce vraiment un format conditionnel que tu veux ou juste affecter une couleur à la cellule ?

Si c'est affecter une couleur à la cellule tu peux mettre autant de tests que tu veux et lancer la macro sur un evenement change par exemple.
Si tes tests sont nombreux tu peux utiliser qcq chose comme:
select case [B5].value
case 1 to 8, "NC", "BAD"
[B5].Interior.ColorIndex = 39
case 9
'ce que tu veux
case else
[B5].Interior.ColorIndex = xlNone
end select

eric
0
Réponse 4 / 4
gildautal Messages postés 16 Date d'inscription samedi 8 décembre 2007 Statut Membre Dernière intervention 9 janvier 2008 3
13 déc. 2007 à 00:16
Merci Eric j'ai pigé je vais pouvoir l'exploiter ainsi

Select Case [B5].Value
Case 1 To 8, "NC", "BAD"
[B5].Interior.ColorIndex = 3
Case 9
[B5].Interior.ColorIndex = 6
Case Else
[B5].Interior.ColorIndex = 5
End Select

encore merci pour ton aide
0