Bonjour
Je souhaite lancer un userform après double clic dans une cellule de A3:A50
Pas de pb pour lancer le userform, mais avec seulement un clic
Comment faire pour un double clic ?
Merci
Vincent
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
isabelle
bonjour Vincent,
il y a eu trois réponses à cette question dans le fil du : Mon, 25 Oct 2004 22:37:09 +0200
isabelle
Bonjour Je souhaite lancer un userform après double clic dans une cellule de A3:A50 Pas de pb pour lancer le userform, mais avec seulement un clic Comment faire pour un double clic ? Merci Vincent
bonjour Vincent,
il y a eu trois réponses à cette question dans le fil du :
Mon, 25 Oct 2004 22:37:09 +0200
isabelle
Bonjour
Je souhaite lancer un userform après double clic dans une cellule de A3:A50
Pas de pb pour lancer le userform, mais avec seulement un clic
Comment faire pour un double clic ?
Merci
Vincent
il y a eu trois réponses à cette question dans le fil du : Mon, 25 Oct 2004 22:37:09 +0200
isabelle
Bonjour Je souhaite lancer un userform après double clic dans une cellule de A3:A50 Pas de pb pour lancer le userform, mais avec seulement un clic Comment faire pour un double clic ? Merci Vincent
Vincent
Bonsoir. Ben, je ne vois aucune réponse ??? C'est justement pour cela que je reposte !!! Désolé Vincent
"isabelle" a écrit dans le message de news:
bonjour Vincent,
il y a eu trois réponses à cette question dans le fil du : Mon, 25 Oct 2004 22:37:09 +0200
isabelle
Bonjour Je souhaite lancer un userform après double clic dans une cellule de A3:A50 Pas de pb pour lancer le userform, mais avec seulement un clic Comment faire pour un double clic ? Merci Vincent
Bonsoir.
Ben, je ne vois aucune réponse ???
C'est justement pour cela que je reposte !!!
Désolé
Vincent
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
417EA21E.F352577C@videotron.ca...
bonjour Vincent,
il y a eu trois réponses à cette question dans le fil du :
Mon, 25 Oct 2004 22:37:09 +0200
isabelle
Bonjour
Je souhaite lancer un userform après double clic dans une cellule de
A3:A50
Pas de pb pour lancer le userform, mais avec seulement un clic
Comment faire pour un double clic ?
Merci
Vincent
Bonsoir. Ben, je ne vois aucune réponse ??? C'est justement pour cela que je reposte !!! Désolé Vincent
"isabelle" a écrit dans le message de news:
bonjour Vincent,
il y a eu trois réponses à cette question dans le fil du : Mon, 25 Oct 2004 22:37:09 +0200
isabelle
Bonjour Je souhaite lancer un userform après double clic dans une cellule de A3:A50 Pas de pb pour lancer le userform, mais avec seulement un clic Comment faire pour un double clic ? Merci Vincent
Bonsoir. Ben, je ne vois aucune réponse ??? C'est justement pour cela que je reposte !!! Désolé Vincent
"isabelle" a écrit dans le message de news:
bonjour Vincent,
il y a eu trois réponses à cette question dans le fil du : Mon, 25 Oct 2004 22:37:09 +0200
isabelle
Bonjour Je souhaite lancer un userform après double clic dans une cellule de
A3:A50 Pas de pb pour lancer le userform, mais avec seulement un clic Comment faire pour un double clic ? Merci Vincent
isabelle
les voici, _____________________________________________________________________________ utiliser l'évenement adéquat ? Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("a":a50")) Is Nothing Then Cancel = True tonUserForm.show End If End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect(Target, Range("A3:A50")) Is Nothing Then UserForm1.Show End If End Sub
Si tu veux que les autres cellules soient insensibles au double clic :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect(Target, Range("A3:A50")) Is Nothing Then UserForm1.Show Else Cancel = True End If End Sub
De: Michel Gaboly _____________________________________________________________________________
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If Not Intersect(Target, Range("A3:A50")) Is Nothing Then MsgBox "load userform1" End Sub
Bonsoir. Ben, je ne vois aucune réponse ??? C'est justement pour cela que je reposte !!! Désolé Vincent
les voici,
_____________________________________________________________________________
utiliser l'évenement adéquat ?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("a":a50")) Is Nothing Then
Cancel = True
tonUserForm.show
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range("A3:A50")) Is Nothing Then
UserForm1.Show
End If
End Sub
Si tu veux que les autres cellules soient insensibles au double clic :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range("A3:A50")) Is Nothing Then
UserForm1.Show
Else
Cancel = True
End If
End Sub
De: Michel Gaboly <michel@Suppgaboly.com>
_____________________________________________________________________________
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("A3:A50")) Is Nothing Then MsgBox "load userform1"
End Sub
les voici, _____________________________________________________________________________ utiliser l'évenement adéquat ? Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("a":a50")) Is Nothing Then Cancel = True tonUserForm.show End If End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect(Target, Range("A3:A50")) Is Nothing Then UserForm1.Show End If End Sub
Si tu veux que les autres cellules soient insensibles au double clic :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect(Target, Range("A3:A50")) Is Nothing Then UserForm1.Show Else Cancel = True End If End Sub
De: Michel Gaboly _____________________________________________________________________________
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If Not Intersect(Target, Range("A3:A50")) Is Nothing Then MsgBox "load userform1" End Sub
Bonsoir. Ben, je ne vois aucune réponse ??? C'est justement pour cela que je reposte !!! Désolé Vincent
Vincent
Merci beaucoup Isabelle et merci à tous. Vincent
"isabelle" a écrit dans le message de news:
les voici, _____________________________________________________________________________ utiliser l'évenement adéquat ? Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("a":a50")) Is Nothing Then Cancel = True tonUserForm.show End If End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect(Target, Range("A3:A50")) Is Nothing Then UserForm1.Show End If End Sub
Si tu veux que les autres cellules soient insensibles au double clic :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect(Target, Range("A3:A50")) Is Nothing Then UserForm1.Show Else Cancel = True End If End Sub
De: Michel Gaboly _____________________________________________________________________________
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If Not Intersect(Target, Range("A3:A50")) Is Nothing Then MsgBox "load userform1" End Sub
Bonsoir. Ben, je ne vois aucune réponse ??? C'est justement pour cela que je reposte !!! Désolé Vincent
Merci beaucoup Isabelle
et merci à tous.
Vincent
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
417EA849.A5D7049A@videotron.ca...
les voici,
_____________________________________________________________________________
utiliser l'évenement adéquat ?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("a":a50")) Is Nothing Then
Cancel = True
tonUserForm.show
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Not Intersect(Target, Range("A3:A50")) Is Nothing Then
UserForm1.Show
End If
End Sub
Si tu veux que les autres cellules soient insensibles au double clic :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Not Intersect(Target, Range("A3:A50")) Is Nothing Then
UserForm1.Show
Else
Cancel = True
End If
End Sub
De: Michel Gaboly <michel@Suppgaboly.com>
_____________________________________________________________________________
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
If Not Intersect(Target, Range("A3:A50")) Is Nothing Then MsgBox "load
userform1"
End Sub
les voici, _____________________________________________________________________________ utiliser l'évenement adéquat ? Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("a":a50")) Is Nothing Then Cancel = True tonUserForm.show End If End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect(Target, Range("A3:A50")) Is Nothing Then UserForm1.Show End If End Sub
Si tu veux que les autres cellules soient insensibles au double clic :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect(Target, Range("A3:A50")) Is Nothing Then UserForm1.Show Else Cancel = True End If End Sub
De: Michel Gaboly _____________________________________________________________________________
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If Not Intersect(Target, Range("A3:A50")) Is Nothing Then MsgBox "load userform1" End Sub
Bonsoir. Ben, je ne vois aucune réponse ??? C'est justement pour cela que je reposte !!! Désolé Vincent
michdenis
Bonjour Vincent,
Si tu as une procédure événementielle du type Private Sub Worksheet_SelectionChange(ByVal Target As Range) dans la même feuille module , tu risques d'avoir un OS dans ta soupe !
Salutations!
"Vincent" a écrit dans le message de news:% Merci beaucoup Isabelle et merci à tous. Vincent
"isabelle" a écrit dans le message de news:
les voici, _____________________________________________________________________________ utiliser l'évenement adéquat ? Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("a":a50")) Is Nothing Then Cancel = True tonUserForm.show End If End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect(Target, Range("A3:A50")) Is Nothing Then UserForm1.Show End If End Sub
Si tu veux que les autres cellules soient insensibles au double clic :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect(Target, Range("A3:A50")) Is Nothing Then UserForm1.Show Else Cancel = True End If End Sub
De: Michel Gaboly _____________________________________________________________________________
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If Not Intersect(Target, Range("A3:A50")) Is Nothing Then MsgBox "load userform1" End Sub
Bonsoir. Ben, je ne vois aucune réponse ??? C'est justement pour cela que je reposte !!! Désolé Vincent
Bonjour Vincent,
Si tu as une procédure événementielle du type
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
dans la même feuille module , tu risques d'avoir un OS dans ta soupe !
Salutations!
"Vincent" <V.herlat@tiscali.fr> a écrit dans le message de news:%238Sr2U5uEHA.2016@TK2MSFTNGP15.phx.gbl...
Merci beaucoup Isabelle
et merci à tous.
Vincent
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
417EA849.A5D7049A@videotron.ca...
les voici,
_____________________________________________________________________________
utiliser l'évenement adéquat ?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("a":a50")) Is Nothing Then
Cancel = True
tonUserForm.show
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Not Intersect(Target, Range("A3:A50")) Is Nothing Then
UserForm1.Show
End If
End Sub
Si tu veux que les autres cellules soient insensibles au double clic :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
If Not Intersect(Target, Range("A3:A50")) Is Nothing Then
UserForm1.Show
Else
Cancel = True
End If
End Sub
De: Michel Gaboly <michel@Suppgaboly.com>
_____________________________________________________________________________
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
If Not Intersect(Target, Range("A3:A50")) Is Nothing Then MsgBox "load
userform1"
End Sub
Si tu as une procédure événementielle du type Private Sub Worksheet_SelectionChange(ByVal Target As Range) dans la même feuille module , tu risques d'avoir un OS dans ta soupe !
Salutations!
"Vincent" a écrit dans le message de news:% Merci beaucoup Isabelle et merci à tous. Vincent
"isabelle" a écrit dans le message de news:
les voici, _____________________________________________________________________________ utiliser l'évenement adéquat ? Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("a":a50")) Is Nothing Then Cancel = True tonUserForm.show End If End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect(Target, Range("A3:A50")) Is Nothing Then UserForm1.Show End If End Sub
Si tu veux que les autres cellules soient insensibles au double clic :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect(Target, Range("A3:A50")) Is Nothing Then UserForm1.Show Else Cancel = True End If End Sub
De: Michel Gaboly _____________________________________________________________________________
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If Not Intersect(Target, Range("A3:A50")) Is Nothing Then MsgBox "load userform1" End Sub
