Worksheet_beforedoubleclick (target column et row)

Version imprimable

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:

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 !

09/07/2013, 16h14
MlNOU

Bonjour,

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

Cordialement MlNOU.

Bonjour,

Code:

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

09/07/2013, 16h42
anissao

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:

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

???

Merci !
09/07/2013, 16h47
MlNOU

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

Cordialement MlNOU.
09/07/2013, 17h20
anissao

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
09/07/2013, 18h43
Daniel.C

Citation:

le message apparait mais je ne peux plus modifier la cellule

Enlève la ligne :

Code:

Cancel = True

Citation:

mais j'ai un bug pour celles qui ne sont pas dans la macro

Quel est le message d'erreur ?