Excel Downloads Forums - Afficher un message

tactic6 · 09/01/2009, 10h28

Bonjour le forum
j'essaie de rajouter une commande sur un double clic mais je ne parviens pas a obtenir le résultat voulu
j'aimerais qu'en fonction de la cellule du double clic l'userform correspondant s'affiche
le code ci dessous va tres bien il m'affiche l'userform "Recherche"

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False

Dim Table() As String

If Target.Column = 2 Then
Worksheets("Recherche").Select
    If TypeName(Selection) = "Range" Then
        UserForm2.Show
Worksheets("SAISIE").Select
    End If
    End If
End Sub

j'aimerais y intégrer cette ligne qui si double clic sur la cellule "G5" l'userform "Calendar" apparaisse
Comment faire SVP

Merci

Code:

If Target.Address = "$G$5" Then Calendar.Show

09/01/2009, 10h28	#1 (permalink)
tactic6 XLDnaute Impliqué Date d'inscription: décembre 2007 Messages: 617	Double clic en fonction de cellule Bonjour le forum j'essaie de rajouter une commande sur un double clic mais je ne parviens pas a obtenir le résultat voulu j'aimerais qu'en fonction de la cellule du double clic l'userform correspondant s'affiche le code ci dessous va tres bien il m'affiche l'userform "Recherche" Code: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.ScreenUpdating = False Dim Table() As String If Target.Column = 2 Then Worksheets("Recherche").Select If TypeName(Selection) = "Range" Then UserForm2.Show Worksheets("SAISIE").Select End If End If End Sub j'aimerais y intégrer cette ligne qui si double clic sur la cellule "G5" l'userform "Calendar" apparaisse Comment faire SVP Merci Code: If Target.Address = "$G$5" Then Calendar.Show __________________ Vista Office 2007