Discussion :

[chaudier37]

Bonjour,

J'ai une feuille qui a une plage nommée de la cellule C3 à la cellule z30.

Je voudrais qu'à chaque click droit ou double-click dans cette plage nommée (seulement dans la plage), la cellule sélectionnée prenne une couleur verte.

merci de votre aide.

[QuestVba]

Qu'as-tu à proposer comme point de départ ? Une simple recherche nous mène déjà à ceci :

Code :

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

1
2
3
4
5
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Not Intersect(Target, Range("PlageNom")) Is Nothing Then
            MsgBox "Plage"
        End If
End Sub

[ZTeddy]

Salut

voila plusieurs façon

code a mettre dans la feuille en question

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
 
' methode double click
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    ' Contrôle que la sélection ce passe bien dans la zone choisi
    If Not Application.Intersect(Target, Range(Cells(3, 3), Cells(30, 26))) Is Nothing Then
 
        ActiveCell.Interior.Color = 5287936
 
    End If
 
End Sub
 
' methode clic droit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 
    ' Contrôle que la sélection ce passe bien dans la zone choisi
    If Not Application.Intersect(ActiveCell, Range(Range("C3"), Range("Z30"))) Is Nothing Then
 
        ActiveCell.Interior.Color = 5287936
    End If
End Sub
 
' methode juste avec une selection
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    ' Contrôle que la sélection ce passe bien dans la zone choisi
    If Not Application.Intersect(ActiveCell, Range(Range("C3"), Range("Z30"))) Is Nothing Then
 
        ActiveCell.Interior.Color = 5287936
    End If
 
End Sub

[chaudier37]

Qu'as-tu à proposer comme point de départ ? Une simple recherche nous mène déjà à ceci :

Code :

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

1
2
3
4
5
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Not Intersect(Target, Range("PlageNom")) Is Nothing Then
            MsgBox "Plage"
        End If
End Sub

merci beaucoup,

j'ai cherché tout le week-end, ça fonctionne !


chaudier37

[QuestVba]

Super. N'oublie pas

[boisgontierjacques]

Bonjour,

Qq scénarios en PJ. L'ancienne couleur est restituée.

Boisgontier