XL 2013 Mon code VBA ne fonctionne pas correctement

[marcelio]

Bonjour le forum,
Après plusieurs jours à chercher sans avoir trouver l'erreur que j'ai faite, je viens vous voir.
Un clic de la colonne H13 à V18 m'indique l'endroit où se trouvent les noms de la même ligne sur les colonnes AM, BG et CA.
Tout fonctionne correctement.
Mon seul souci il n’y a que la colonne AM qui fonctionne correctement
Car si on sort du tableau H13 à V18 le bleu disparait de la colonne AM, tandis que sur les colonnes BG et CA elle reste figées.
Hors elle devrais disparaitre comme la colonne AM.
Si vous pouviez me dire ce que j'ai oublié de faire.
Merci d'avance.
Marcelio

 

[sylvanu]

Bonjour Marcelio,
en ne mettant qu'une seule fois en entrée de sub :

If Intersect(ActiveCell, [H13:V18]) Is Nothing Then Exit Sub

cela semble résoudre le problème.

 

[Jacky67]

Hors elle devrais disparaitre comme la colonne AM.
Si vous pouviez me dire ce que j'ai oublié de faire.
Merci d'avance.
Marcelio

Bonjour à tous
La PJ devrait faire

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    ActiveSheet.Unprotect
    [AM8:AM19].Interior.Color = [L1].Interior.Color
    [bg8:bg19].Interior.Color = [L2].Interior.Color
    [ca8:ca19].Interior.Color = [L3].Interior.Color
    If Intersect(ActiveCell, [H13:V18]) Is Nothing Then Exit Sub
    '---------------
    '---------

 

[marcelio]

Bonjour Sylvanu et Jacky
Merci à tous les 2 pour vos codes
Je garde celui de Jacky qui correspond le mieux à mon problème.
Bon après midi à tous les 2 et au forum
Marcelio