VBA Erreur Code 13 HELP

Fermé

debutantVBA Messages postés 2 Date d'inscription lundi 7 juin 2010 Statut Membre Dernière intervention 7 juin 2010 - 7 juin 2010 à 20:47
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 7 juin 2010 à 23:21

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+

A voir également:

VBA Erreur Code 13 HELP
Erreur 0x80070643 - Guide
Code asci - Guide
Code erreur t32 ✓ - Forum Livebox
Code puk bloqué - Guide
Erreur 38 free ✓ - Forum Mobile

1 réponse

Réponse 1 / 1

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
7 juin 2010 à 23:21

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+

Discussions similaires

Problème de décodeur TV Bouygues Telecom

VBA erreur 1004

Instagram "Désolé, une erreur s'est produite"

Orange - Erreur P01 Netflix

Decodeur Orange erreur S05-05

Discussions similaires

Newsletters