MACRO - Mise en forme conditionnelle

[massilia]

Bonjour à tous,

Je me sers d'une petite macro pour faire de la mise en forme conditionnelle toute simple.
Je n'utilise pas la fonction excel car j'ai plus de trois conditions (et sauf si je ne sais pas m'en servir, j'ai constaté une limitation à 3 possibilités).

Voici donc ma macro, toute bête :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Select Case Target.Value
            Case "OK"
                Target.Font.Bold = True
                Target.Font.Color = RGB(0, 0, 0)
                Target.Interior.Color = RGB(0, 255, 0)
            Case "En Cours"
                Target.Font.Bold = True
                Target.Font.Color = RGB(0, 0, 0)
                Target.Interior.Color = RGB(255, 255, 0)
            Case "A Faire"
                Target.Font.Bold = True
                Target.Font.Color = RGB(0, 0, 0)
                Target.Interior.Color = RGB(255, 0, 0)
            Case "Stand By"
                Target.Font.Bold = True
                Target.Font.Color = RGB(255, 255, 255)
                Target.Interior.Color = RGB(0, 100, 255)
            Case Else
                Target.Font.Bold = False
                Target.Font.Color = RGB(0, 0, 0)
                Target.Interior.Color = RGB(255, 255, 255)
        End Select
    End If
End Sub

Jusque là, rien d'anormal...
En revanche, lorsque j'essaie de supprimer une ligne ou de copier une ligne, j'ai une erreur "Erreur d'exécution 13, incompatibilité de type" qui s'affiche.

Quelqu'un aurait-il une solution, je ne vois vraiment pas d'où cette erreur provient ?

Merci d'avance !!!

 

[wilfried_42]

Re : MACRO - Mise en forme conditionnelle

bonjour massilia

envoi nous ton fichier sans renseignement indiscret, il doit etre en format XLS ou ZIP et ne pas depasser 50Ko

@ te lire

 

[pierrejean]

Re : MACRO - Mise en forme conditionnelle

bonjour massilia
Salut wilfried

a mettre en tete de la macro

If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub
If Cells(Target.Row, Target.Column) = "" Then Exit Sub
Target.Value = CStr(Target.Value)

 

[massilia]

Re : MACRO - Mise en forme conditionnelle

Salut,

Et bien écoute, en voulant t'envoyer mon fichier (et donc en nettoyant qq lignes), je n'ai plus le problème...

Dès qu'il resurgit, je t'envoie le fichier !

La magie de l'informatique... 😉

En tout cas, merci pour ta rapidité.

 

[massilia]

Re : MACRO - Mise en forme conditionnelle

J'essaierai la solution proposée ci-dessous avant de vous l'envoyer si jamais mon problème refait surface.

Merci à tous.