Récupération de couleur

[jopont]

Bonjour,

Faut-il mettre ce code dans l'événement change ou selectionchange de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C4:BL66"), Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [liste_code].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub
merci

 

[Compte Supprimé 979]

Re : Récupération de couleur

Bonjour Jopont,

Mieux vaut laisser ta procedure dans l'évènement "Change"
Sinon à chaque fois que tu changeras de cellule, le code sera exécuté !!

A+

 

[jopont]

Re : Récupération de couleur

Ok mais le problème avec l'évènement change de la feuille, c'est que le code bloque lorsque je fais un changement dans la zone.
J'arrive quand même à enregistrer et fermer

Pourquoi ?