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 :
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 ?
@alexane
Ceci fait-il l'affaire?
(me suis pas foulé sur ce coup-là )
VB:
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
Ceci fait-il l'affaire?
(me suis pas foulé sur ce coup-là )
VB:
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
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