VBA Erreur Code 13 HELP Fermé

Question

Bonjour à tous, 

Je vais finalement vous exposer mon propre problème car après avoir parcouru tous les forum d'aide, je n'ai pas trouvé de réponse à mon problème.
Voici le code ci-dessous qui me donne du fil à retordre :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lig As Byte, plage As Range

If Intersect(Target, Range("T9:T5000")) Is Nothing Then: Exit Sub

Lig = Target.Row
Set plage = Range(Cells(Lig, 1), Cells(Lig, 21))

Select Case Target
    Case Is = "PIECES DEMANDEES"
        plage.Interior.ColorIndex = 7
    Case Is = "A TRAITER"
        plage.Interior.ColorIndex = 41
    Case Is = "REAL EN COURS"
        plage.Interior.ColorIndex = 6
    Case Is = "INJECTEE"
        plage.Interior.ColorIndex = 8
    Case Is = "SOLDE"
        plage.Interior.ColorIndex = 16
    Case Is = "ENVOYE A PARIS"
        plage.Interior.ColorIndex = 3
    Case Is = "EFT PAYEE"
        plage.Interior.ColorIndex = 4
    
End Select

Set plage = Nothing
End Sub

Ce code me permet de colorier les lignes de mon tableau suivant les données qui sont dans la colonne T. Le problème, c'est que lorsque je veux supprimer une ligne de mon tableau, j'ai un message d'erreur CODE 13 qui s'affiche et je ne trouve pas de solution (je suis débutant).

Je fais donc appel à votre aide "les PRO-grammeurs".
Merci d'avance A+

lermite222 · Answer

Bonjour,
Ajoute la ligne...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lig As Byte, plage As Range, V
    If Not Intersect(Target, Range("T9:T5000")) Is Nothing Then: Exit Sub
    V = Split(Target.Address, ":"): If UBound(V) > 0 Then Exit Sub
A+

VBA Erreur Code 13 HELP

1 réponse

Discussions similaires