Macro remplissage cellules avec mise en forme conditionnelle

[data2014]

Bonjour,
Je cherche une macro (ou autre solution) me permettant de remplir automatiquement toutes les cellules de toutes les feuilles de mon classeur excel, avec la mise en forme conditionnelle suivante:

Si j'écris Radhouen dans la cellule: remplissage rouge
Si j'écris Ahmed dans la cellule: remplissage noir
Si j'écris latifa dans la cellule: remplissage vert
Si j'écris rien: pas de remplissage

Sur la PJ il y a mon essai 🙂

Qqn a une solution?

 

[Roland_M]

Re : Macro remplissage cellules avec mise en forme conditionnelle

bonjour,

voir comme ceci !?

 

[Modeste geedee]

Re : Macro remplissage cellules avec mise en forme conditionnelle

Bonsour®

à placer dans le module Thisworkbook
macro exécutée lors de la saisie

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With ActiveCell
      If LCase(.Value) Like "*radhouen*" Then
                .Interior.Color = vbRed
        Else
            If LCase(.Value) Like "*ahmed*" Then
                .Interior.Color = vbMagenta ( magenta au lieu de Noir sinon on ne lit plus le contenu)
            Else
                If LCase(.Value) Like "*latifa*" Then
                    .Interior.Color = vbGreen
                Else
                    .Interior.Color = xlNone
                End If
            End If
        End If
    End With
End Sub

 

[data2014]

Re : Macro remplissage cellules avec mise en forme conditionnelle

Merci beaucoup,😉

 

[data2014]

Re : Macro remplissage cellules avec mise en forme conditionnelle

Merci beaucoup, Modeste geedee & Roland_M 😱

 

[Roland_M]

Re : Macro remplissage cellules avec mise en forme conditionnelle

re

salut à toi modeste !

EDIT:

@data:
voir avec select case au lieu de if pour ne lire qu'une fois la cell
et comme dit Modeste revoir tes couleurs !?

 

[Modeste geedee]

Re : Macro remplissage cellules avec mise en forme conditionnelle

Bonsour®

re
salut modeste !
voir avec select case au lieu de if pour ne lire qu'une fois la cell

je me suis cassé les dents sur ce test ...
🙁
Select Case ne semble pas accepter le comparateur Like ou Instr(ChaineX,ChaineY)

autre formulation :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim saisie As String, couleur As Long
saisie = LCase(ActiveCell.Value)
couleur = xlNone
       If saisie Like "*radhouen*" Then couleur = vbRed
       If saisie Like "*ahmed*" Then couleur = vbMagenta
       If saisie Like "*latifa*" Then couleur = vbGreen
If couleur <> xlNone Then
' en supprimmant le If / end if
' cela permet la remis à blanc de la cellule
   ActiveCell.Interior.Color = couleur
End If

End Sub

 

[Roland_M]

Re : Macro remplissage cellules avec mise en forme conditionnelle

re

oui tout à fait Modeste !
mais il y a confusion, le message ne s'adressait pas à toi ! c'était une suite pour lui !

mais il est vrai, quand je revois mon message, on a l'impression que c'est pour toi !
excuses !

 

[data2014]

Re : Macro remplissage cellules avec mise en forme conditionnelle

Bonjour,
je dois utiliser que les miniscules ?

 

[Roland_M]

Re : Macro remplissage cellules avec mise en forme conditionnelle

re

mais non !
c'est simplement la lecture qui est traduite en minuscule ce qui te permet de taper dans les tests tout en minuscule
afin d'éviter une erreur entre ce que tu tapes sur excel et dans vba !
mais dans excel tu mets minuscules et majuscules ça ne pose aucun problème !

si ça te dérange tu enlèves ucase() et tu remets tes majuscules !
mais on pratique toujours comme ça pour éviter une erreur de frappe c'est tout ! c'est juste une sécurité !

 

[Modeste geedee]

Re : Macro remplissage cellules avec mise en forme conditionnelle

Bonsour®

Bonjour,
je dois utiliser que les miniscules ?

tu peux utiliser ce que tu veux ...
le contrôle ne s'effectue que sur le forçage en minuscule justement pour éviter cette différence

cependant attention si tu utilises des accents (Lounés, Leïla)
cherchez dans les archives une proc nommée SansAccent