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 :
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
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 :
Code:
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