Trouver l'erreur...(VBA)

Bonjour,

J'ai une feuille excell sur laquelle j'ai un code couleur (vba; code ci-joint)...jusqu'ici je n'avais aucun soucis puis après avoir ajouter quelques codes couleurs, ça ne fonctionne plus.

Lorsque par ex je veux inscrire "VB" dnas ma feuille, j'ai le message suivant dans une fenêtre:

Microsoft Visual Basic-Erreur d'exécution "1004"- Impossible de définir la propriété Color.Index de la classe Intérior"

Si je clique en bas de cette fenêtre sur "débogage" j'ai le code qui apparaît avec une flêche jaune et la partie suivante surlignée If Target.Value = "VB" Then Target.Interior.ColorIndex = 45

Faut-il que je modifie kkchose dans le code?

Merci de votre aide

vvdd

Bonjour,

il faut vérifier la donnée dans la cellule en question. Il y a surement une erreur.

Sinon essaie comme ceci :

If Ucase(Target.Value) = "VB" Then Target.Interior.ColorIndex = 45

Si ok, n'oublie pas de cloturer le fil en cliquant sur le V vert

Amicalement

Bonjour

Dan (Bonjour Dan) a surement raison, regarde si tu n'as pas une espace après ton VB car, cela ne pose pas problème.

Cordialement

Re, et Bonjour Amadeus,

Hormis le souci de ta demande, ton code pourrait, si je me trompe, se résumer à ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case UCase(Target)
Case "CO", "PARC ST JEAN": i = 4
Case "GYM", "CIRg", "LUTg": i = 6
Case "HB", "JPS", "COUR COLLEGE": i = 7
Case "FB", "RY", "THEQ", "LAN", "TERRAIN FOOT": i = 10
Case "V", "PISTE": i = 17
Case "CDD", "MAIN COURANTE": i = 31
Case "NATb", "SAUVb", "PIS BABYLONE": i = 33
Case "BADv", "HAUv", "VBv", "BBv", "HBv", "JPSv", "VENDEMIERE": i = 36
Case "SAUVt", "NATt", "PISCINE TRIOLO": i = 37
Case "TEN", "SALLE 8 MAI": i = 38
Case "CIR", "TT", "LUT", "HAUa", "LUTa", "AGORA": i = 39
Case "SYNTHETIQUE", "FBs", "THEQs": i = 40
Case "ESC", "TAMISE": i = 43
Case "BAD", "HAU", "VB", "BB", "CIRs", "LUTs", "2/3 SALLE": i = 45
Case "HVC", "CoEPS", "ConsCOL": i = 48
Case "BLO", "BLOC": i = 50
Case Else
i = 2
End Select
Target.Interior.ColorIndex = i
End sub

Amicalement

Bonjour

Merci pour les différentes réponses.

En effet le souci était sur ma feuille...juste parce que j'y avais mis une protection de feuille (un peu étonnant que ça coince à cause de ça mais en l'enlevant,tout marche...)

Jevais essauyé le code bcp plus simple de Dan voir si ça marche également.

Merci encore

vvdd

re,

Si tu as un souci, enlève le UCASE dans le code.

Amicalement