Discussion :

[Didpa]

Bonjour

Voilà, j'aimerais créer une macro, ou autre moyen , de maniere a avoir le même résultat que la mise en forme conditionnelle, mais en ayant plus de conditions que trois, il m'en faudrait 7 exactement.

Exemple :
Je tape J dans ma cellule elle le fond passe en jaune
Je tape O dans ma cellule elle le fond passe en Orange

ainsi de suite jusqu'a sept couleur, et que cela se fasse automatiquement, que je ne soit pas obligé de lancer la macro manuelemnt a chaque fois, je ne travaille pas avec USF, mais directement sur le tableur.

Merci

[doringen]

exemple de code appliqué sur la colonne A et sur 500 lignes (à modifier dans la constante "endofcolumn")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub MEF()
Dim endofcolumn As Long
endofcolumn = 500
For i = 1 To endofcolumn
 Select Case Cells(i, 1).Value
    Case Is = ""
    Cells(i, 1).Interior.ColorIndex = 0
    Case Is = "A"
    Cells(i, 1).Interior.ColorIndex = 10
    Case Is = "B"
    Cells(i, 1).Interior.ColorIndex = 20
    Case Is = "C"
    Cells(i, 1).Interior.ColorIndex = 28
    Case Is = "M"
    Cells(i, 1).Interior.ColorIndex = 60
    Case Is = "H"
    Cells(i, 1).Interior.ColorIndex = 45
    '...et ainsi de suite
 End Select
 Next i
End Sub

EDIT: et dans la feuille concernée, ajouter:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
Target = Range("A1:A500")
Call MEF
End Sub

RE-EDIT: cela m´apprendra à meiux lire le s questions...

[helios77]

Doringne, tu réponds pas à sa problématique de ne paslancer la macro manuellement mais cependant en reprenant ont code, il y a juste à mettre al macroMEF comme ci-dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Worksheet_Change(ByVal Target As Range)
Call MEF()
End Sub

A chaque fois que ta feuille sera modifié, ta macro s'éxécutera
Cette amcro devra évidemment boucler sur les cellules sur lesquelle tu veux fair tamise en forme..Tu l'écris unefois et l'appelle comme je t 'ai montré et tu verras çà fait le mêem effet que la mise en forme conditonnelle

[ouskel'n'or]

Pour reprendre le code de doringen placé dans la procédure indiquée par Helios, tu peux aussi faire ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 Select Case Cells(Target.row, 1).Value
    Case ""
        Cells(Target.row, 1).Interior.ColorIndex = 0
    Case "A", "N", "S"
        Cells(Target.row, 1).Interior.ColorIndex = 20
    Case "C", "F","L"
        Cells(Target.row, 1).Interior.ColorIndex = 28
'etc.

T'évite d'appeler une procédure avec passage de Target.row
A+

[AlainTech]

Pourquoi passer par le .row???

Target est une cellule.
Il suffit de lui appliquer ce qu'on veut:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Target.Interior.ColorIndex = 0

[ouskel'n'or]

Chuis bête ! T'as raison (... bien sûr !...)

[Didpa]

Bonjour a tous
je reprend une question que je n'ai pas eu le temps de finir.
Comment appliquer la macro a toue la feuille et pas seulemment à une colonne

[SfJ5Rpw8]

est-ce que comme écrit plus haut tout mettre dans le Worksheet_change ne te suffit pas ...?
pour le principe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim c As Range
  For Each c In Target
    Select Case c.Value
       Case "J"
         c.Interior.Color = vbYellow
       Case "R"
         c.Interior.Color = vbRed
       Case Else
         c.Interior.ColorIndex = xlNone
    End Select
 
  Next
End Sub

[Didpa]

Sur le Principe cela a l'aire de fonctionner, mais pour le code des couleurs je connais qu'en valeur numérique, et la cela n'as plus l'air de fonctionner si je remplace vbred par ça valeur 3.
as tu une de t'es astuce .....

[SfJ5Rpw8]

3 c'est un index dans "la palette" de couleur ... remplace color par colorIndex