XL 2013 code feuille doubleclic

[Usine à gaz]

Bonjour à tous et à tous,

Petit problème du dimanche matin LOL
J'ai encore besoin de votre aide pour comprendre.

Dans le code de ma feuille j'ai le code suivant :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    'If Not Application.Intersect(Target, Range("j3:j100000")) Is Nothing Then
    If Not Application.Intersect(Target, Range([j3], Cells(Rows.Count, "j").End(xlUp))) Is Nothing Then
    Target = "c'est bon"
    End If
End Sub

Mais voilà :

Fonctionne en double clic de J3 à j10000
If Not Application.Intersect(Target, Range("j3:j100000")) Is Nothing Then

NE Fonctionne en double clic que sur J3
If Not Application.Intersect(Target, Range([j3], Cells(Rows.Count, "j").End(xlUp))) Is Nothing Then

Et je ne comprends pas pkoi ???

Évidemment, j'aimerais comprendre et pouvoir faire fonctionner
If Not Application.Intersect(Target, Range([j3], Cells(Rows.Count, "j").End(xlUp))) Is Nothing Then

Je joins un petit fichier test.
Avec mes remerciements,
Je vous souhaite à toutes et à tous un beau dimanche,
Amicalement,
arthour973

 

[pierrejean]

Bonjour arthour

Voila ce que j’écrirais:
If Not Application.Intersect(Target, Range("j3:j" & Rows.Count)) Is Nothing Then

 

[Roland_M]

bonjour tout le monde,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
DernLig = Cells(Rows.Count, "j").End(xlUp).Row
If Not Application.Intersect(Target, Range(Cells(3, "j"), Cells(DernLig, "j"))) Is Nothing Then Target = "c'est bon"
End Sub

EDIT: salut à toi pierrejean !

 

[Usine à gaz]

Bonjour Pierrejean,
Bonjour Roland,

Merci d'être encore et toujours là

Merci pour vos codes, je termine mes confirmations de RdV, je regarde et je vous dis
amicalement
arthour973

 

[Usine à gaz]

Re-Bonjour,

Code Pierrejean fonctionne
Code Roland ne fonctionne que si je clic sur la cellule J3, (voir fichier joint)
Un grand merci
Amicalement,
arthour973

 

[job75]

Bonjour Lionel, Pierre, Roland,

Juste 2 remarques :

- Application. est inutile devant Intersect

- la solution de pierrejean peut s'écrire simplement :

If Target.Row > 2 And Target.Column = 10 Then

A+

 

[Usine à gaz]

Bonjour Job75,

Merci d'être encore là et pour le code et explications
Bon dimanche,
Amicalement,
arthour973

 

[Roland_M]

re

mais si ça fonctionne !

le problème, avec toi, est toujours le même, explication complètement à côté du résultat souhaité !

ici j'ai mis: DernLig = Cells(Rows.Count, "j").End(xlUp).Row
car apparemment tu souhaitais double clic jusqu'à la dernière ligne occupée !
si la dernière ligne occupée est la ligne 3 forcément ça s'arrête à la ligne 3 !
si c'est toute la colonne depuis ligne 3 à la fin c'est row.count là c'est différent !
et dans ce cas la proposition de @job75 est suffisante !
pourquoi as-tu mis au départ Cells(Rows.Count, "j") ?

difficile de te suivre, il faudrait que tu sois un peu plus cohérent si tu veux avoir des réponses cohérentes !

 

[Usine à gaz]

LOL Roland,
Tu as certainement raison
Mais ta réponse "si la dernière ligne occupée est la ligne 3 forcément ça s'arrête à la ligne 3 " me permet de comprendre et d'avancer
Merci à toi,
Bonne fin de dimanche,
Amicalement,
arthour973,