MACRO - Mise en forme conditionnelle

massilia · 30 Mars 2007

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 !!!

wilfried_42 · 30 Mars 2007

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 · 30 Mars 2007

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 · 30 Mars 2007

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 · 30 Mars 2007

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.

MACRO - Mise en forme conditionnelle

massilia

XLDnaute Nouveau

wilfried_42

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

massilia

XLDnaute Nouveau

massilia

XLDnaute Nouveau

Discussions similaires