Worksheet_beforedoubleclick (target column et row)

**anissao** · 09/07/2013, 16h00

Bonjour,

Je débute tout juste en VBA et j'aimerais faire afficher un message (inscrit dans la colonne AP) lorsque je double clique sur les cellules d'une colonne (AO) mais uniquement lorsque j'ai un intitulé spécifique dans la colonne (AP).

J'ai donc utilisé la macro Worksheet_beforedoubleclick:

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)
 
    'If they are double clicking in column AO
    If Target.Column = 41    Then
 
   'Display the value in column 42 of the same row they are double clicking in
    MsgBox (Cells(Target.Row, 42).Value)
 
    End If
 
 
End Sub

Mais avec cette formule, le message s'affiche sur toutes les lignes de la colonne 41. Pourriez vous m'indiquer comment "targetter" uniquement certaines lignes ?

Merci beaucoup !

**MlNOU** · 09/07/2013, 16h14

Bonjour,

Tout d'abord tu devrais mettre ton code avec des balises sinon tu vas te faire disputer !!!

Cordialement MlNOU.

**Daniel.C** · 09/07/2013, 16h16

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
'If they are double clicking in column AO
'If Target.Column = 41 Then
If Not Intersect(Target, Columns(41), Union(Rows(5), Rows(10), Rows(15))) Is Nothing Then
Cancel = True
'Display the value in column 42 of the same row they are double clicking in
MsgBox (Cells(Target.Row, 42).Value)
 
End If
End Sub

**anissao** · 09/07/2013, 16h42

Ok minou !

Merci Daniel.
Maintenant lorsque je clique sur les lignes sélectionnées, le message apparait mais j'ai un bug pour celles qui ne sont pas dans la macro !?

Par ailleurs est-il possible de selectionner plusieurs lignes plutôt qu'une avec une formule du style

Code :

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

If Not Intersect(Target, Columns(41), Union(Rows("77:95")

???

Merci !

**MlNOU** · 09/07/2013, 16h47

Oui c'est possible et je pense que rows("ligne1:ligne10") doit etre suffisant.

Cordialement MlNOU.

**anissao** · 09/07/2013, 17h20

Par contre @ Daniele, avec la nouvelle formule, le message apparait mais je ne peux plus modifier la cellule ou celui ci apparait. Est il possible de pouvoir modifier le cellule après le double click et le message ?

Merci