Bonjour
je souhaite lancer mon userfrom par double-clic
actuellement, il se lance que par simple-clic
Merci beaucoup
Flo riant
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("B2:B100")) Is Nothing Then
Frm_toto.Show
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonjour Florian, Tu peux essayer avec cette syntaxe, dans le module de feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("B2:B100")) Is Nothing Then Frm_toto.Show End If End Sub
-- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Florian" a écrit dans le message de news: %
Bonjour je souhaite lancer mon userfrom par double-clic actuellement, il se lance que par simple-clic Merci beaucoup Flo riant
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Not Intersect(Target, Range("B2:B100")) Is Nothing Then Frm_toto.Show End If End Sub
Bonjour Florian,
Tu peux essayer avec cette syntaxe, dans le module de feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B2:B100")) Is Nothing Then
Frm_toto.Show
End If
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Florian" <flo-riant@toto.fr> a écrit dans le message de news:
%23HjMWFU1EHA.3820@TK2MSFTNGP11.phx.gbl...
Bonjour
je souhaite lancer mon userfrom par double-clic
actuellement, il se lance que par simple-clic
Merci beaucoup
Flo riant
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("B2:B100")) Is Nothing Then
Frm_toto.Show
End If
End Sub
Bonjour Florian, Tu peux essayer avec cette syntaxe, dans le module de feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("B2:B100")) Is Nothing Then Frm_toto.Show End If End Sub
-- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Florian" a écrit dans le message de news: %
Bonjour je souhaite lancer mon userfrom par double-clic actuellement, il se lance que par simple-clic Merci beaucoup Flo riant
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Not Intersect(Target, Range("B2:B100")) Is Nothing Then Frm_toto.Show End If End Sub
Pat Dev VB
Dans Feuil1, Recherche l'événement BeforeDoubleClick()
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Si Double-clic sur la cellule (C,7) Alors If Target.Address = "$C$7" Then 'Tu peux ouvrir ici ta UserForm End If End Sub Je reste à ta disposition.
Bonjour je souhaite lancer mon userfrom par double-clic actuellement, il se lance que par simple-clic Merci beaucoup Flo riant
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Not Intersect(Target, Range("B2:B100")) Is Nothing Then Frm_toto.Show End If End Sub
Dans Feuil1, Recherche l'événement BeforeDoubleClick()
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
'Si Double-clic sur la cellule (C,7) Alors
If Target.Address = "$C$7" Then
'Tu peux ouvrir ici ta UserForm
End If
End Sub
Je reste à ta disposition.
Bonjour
je souhaite lancer mon userfrom par double-clic
actuellement, il se lance que par simple-clic
Merci beaucoup
Flo riant
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("B2:B100")) Is Nothing Then
Frm_toto.Show
End If
End Sub
Dans Feuil1, Recherche l'événement BeforeDoubleClick()
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Si Double-clic sur la cellule (C,7) Alors If Target.Address = "$C$7" Then 'Tu peux ouvrir ici ta UserForm End If End Sub Je reste à ta disposition.
Bonjour je souhaite lancer mon userfrom par double-clic actuellement, il se lance que par simple-clic Merci beaucoup Flo riant
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Not Intersect(Target, Range("B2:B100")) Is Nothing Then Frm_toto.Show End If End Sub
Florian
Merci beaucoup à tous les 2 Bonne journée Flo riant
"Pat Dev VB" a écrit dans le message de news:
Dans Feuil1, Recherche l'événement BeforeDoubleClick()
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Si Double-clic sur la cellule (C,7) Alors If Target.Address = "$C$7" Then 'Tu peux ouvrir ici ta UserForm End If End Sub Je reste à ta disposition.
Bonjour je souhaite lancer mon userfrom par double-clic actuellement, il se lance que par simple-clic Merci beaucoup Flo riant
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Not Intersect(Target, Range("B2:B100")) Is Nothing Then Frm_toto.Show End If End Sub
Merci beaucoup à tous les 2
Bonne journée
Flo riant
"Pat Dev VB" <PatDevVB@discussions.microsoft.com> a écrit dans le message de
news: 2497C2DC-B2F0-4E45-B155-27DC78B8C12D@microsoft.com...
Dans Feuil1, Recherche l'événement BeforeDoubleClick()
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
'Si Double-clic sur la cellule (C,7) Alors
If Target.Address = "$C$7" Then
'Tu peux ouvrir ici ta UserForm
End If
End Sub
Je reste à ta disposition.
Bonjour
je souhaite lancer mon userfrom par double-clic
actuellement, il se lance que par simple-clic
Merci beaucoup
Flo riant
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("B2:B100")) Is Nothing Then
Frm_toto.Show
End If
End Sub
Merci beaucoup à tous les 2 Bonne journée Flo riant
"Pat Dev VB" a écrit dans le message de news:
Dans Feuil1, Recherche l'événement BeforeDoubleClick()
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Si Double-clic sur la cellule (C,7) Alors If Target.Address = "$C$7" Then 'Tu peux ouvrir ici ta UserForm End If End Sub Je reste à ta disposition.
Bonjour je souhaite lancer mon userfrom par double-clic actuellement, il se lance que par simple-clic Merci beaucoup Flo riant
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Not Intersect(Target, Range("B2:B100")) Is Nothing Then Frm_toto.Show End If End Sub
