Discussion :

[Pix_elle]

Bonjour,

J'ai une macro Excel qui me permet de colorer une cellule lorsque je double clique dessus.
Je souhaiterai restreindre cette possibilité sur 2 plages de données distinctes de mon document, mais je ne sais pas comment m'y prendre.
Les plages concernées sont C23-D25 et E28-F30

Voici mon code actuel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
Dim Colonne As Integer
Cancel = True 'evite le mode édition lié au double-clic
Colonne = Target.Column
 
If Cells(Target.Row, Target.Column).Interior.ColorIndex = xlNone Then
    Cells(Target.Row, Target.Column).Interior.ColorIndex = 43
ElseIf Cells(Target.Row, Target.Column).Interior.ColorIndex = 43 Then
    Cells(Target.Row, Target.Column).Interior.ColorIndex = xlNone
End If
End Sub

En vous remerciant !

[Menhir]

Il suffit de vérifier que Target appartient à l'une de ces zones en utilisant la fonction Intersect.
Si ce n'est pas le cas, un Exit Sub permet de quitter la macro sans exécuter le reste.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
Dim Colonne As Integer
If Intersect(Target, Range("C23:D25")) Is Nothing And et Intersect(Target, Range("E28-F30") Is Nothing Then Exit Sub

[Menhir]

Petite erreur dans mon message précédent : Intersect n'est pas une fonction mais une méthode de Application.
Lire ça : https://docs.microsoft.com/fr-fr/off...tion.intersect