VBA Erreur Code 13 HELP
debutantVBA
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
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+
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
- Code ascii - Guide
- Code puk bloqué - Guide
- Fifa 13 - Télécharger - Jeux vidéo
- Code activation windows 10 - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
