MACRO - Mise en forme conditionnelle

massilia

XLDnaute Nouveau
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 :
Code:
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 !!!
 

pierrejean

XLDnaute Barbatruc
Re : MACRO - Mise en forme conditionnelle

bonjour massilia
Salut wilfried

a mettre en tete de la macro

Code:
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

XLDnaute Nouveau
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é.
 

Discussions similaires

Statistiques des forums

Discussions
315 103
Messages
2 116 249
Membres
112 695
dernier inscrit
ben44115