XL 2016 [RESOLU] Existe-il une alternative à Ia methode Intersect

[alexane]

Bonjour à tous,
J'utilise comme tout le monde la méthode intersect pour limiter la plage d'action d'une procédure évenementielle Selected
Ex de code :

If Intersect(Range("A1:B10"), Target) Is Nothing Then Exit Sub
Target.Interior.Color = vbRed

Le souci, c'est qu'avec la méthode intersect, si je selectionne une plage qui est à cheval sur ma plage restreinte et le reste de la feuille (par ex si je sélectionne B1 : D2), toutes les cellules sélectionnées sont mis en rouge et pas seulement celles de la limite autorisée .

Je voulais donc savoir s'il n'existe pas une autre méthode ou une astuce qui permettrait de n'appliquer la mise en forme qu'aux cellules autorisées ?

Merci

 

[Staple1600]

Bonsoir le fil, forum

@alexane
Ceci fait-il l'affaire?
(me suis pas foulé sur ce coup-là )

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
Intersect(Target, Range("A1:B10")).Interior.Color = vbRed
End If
End Sub

 

[alexane]

Bonsoir le fil, forum

@alexane
Ceci fait-il l'affaire?
(me suis pas foulé sur ce coup-là )

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
Intersect(Target, Range("A1:B10")).Interior.Color = vbRed
End If
End Sub

 

[alexane]

Bonsoir,
Merci Staple 1600
Ca marche impec. Simple, clair (j'aimerais bien savoir toujours ne pas me fouler comme ça !)

 

[Staple1600]

Re

@alexane
Ce que je voulais dire par là, c'est que la solution était déjà dans ton code VBA
Du coup j'ai pas eu grand chose à faire
Un simple CTRL+C puis CTRL+V et quelque petits réagencements