MEFC en VBA

[Mimi]

Bonjour,
Dans la zone :
C5:AK35
je désirerais faire une MEFC en VBA pour noter :
RJF
JRS
CP13
CP14
en vert
En passant par la MEFC traditionnelle je serais obliger de reprendre
tous les textes car les CP peuvent changer de dates,
D'avance merci
Michel

 

[DoubleZero]

Re : MEFC en VBA

Bonjour, Mimi, le Forum,

Peut-être ainsi :

Option Explicit
Sub Police_colorer_si()
    Dim c As Range
    For Each c In Range("c5:ak35")
        If c = "RJF" Or c = "JRS" Or c = "CP13" Or c = "CP14" Then c.Font.Color = 2995501: c.Font.Bold = True
    Next
End Sub

A bientôt 🙂

 

[Mimi]

Re : MEFC en VBA

Bonsoir DoubleZero,
J'ai mis le code proposé dans un module et dans la feuille, mais quand je rentre par exemple RJF dans la feuille rien ne se passe
Ou alors je ne comprends pas
Merci
Michel

 

[brunosc]

Re : MEFC en VBA

Bonsoir et bonne fêtes à tous.
Aucun événements et lier a la macro il faut créer un bouton ou activer la macro manuellement.
@+

 

[sousou]

Re : MEFC en VBA

Bonsoir à tous
Doublezero (bonjour) avait une procédure à lancer et qui regardait tous les cellules
Sur l'évènnement change de la feuille 1 tu peux mettre cela en ajoutant un controle sur la zone qui change

Private Sub Worksheet_Change(ByVal Target As Range)
' verifier que target est dans la zone concernée
If Target = "RJF" Or Target = "JRS" Or Target = "CP13" Or Target = "CP14" Then Target.Font.Color = 2995501: Target.Font.Bold = True
End Sub

 

[Mimi]

Re : MEFC en VBA

Bonsoir Bruno, Sousou,
Ok j'ai fait un bouton, mais ce n'est pas la police de caractère que je veux mettre en vert mais le fond, excusé moi pour l'erreur dans le premier post, et si c'est possible que sa soit automatique
merci
Michel

 

[DoubleZero]

Re : MEFC en VBA

Re-bonjour, bonjour, brunosc, sousou,

Une suggestion avec ce code (à placer dans le module de l'onglet) :

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If Not Intersect(c, Range("c5:ak35")) Is Nothing Then
        If c = "RJF" Or c = "JRS" Or c = "CP13" Or c = "CP14" Then c.Interior.ColorIndex = 4
    End If
End Sub

A bientôt 🙂

P. S. : le bouton devient inutile !

 

[Isab]

Re : MEFC en VBA

Bonsoir
si j'ai bien compris ...

peut-être comme ça pour la couleur de fond:
then Target. Interior.Color = RGB(51, 153, 102)

tu peux changer le code RGB en fontion de ce qui te convient .. regarde dans la palette excel / personnaliser et prend les references.

a+

 

[Mimi]

Re : MEFC en VBA

Bonsoir,
Isab c'est bon ça marche, DoubleZero je garde ta macro qui s'active par un bouton j'en aurai besoin, par contre sur la feuille quand j'efface RJF par exemple la couleur reste, y a t-il un moyen pour l'enlever quand j'efface.
Merci
Michel

 

[Mimi]

Re : MEFC en VBA

Re
Rien à voir avec le post mais i a t-il quelqu'un qui aurait les code couleurs de la palette excel 2010
Merci
Michel

 

[Isab]

Re : MEFC en VBA

Re..

peut-être comme ça

sub efface()
selection.Interior.Color = xlNone
selection.Value = ""
end sub

remplace selection par ta cible si necessaire
---------
Selection.Clear

c'est plus court mais ça efface le format aussi ( donc à voir)

a+

 

[Isab]

Re : MEFC en VBA

Selection.Clear

c'est plus court mais ça efface le format aussi ( donc à voir)

 

[Mimi]

Re : MEFC en VBA

Oui Isab sa efface bien mais sa beugue sur la macro Worksheet_Change

 

[DoubleZero]

Re : MEFC en VBA

Re-bonjour, bonjour, Isab,

Pour une action par bouton, placer ce code dans un module standard :

Option Explicit
Sub Police_colorer_si()
    Dim c As Range
    For Each c In Range("c5:ak35")
        If c = "RJF" Or c = "JRS" Or c = "CP13" Or c = "CP14" Then c.Interior.ColorIndex = 4 Else c.Interior.ColorIndex = xlNone
    Next
End Sub

Pour une action immédiate, placer ce code dans le module de l'onglet :

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If Not Intersect(c, Range("c5:ak35")) Is Nothing Then
        If c = "RJF" Or c = "JRS" Or c = "CP13" Or c = "CP14" Then c.Interior.ColorIndex = 4 Else c.Interior.ColorIndex = xlNone
    End If
End Sub

A bientôt 🙂

 

[Isab]

Re : MEFC en VBA

Re

je pensais que tu voulais effacer par bouton..

si la macro ci dessus fait l'affaire
si tu veux enelever le contenu aussi
ajoute apres le else c.value=""
--